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);