Beliebiges Array an function/procedure übergeben

[Jan]

Hallo maststef,

Delphi-Quellcode:

Procedure tform1.copyarray(inarray:array of tstringlist; var outarray : array of tstringlist);
var
     i, j : integer;
begin
  for i:=0 to length(inarray)-1 do
  begin
    if inarray[i]<>nil then
    begin
      outarray[i]:=tstringlist.create;
       for j:=0 to inarray[i].Count-1 do
      begin
         outarray[i].Add(inarray[i][j]);
      end;
    end;
  end;
end;

funktioniert bei mir.
(macht nichts anderes als einen array of tstringlist zu kopieren.)
Gruß
Jan