Datei-Suche wirft Exception auf

[himitsu]

FileList muß natürlich auch existieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  test: TStrings;  // oder test: TStringList;
begin
  test := : TStringList.Create;
  FindAllFiles(test, 'C:', 'dd.txt', true);
  Memo1.Lines := test;
  test.Free;
end;

// oder direkt

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  FindAllFiles(Memo1.Lines, 'C:', 'dd.txt', true);
end;