Taschenrechner bauen, Problem mit Addition

[Steve-0]

Danke Fabian, das war sehr hilfreich :thumb: :thumb:

EDIT:
Hab jetzt bei private "d" deklariert, mit dem Datentyp "real". Wenn ich jetzt "d" aufrufe und "d" den Wert von "a" zuweise (a ist der Inhalt der Textbox zugewiesen) und dann einer weiteren Variablen "b" den neuen Inhalt der Textbox zuweise (So ists zumindest gedacht), dann addiert er zu dem Wert "a" nochmal "a" hinzu, also nimmt ax2.

Ich weiß, es ist sehr verwirrend, daher der Programmcode:

Delphi-Quellcode:

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



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

Alle Variablen sind global deklariert

[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!