Fehler-Anzeige: Not enough actual parameters

[icqgoofy]

Hallo zusammen,

in Informatik sollen wir einen "Taschenrechner" mit simplen
Methoden (nur Addition/Multiplikation) schreiben.
Vorgabe ist, dass die Lösungsvariablen nicht Werteparameter
sein dürfen, sondern Varibalenparameter sein müssen.

Ich habe das Programm nach den Vorgaben des Lehrers geschrieben,
genau wie wir alle aus dem Kurs.
Doch bei uns allen kommt jener Fehler.

Hier meine Unit:

Delphi-Quellcode:

unit Unit1;

interface

[...] //hab grad die uses rausgemacht, die betreffen ja das Problem nicht

type
  TFTaschenrechner = class(TForm)
   .... //hier stehen halt die Objekte
    procedure Berechnung(rZa1,rZa2: Real; var rSum,rProd: Real);
    procedure BErgebnis_AnzeigeClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FTaschenrechner: TFTaschenrechner;
  rSumme: Real;
  rProdukt: Real;

implementation

{$R *.dfm}

procedure TFTaschenrechner.Berechnung(rZa1,rZa2: Real; var rSum,rProd: Real);
begin
  rSum:=rZa1+rZa2;
  rProd:=rZa1*rZa2;
  rSumme:=rSum;
  rProdukt:=rProd;
end;


procedure TFTaschenrechner.BErgebnis_AnzeigeClick(Sender: TObject);
var rZahl1,rZahl2 : Real;
begin
  rZahl1:=StrToFloat(EZahl1.Text);
  rZahl2:=StrToFloat(EZahl2.Text);
  FTaschenrechner.Berechnung(rZahl1,rZahl2; var rSum,rProd: Real);  //hier tritt der Fehler auf
  EAddition.Text:=FloatToStr(rSumme);
  EMultiplikation.Text:=FloatToStr(rProdukt);
end;



end.

Über Hilfe wäre ich sehr dankbar;)

Gruß icqgoofy

[Dust Signs]

Zeile 41: was macht das var dort... und was der Strichpunkt zwischen den Parametern?

Dust Signs

[mkinzler]

Zitat:

Delphi-Quellcode:

procedure TFTaschenrechner.BErgebnis_AnzeigeClick(Sender: TObject);
var rZahl1,rZahl2 : Real;
begin
  rZahl1:=StrToFloat(EZahl1.Text);
  rZahl2:=StrToFloat(EZahl2.Text);
  FTaschenrechner.Berechnung(rZahl1,rZahl2; var rSum,rProd: Real);
  EAddition.Text:=FloatToStr(rSumme);
  EMultiplikation.Text:=FloatToStr(rProdukt);
end;

Die Procedur muß so aufgerufen werden
 FTaschenrechner.Berechnung(rZahl1,rZahl2, rSumme,rProdukt);

[Oxmyx]

Mit den globalen Variablen rSumme und rProdukt führst du den Sinn deiner var-Parameter ad absurdum.

[icqgoofy]

Ok,
also ist es absurd das mit den globalen Variablen so zu machen.
Wie kann ich es dann machen, dass die Variablenparamter wieder an
die Ausgabe-Prozedur übergeben werden?

Das ist nämlich die Vrogabe unseres Lehrers, dass die
Lösungsvariablen Variablenparameter bleiben müsse.

Gruß icqgoofy

[Dust Signs]

Vielleicht solltest du dann erstmal nachlesen, was var-Parameter genau sind und wie man sie verwendet

Dust Signs

[mkinzler]

Für deinem Zweck könntest du sie geanuso wie rZahl1 und rZahl2 lokal definieren.

[mkinzler]

Zitat von Dust Signs:

Vielleicht solltest du dann erstmal nachlesen, was var-Parameter genau sind und wie man sie verwendet

Ich glaube in diesem Beispielprogramm wird doch sichtbar was var-Paramter bewirken. Zudem heißen die Paramter anders, wie die globalen Variablen.

Grundsätzlich sind var-Parameter aber eine "gefährliche" Waffe.

@icqgoofy: Die Frage ist nur, was dein Lehrer gemeint aht als er euch die Verwendung von by-reference Parametern verordnet hat

Edit: Habe leider die Prozedur nicht richtig angeschaut : so ist es natütlich falsch! Dust-sign hat natürlich Recht.

Die Prozedur müßte so aussehen:

Delphi-Quellcode:

procedure TFTaschenrechner.Berechnung(rZa1,rZa2: Real; var rSum,rProd: Real);
begin
  rSum:=rZa1+rZa2;
  rProd:=rZa1*rZa2;
end;