Thema: Delphi Werteübergabe

Einzelnen Beitrag anzeigen

Cr3at0r

Registriert seit: 6. Jul 2006
52 Beiträge
 
#1

Werteübergabe

  Alt 6. Jul 2006, 15:26
Also ich hab mal versucht einen kleinen Taschenrechner zu schreiben doch da, gleich das erst Problem^^

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
zwischen := strtofloat(edit1.text);
edit1.text := floattostr(0);
zwischen2 := zwischen + strtofloat(edit1.text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
zwischen := strtofloat(edit1.text);
edit1.text := floattostr(0);
zwischen2 := zwischen - strtofloat(edit1.text);
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
zwischen2 := zwischen + strtofloat(edit1.text);
edit1.text := floattostr(zwischen2);

end;
Also so wie es jetzt ist kann ich nur addieren, ist ja auch kein wunder denn in er letzten Prozedur (welches der gleich button ist) wird durch das plus addiert. Nur Frage ich mich wie es sein muss das ich zb auch minus rechnen kann. Denn wenn man bei der Prozedur die 3te Zeile raus nimmt funzt es ja auch nicht, warscheinlich weil da eine Werteübergabe nicht richtig statt findet.

Vllt könnt ihr mir helfen, freue mich über jeden Tip.

mfG
  Mit Zitat antworten Zitat