Werteübergabe

[Cr3at0r]

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

[freak4fun]

Ich würde dir raten eigene Methoden zu schreiben und die dann mit den Buttons aufzurufen. Das hast du dann die Möglichkeit beliebige Parameter zu übergeben.

MfG
freak

[Cr3at0r]

wie schreibe ich denn eigene Methoden? Bin noch ziemlich neu im Gebiet Delphi

[freak4fun]

Da kann man dir aud dsdt.info weiterhelfen.

MfG
freak

[Cr3at0r]

Versteh ich das richtig, eine MEthode beeinhaltet mehrere Prozeduren? die die Werteübergabe mit einschließt?