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