2 Fragen zu Result

[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.