Delphi Edit immer mit 2 Nachkommastellen

Thema durchsuchen

Ansicht

Themen-Optionen

Edit immer mit 2 Nachkommastellen

Ein Thema von Hansa · begonnen am 16. Sep 2004 · letzter Beitrag vom 17. Sep 2004

Antwort

Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.052 Beiträge

Delphi 10.1 Berlin Enterprise

Re: Edit immer mit 2 Nachkommastellen

17. Sep 2004, 14:35

Kannst auch das hier versuchen (nicht sehr ausgiebig getestet):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Edit1Change(Sender: TObject);

var

  SelStart: Integer;

begin

  try

    SelStart := Edit1.SelStart;

    Edit1.Text := Format('%.2f', [StrToFloat(Edit1.Text)]);

    Edit1.SelStart := SelStart;

  except

  end;

end;