Delphi FindFirst, FindNext

Thema durchsuchen

Ansicht

Themen-Optionen

FindFirst, FindNext

Ein Thema von nailor · begonnen am 6. Jan 2003 · letzter Beitrag vom 12. Jan 2003

Vorheriger Beitrag

Nächster Beitrag

nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge

7. Jan 2003, 01:18

Thx, waren ein paar gute Tipps dabei, und sorry für die Mühe mit dem Typo bei C-Doppelpunkt-Backslash bzw. C-Backslash-Doppelpunkt. Hab mich echt vertan

Aber trotzdem:

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var dat: tsearchrec;

begin

SetCurrentDir('c:\');

FindFirst('*.*', faanyfile, dat);

Caption := dat.name;

end;

Lifert im Gegensatz zu jedem andern Verzweichnis nicht '.' zurück. Obwohl doch auch im Hauptverzeichnis das aktuelle Verzeichnis mit '.' bezeichnet sein müsste...

Michael N.

http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::