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.