Thema: Delphi function in procedure

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: function in procedure

  Alt 17. Apr 2007, 15:10
Wenn du das gerne so hättest, geht auch das hier, wobei mir so eine Lösung nicht sonderlich gefallen würde:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
  function summe: Integer;
  begin
    result := StrToInt(Edit1.Text) + StrToInt(Edit2.text)
  end;
begin
  Label1.Caption := IntToStr(summe);
end;
  Mit Zitat antworten Zitat