Thema: Delphi function in procedure

Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#13

Re: function in procedure

  Alt 17. Apr 2007, 15:37
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

  function summe(var a,b: Integer): Integer; //<-- hier hast Du a und b in der Parameterlist deklariert
  begin
        a := strtoint(Edit1.text);
        b := strtoint(Edit2.Text);
        result := a + b;
  end;

var wert: Integer;

begin
        wert := summe; //<-- hier rufst Du die Funktion ohne Parameter auf
        Label1.Caption := inttostr(wert);
end;

end.
Das was Muhkuh in seinem Beitrag geschrieben hat, ist letztendlich das wie es sein sollte.
Denn Du nutzt die Parameter nicht wirrklich, du fragst in Deiner Funktuion summe irgendwelche Editfelder ab,
das geht rein formal ist aber nicht schön.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat