- var
- Foo: Array of record
- bar: Integer;
- Foobar: Gluint;
- ...
- end;
- procedure LoadData;
- begin
- ... //Daten von der Festplatte auslesen
- SetLength(Foo, 666);
- for i:= 0 to 665 do
- begin
- Foo[i].bar:= xxx;
- ....
- end;
- end;
- später:
- procedure LoadData2;
- begin
- ... //Daten von der Festplatte auslesen
- SetLength(Foo, 0);
- SetLength(Foo, 999); //Den Zahlenwert lese ich natürlich auch aus!
- for i:= 0 to 998 do
- begin
- Foo[i].bar:= xxx;
- ....
- end;
- end;