Unterprogramme in Delphi 7 Felder ansprechen

[mkinzler]

Mach eine Funktion draus:

Delphi-Quellcode:

function VerbrauchBGes(var verb, jahrk : real): real;
begin
      result := verb * jahrk;
end;

procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
begin
    verb := StrToFloat(Edit3.Text);
    jahrk := StrToFloat(Edit4.Text);
    verbj := VerbrauchBGes(verb, jahrk);

    Panel1.Caption := FloatToStr(verbj);
end;