Ok. Jetzt bin ich etwas weiter. Das Programm startet jetzt es wird aber immer ein komplett falscher Wert berechnet. So sieht es jetzt aus:
Delphi-Quellcode:
procedure VerbrauchBGes(var verb, jahrk : real);
var verbj: real;
begin
verbj := verb * jahrk;
end;
procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
begin
verb := StrToFloat(Edit3.Text);
jahrk := StrToFloat(Edit4.Text);
VerbrauchBGes(verb, jahrk);
Panel1.Caption := FloatToStr(verbj);
end;
Wo habe ich jetzt meinen Fehler?