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

[Sir Rufo]

Neben den vielen (Design-)Fehlern ist der eklatanteste und hier verantwortliche Fehler das fehlende Wissen um die zeitliche Abfolge einer Zuweisung.

Delphi-Quellcode:

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

constructor TPat.Create(i: Integer);
begin
  Inc(a);
  index := i;
  ...
end;

Bei einer Zuweisung wird erst der rechte Ausdruck ausgewertet und danach erfolgt die Zuweisung ...
Somit ist a bei der ersten Zuweisung nicht - wie angenommen - 0 sondern schon 1