Dynamisches Array "weg" nach Thread beendigung

[SirThornberry]

so:

Delphi-Quellcode:

[...]
type 
  TArrayofStringList = packed array of TStringList; 
  PArrayOfStringList = ^TArrayOfStringList; // <= hier wurde hinzugefügt

  TtSearchFiles = class(TThread) 
  private 
  iDirCount : Integer; 
  protected 
  procedure Execute; override; 
  procedure GetFiles(const Directory : string; var Files : TArrayofStringList; (*type TArrayofStringList = packed array of TStringList;*) 
                     const FileMask : string = '*.*'; const SubFolders : Boolean = True); 
  public 
    sDir : String; // wird übergeben vom Haupt code 
    FileList : PArrayofStringList; // <= hier wurde geändert 
  end;
[...]