function in procedure

[chaosben]

Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  function summe(): Integer;
  var a,b: Integer; //:)
  begin

        a := strtoint(Edit1.text);
        b := strtoint(Edit2.Text);
        result := a + b;
  end;

var    wert: Integer;
begin
        wert := summe; //() nicht genügend wirkliche Parameter ... war gestern :)
        Label1.Caption := inttostr(wert);
end;

end.