in edit maximal 1 KOMMA zulassen

[Daniel B]

Hallo,

mach Bitte bei neuen Fragen auch ein neuen Thread auf! Danke!

Delphi-Quellcode:

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := '1';
  Delay(500);
  Edit2.Text := Edit2.Text + '2';
  Delay(500);
  Edit2.Text := Edit2.Text + '3';
end;

Da Sleep das ganze etwas "kaputtmacht" und das Ergebniss nicht das wahre ist, habe ich es mal mit Luckies Delay-Prozedur eingefügt. Die ist wenisgtens verlässlich.
Grüsse, Daniel