Sender

**jandelph**

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:

markieren

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

Sender

Sender

Forumregeln