2 Fragen zu Result

[Die Muhkuh]

Zitat von Luckie:

Wenn du Zugriff auf Objekte der Form brauchst, dann mach deine Funktion zu einer Methode deiner Form-Klasse.

Wie denn?

[himitsu]

http://www.FrankNStein.de/Smiley-Wolke.gif Na ihr,

ganz identisch sind die beiden Schreibweisen mit Funktionsname und Result nun auch nicht.

Hier kommt 2 raus:

Delphi-Quellcode:

Funktion Test: Integer;
  Begin
    Result := 1;
    Result := Result + 1;
  End;

Und das ergibt eine super schöne Endlosschleife:

Delphi-Quellcode:

Funktion Test: Integer;
  Begin
    Test := 1;
    Test := Test + 1;
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Luckie]

Code:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    [b]function Devide(a, b: Integer): Integer[/b];
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

[b]function Tform1.Devide(a, b: Integer): Interger;
begin
  result := a div b;
end;[/b]

Innerhalb der Funktion hast du jetzt Zugriff auf Objekte des Formulares.

[Die Muhkuh]

@Luckie


oh so einfach!



@himitsu

Stimmt!