mmh, dann halt als Extra-Post^^
Ich habe es jetzt erst mal mit einem
array of TForm versucht und dabei folgendes Problem entdeckt:
Delphi-Quellcode:
procedure TF_Session.DeleteArray(var a:array of TF_Session; Index:Integer);
begin
a[Index]:=a[High(a)];
{ -- letze Form aus array entfernen -- }
FreeAndNil(a[Length(a)-1]);
SetLength(a,Length(a)-1);
end;
Wieso zeigt mir der Compiler bei SetLength "inkompatible Typen" an?
[edit] Habe das Problem jetzt lösen können^^ Ich musste vorher noch den ArrayTyp als Parameter anders angeben:
Delphi-Quellcode:
type
TFormArray = array of TForm;
procedure DeleteArray(var a:TFormArray; Index:Integer);
[/edit]