(08-09-2019, Saat: 22:30)faktoral Adlı Kullanıcıdan Alıntı: procedure TForm19.Edit5Exit(Sender: TObject);
var
StrValue:string;
begin
StrValue:= Edit5.Text;
Edit5.Text:=FormatFloat('#,##.00',StrToFloatDef(StrValue,0));
end;
End.
Merhaba faktoral kardeşim kodu yazdığın gibi kullandım ama aynı hatayı veriyor başka yerde değişiklik yapmam gerekiyor mu?
(10-09-2019, Saat: 09:29)OZCANK Adlı Kullanıcıdan Alıntı:(08-09-2019, Saat: 22:30)faktoral Adlı Kullanıcıdan Alıntı: procedure TForm19.Edit5Exit(Sender: TObject);
var
StrValue:string;
begin
StrValue:= Edit5.Text;
Edit5.Text:=FormatFloat('#,##.00',StrToFloatDef(StrValue,0));
end;
End.
Merhaba faktoral kardeşim kodu yazdığın gibi kullandım ama aynı hatayı veriyor başka yerde değişiklik yapmam gerekiyor mu?
Bu şekilde hata vermiyor ama 5000 TL yerine 5 TL yani 5.000 olarak rapor alıyor
procedure TForm19.Edit5Exit(Sender: TObject);
var
StrValue:string;
begin
StrValue:= Edit5.Text;
Edit5.Text:=FormatFloat('0,',StrToFloatDef(StrValue,0));
end;
End.
