Function mit Procedure verbinden

[Naibaf]

Hi, ich bin neu im Forum und habe eine Frage
wie verknüpfe ich diese Funktion mit meiner Procedure von Button 1?
ich hab folgende Ausgangslage:
das Programm soll die Fakultät der im eingegebenen Editfeld1 berechnen und mit dem Klick auf Button1 im Editfeld2 ausgeben.
hier die Funktion:

Delphi-Quellcode:

Function fak(s:string):string;
var f,f2:integer;
  f1:extended;
begin
  F:=0;
  f1:=round(strtofloat(s));
  f2:=1;
repeat begin
  f:=f+1;
  F2:=f2*f;
end; until f1=f;
  result:=inttostr(f2);
end;

Wäre schön wenn ihr mir helfen könntet und ein bisschen erklärt, denn ich kenn mich noch nicht so gut aus.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Einfach in Event-Methode Funktion aufrufen

[sh17]

also einfach auf Button1 doppelt drauf klicken und

Editfeld2.text := fak(Editfeld1.text); eingeben

[DeddyH]

Hallo und Willkommen in der DP ,

das ist ziemlich einfach: Du rufst die Funktion auf mit dem Inhalt von Edit1 als Parameter. Den Rückgabewert der Funktion schreibst Du dann in Edit2.

Delphi-Quellcode:

procedure TDeineForm.Button1Click(Sender: TObject);
begin
  Edit2.Text := fak(Edit1.Text);
end;