Zitat von
Nils_13:
Delphi-Quellcode:
if from.Text = 'mm' then
if fto.Text = 'km' then
begin
fZahl := StrToFloat(Edit.Text);
fErgebnis := fZahl / 100000;
endeinheit.Text := 'km';
Edit.Text := FloatToStr(fErgebnis);
end;
Und wie soll ich das einbauen, in der Delphi-Hilfe stehen nur Werte.
Delphi-Quellcode:
if from.Text = 'mm' then
if fto.Text = 'km' then
begin
fZahl := StrToFloat(Edit.Text);
fErgebnis := fZahl / 100000;
endeinheit.Text := 'km';
Edit.Text := FloatToStrF(fErgebnis,ffNumber,8,6);
end;
so müsste das etwa gehen. Ich hoffe die Parameter sind ok. Habs jetzt so ausm Kopf gemacht aber ich denke so müsste es gehn...