Abstrakter Fehler bei FindAllFiles
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:
Wenn ich diesen ausführe, bekomme ich die Fehlermeldung "Abstrakter Fehler". Nach einiger Recherche habe ich keine befriedigenden Ergebnisse dazu finden können.
procedure TForm1.Button1Click(Sender: TObject);
var test: TStrings; begin test:= TStrings.Create; FindAllFiles(test, 'C:\Test'); end; 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! |
Re: Abstrakter Fehler bei FindAllFiles
Nicht TStrings sondern TStringList verwenden!
Delphi-Quellcode:
test:= TStringList.Create;
|
Re: Abstrakter Fehler bei FindAllFiles
:wall:
Danke, jetzt funktioniert es!!! So einfach kann es doch machmal sein. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:27 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz