Taschenrechner bauen, Problem mit Addition

[Delphi-Narr]

In dem Fall ist d eigentlich überflüssig:

Delphi-Quellcode:

procedure TForm1.BitBtn3Click(Sender: TObject); 
begin 
a:=StrToFloat (Edit1.Text); //a ist der Inhalt der Textbox und ist das Zwischenergebnis
b:=StrToFloat (Edit1.Text); //b soll den Wert, der zu a hinzuaddiert werden soll aus der Textbox auslesen 
end;

procedure TForm1.BitBtn4Click(Sender: TObject); 
begin 
c:=a+b;                      //a soll mit b addiert werden 
Edit1.Text:= FloatToStr (c); //c soll das Ergebnis in der Textbox ausgeben 
end;

Wenn du das jetzt so machen würdest, brauchst du d nicht, du nimmst aber trotzdem a*2:

In einer Prozedur setzt du a und b auf den Inhalt des Edits, ohne das der Wert zwischendrin geändert werden kann...

Versuch mal das hier:

Delphi-Quellcode:

procedure TForm1.BitBtn3Click(Sender: TObject); 
begin 
a:=StrToFloat (Edit1.Text); //a ist der Inhalt der Textbox und ist das Zwischenergebnis
end;

procedure TForm1.BitBtn4Click(Sender: TObject); 
begin 
b:=StrToFloat (Edit1.Text); //b soll den Wert, der zu a hinzuaddiert werden soll aus der Textbox auslesen 
c:=a+b;                      //a soll mit b addiert werden 
Edit1.Text:= FloatToStr (c); //c soll das Ergebnis in der Textbox ausgeben 
end;

Liebe Grüße!