Moin,
ein gutes Anfängertutorial bzw. einen Crashkurs findest du
hier, dann fällt dir das Programmieren sicher leichter, denn die Grundlagen brauchst du unbedingt.
Aber kurz zum Problem: Du könntest es beispielsweise so (für jedes Edit extra) lösen:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
try
Edit2.Text := FloatToStr(StrToFloat(Edit1.Text) * Faktor);
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) * Anderer_Faktor);
except
end;
end;
Der Button ist übrigens dann überflüssig, das geschieht alles "live".
Der leere
except-Block ist eigentlich keine saubere Lösung, doch in diesem Fall würde ich sagen, kann man das mal so machen, dass nicht bei jeder Fehleingabe bzw. beim Leeren des Edits eine Fehlermeldung erscheint.
