SetLength?

[Sniff]

Hi,
Ich hab einen Array:
Schlange: array[0..5] of TPoint;

jezt will ich mit Setlength den diesen Array ein länger machen.
SetLength(Schlange, Length(SChlange));
klappt aber nciht da kommt dann immer Inkompatible Typen.

[Thomas Stutz]

Hi,

Deklariere ein dynamisches Array:

[font size=2 face="Courier New"][font color="#000000"]procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of TPoint;
begin
[font color="#000080"]{
   length(a)  Anzahl Elemente
   high(a)    Grösster Index
   low(a)     Niedrigster Index
}
  [/font]SetLength(a, 6); [font color="#000080"]// enspricht array[0..5] of TPoint;
  // ewas zuweisen
  [/font]a[0].X := 3;
  a[0].Y := 3;
  [font color="#000080"]// Element 0 Anzeigen...
  [/font]ShowMessage(IntToStr(a[0].x));
  [font color="#000080"]// Array um ein Element vergrössern...
  [/font]SetLength(a,length(a)+1);
end;
[/font][/font]