@ Stormy: neuerfinden zum lernen
@Topic: Dein Problem ist, dass du OpSpeicher einmal als Funktion deklariert hast und zum anderen als Variable. benenn eines von beiden um
[EDIT] Er versucht an der Entsprechenden Stelle die Funktion aufzurufen und die erwartet halt den Parameter Sender
procedure TForm1.OpSpeicher(Sender: TObject);
Alternativ müsstest du auch mit den von dir benutzten Werten arbeiten können, wenn du direkt auf Unit1 zugreifst, wobei ich davon abrate, da du mit doppelten Bezeichnern sehr schnell die übersicht verlierst!:
Delphi-Quellcode:
procedure TForm1.OpSpeicher(Sender: TObject);
begin
if sender = button7 then operand :='+';
if sender = button8 then operand :='-';
if sender = button9 then operand :='=';
zkam := true;
if Unit1.opspeicher = '0' then ergebnis := zahl; // <----
if Unit1.opspeicher = '+' then ergebnis := ergebnis + zahl; // <----
if Unit1.opspeicher = '-' then ergebnis := ergebnis - zahl; // <----
Edit1.Text := FloatToStr(ergebnis);
Unit1.opspeicher := operand; // <----
end;
Gruß
Ansgar