Forum: Object-Pascal / Delphi-Language
by SirThornberry,
23. Jul 2007
genau. 0 = kein Fehler
ungleich 0 = Fehler
Ein Fehler ist zum Beispiel wenn keine weiteren Dateien vorhanden sind.
Forum: Object-Pascal / Delphi-Language
by SirThornberry,
23. Jul 2007
@DaddyH: fast richtig. FindClose ist nicht notwendig wenn FindFirst fehl schlägt:
procedure TForm1.Button1Click(Sender: TObject);
var Rec: TSearchRec;
begin
if FindFirst('C:\Windows\*.ini',faAnyFile,Rec) = 0 then
begin
repeat
ListBox1.Items.Add(Rec.Name);
until FindNext(Rec) <> 0;
Forum: Object-Pascal / Delphi-Language
by SirThornberry,
23. Jul 2007
stop! eine Directorylistbox macht alles eigenständig! Sie füllt sich eigenständig und hat nix mit FindFirst etc. zu tun. Nimm eine normale Listbox. Und schau dir mein Beispiel von oben an.
Forum: Object-Pascal / Delphi-Language
by SirThornberry,
23. Jul 2007
FindFirst heißt ja übersetzt schon FindeErstes
FindNext heißt dann FindeNächstes
und Mit FindClose schließt man das gesuche hab.
Rufst du also FindFirst auf wird die Suche eingeleidet und das Ergebnis wird in dem übergebenen TSearchRec gespeichert.
Gibt FindFirst dir 0 zurück heißt es das mindestens einwas gefunden wurde (die suche also erfoglreich eingeleidet wurde.
Ist dies der Fall...