Zahlen normung

[glkgereon]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl:double;
    temp:string;
begin
try
  zahl:=strtofloat(Edit1.Text);
  if zahl<10
  then temp:='000'
  else if zahl<100
  then temp:='00'
  else if zahl<1000
  then temp:='0';
  Edit2.Text:=temp+floattostr(zahl);
except
  Application.MessageBox('Ungültige Zahl!','Ungültige Zahl!');
end;
end;

soweit getestet...

jetzt müsste da noch hin temp2
wenn kein nachkommastellen da sind dann temp:='.0'
das machste aber jetzt selber