FormatFloat sorunu

[serhat]

Merhaba; 

Kullanıcı edite sayısal değer girince dbye kayıt sırasında sayıyı para formatına çeviriyorum. Fakat 2 sıkıntıyı çözemedim.

1. Edite 111111 yazdığında format 111.111 olmuyor, 111112 yazdığında sorun yok format çalışıyor.
2. Edite 12575 yazıldığında 12.575 olarak nasıl dönüştürebilirim?

ParamByName('FT').AsString := FormatFloat('#,##0.##', StrToFloat(Fiyat.Text));

[serhat]

Arkadaşlar konu güncel.

[mrmarman]

Bu dönüşümü nerede görmek istiyoruz ? Yazdığın TEdit içinde değişimi görmek istiyoruz gibi görünüyor ancak parambyname işi veritabanına yönelik gösteriyor.

Kod yazarak örnek verirseniz daha rahat anlaşılır.

Örneğin böyle bir şey mi ?

procedure TForm1.FiyatEnter(Sender: TObject);
begin
 Fiyat.Text := StringReplace( Fiyat.Text, '.', '', [rfReplaceAll]);
end;

procedure TForm1.FiyatExit(Sender: TObject);
begin
 Fiyat.Text := FormatFloat('#,##0.##', StrToFloat(Fiyat.Text));
end;

[serhat]

Cevap için teşekkür ederim.