12-03-2014, 05:02 PM
السلام عليكم و رحمة الله
جرب هذا :
جرب هذا :
كود :
function FloatToCurrency(const f: double): string;
begin
Result := FormatFloat('#,###.##;1;0', f);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:=FloatToCurrency(strtofloat(edit1.Text));
end;
من قال حاد عن أصله أو قال مات فقد كذب