Einzelnen Beitrag anzeigen

Steve-0

Registriert seit: 30. Nov 2009
10 Beiträge
 
#11

Re: Taschenrechner bauen, Problem mit Addition

  Alt 18. Feb 2010, 20:51
Danke Fabian, das war sehr hilfreich

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
  Mit Zitat antworten Zitat