Probleme mit einer Funktion

[Klaus01]

aus dem Crosspost:

Delphi-Quellcode:

// Global
var
  Form1: TForm1;
  a: Integer;
  Pats: Array [0..20] of TPat;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 0;
end;

Delphi-Quellcode:

constructor TPat.Create(i: Integer);
begin
  Inc(a); //hier wird die globale Variable a geändert

...
end;

Delphi-Quellcode:

procedure TForm1.AddClick(Sender: TObject);
begin
  Pats[a] := TPat.Create(a);
end;

Probiere mal, ob Du auf

Delphi-Quellcode:

procedure TForm1.Sort;
var i, j: Integer;
  temp: TPat;
  stop : boolean;
begin
  showmessage(inttostr(Pats[1].getGesTime));

zugreifen kannst.

Grüße
Klaus