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