Deklarierung einer "function"

[emteg]

Zitat:

Aber wie man eine "function" erstellt bzw. deklariert kann mir das vieleicht jemand erklären?????

Ist ganz einfach: eine function ist eine procedure, die einen wert zurückliefert. Genau wie procedures, kannst du das beliebig in deinen quelltext reinpacken:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  procedure ZeigeNachricht(Text: string);
  function Addieren(a: integer; b: integer): integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{...}

procedure TForm1.ZeigeNachricht(Text: string);
begin
  ShowMessage(Text);
end;

function TForm1.Addieren(a: integer; b: integer): integer;
begin
  Result:=0;       //Bei functions wird das ergebnis über die feste variable Result gesetzt.
  Result:=a+b;
end;

Jede function oder procedure, die du selbst definieren möchtest, schreibst du beim type TForm1 einfach rein. Im quelltext musst du bei fenstern noch den namen der unit dazu schreiben. Also in diesem Fall "TForm1." Bei functions sollte man auf jedenfall dem result einen default wert zuweisen, falls irgendetwas schief geht.
Aufrufen kannst du eine function so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObejct);
begin
  Edit3.Text:=IntToStr(Addieren(StrToInt(Edit1.Text), StrToInt(Edit2.TExt));
end;

Ich hoffe mal, ich konnte dir helfen.