Abstrakter Fehler bei FindAllFiles

[Gentleman]

Hallo Delphifreunde,

hier im Forum habe ich den Code FindAllFiles von SirThornberry gefunden. Ich habe ihn mittels eines Memos ausprobiert und alles hatte soweit funktioniert.
Da ich nun aber die gefundenen Dateien nicht direkt in ein Memofeld ausgeben wollte, versuchte ich folgenen Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  test: TStrings;
begin
  test:= TStrings.Create;
  FindAllFiles(test, 'C:\Test');
end;

Wenn ich diesen ausführe, bekomme ich die Fehlermeldung "Abstrakter Fehler". Nach einiger Recherche habe ich keine befriedigenden Ergebnisse dazu finden können.

Deswegen meine Frage an euch, woran liegt es, dass ich auf Grund dieses Codes einen abstrakten Fehler erhalte bzw. wie kann ich dieses Problem beheben?


Vielen Dank!

[Bernhard Geyer]

Nicht TStrings sondern TStringList verwenden!
test:= TStringList.Create;

[Gentleman]

Danke, jetzt funktioniert es!!!

So einfach kann es doch machmal sein.