Fehlermeldung bei nem Array

[neolithos]

Delphi-Quellcode:

 setlength(rz1,2); 
  rz1[1] := 1; rz1[2] := 2; // <-- du zerstören Speicher
 setlength(rz2,2); 
  rz2[1] := 1; rz2[3] := 3; // <-- du zerstören Speicher
 setlength(rz3,2); 
  rz3[2] := 2; rz3[3] := 3; // <-- du zerstören Speicher
 setlength(rz4,3); 
  rz4[1] := 1; rz4[2] := 2; rz4[3] := 3; // <-- du zerstören Speicher

Delphi-Quellcode:

 setlength(rz1,2); 
  rz1[0] := 1; rz1[1] := 2;
  setlength(rz2,2); 
  rz2[0] := 1; rz2[1] := 3; 
 setlength(rz3,2); 
  rz3[0] := 2; rz3[1] := 3;
 setlength(rz4,3); 
  rz4[0] := 1; rz4[1] := 2; rz4[2] := 3;