hallo,
ich muss einen Währungsumrechner(€-DM) erstellen, dabei soll ich die Fuktion sender benutzen!
Also 2 edit felder, wenn man nen knopf drückt soll dann beim anderen auch was stehen!
Ich hab das so verstanden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b : real;
begin
a := StrToFloat(edit1.Text);
b := StrToFloat(edit2.Text);
if sender = edit1 then edit2.Text := FloatToStr(a*2);
if sender = edit2 then edit1.Text := FloatToStr(b/2);
end;
das Progamm kann ich zwar ausführen jedoch gschieht nichts wenn ich den button drücke!
Welchen Fehler hab ich gemacht?
Danke!
LG
Jan