Edit Sayı Çevirme

[hi_selamlar]

(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?

---

(10-09-2019, Saat: 09:29)OZCANK Adlı Kullanıcıdan Alıntı: 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.

Merhabalar,

--> 5.000,00 TL

Edit5.Text:=FormatFloat('#,##0.00 TL',StrToFloatDef(StrValue,0));

veya

--> 5.000 TL

Edit5.Text:=FormatFloat('#,##0 TL',StrToFloatDef(StrValue,0));

Kolay gelsin.