Probleme mit einer Funktion

[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