Problem mit einfügen einer function in procedure

[DeddyH]

Na also. Dann kann die Funktion z.B. so aussehen:

Delphi-Quellcode:

function erdgaspreisberechnen(a : real): real;
begin
  Result := a * Preis; //Preis ist anderweitig ermittelt worden
end;

Im Formular, welches diese Unit benutzt, geht dann so etwas:

Delphi-Quellcode:

procedure TDeinForm.ButtonBerechnenClick(Sender: TObject);
var Verbrauch, Preis: real;
begin
  if RadioButtonPreis.Checked then
    begin
      Verbrauch := StrToFloat(EditVerbauch.Text);
      Preis := erdgaspreisberechnen(Verbrauch);
      LabelPreis.Caption := FloatToStr(Preis);
    end;
end;