Zitat von
ThE_-_BliZZarD:
Und die FindNext durch "FindNextFileW" oder was? muss ich was beachten? weil ich der Delphi7Hilfe stehen die Funktionen nicht
Also mein D7 kennt FindNextFile (Menü > Hile > Windows
SDK).
nur wie Luckie schon sagte hat's die
VCL nicht so mit'm
Unicode und da die von Borland Konsequent sind, gibt's auch fast kein
Unicode in der
WinAPI-Hilfe. (OK, im
MSDN gibt's davon och nicht viel)
Allerdigns sind die Befehle gleich den
ANSI-Versionen aufgebaut, nur halt die String als Wide...
oder du schaust einfach mal ins
MSDN >
FindNextFileW
[add]
ich hoffe du hast i initialisiert?
Ansonsten ... wenn ich i umstelle und den Code kürze, dann kommt ja dieses raus
und einen Fehler kann ich da nicht entdecken, jedenfalls keinen welcher der ein "Festfahren"? erklären würde.
Delphi-Quellcode:
if FindFirst('*', faAnyFile, searchResult) = 0 then
begin
repeat
i := Length(ergebnisse);
SetLength(ergebnisse, i + 1);
ergebnisse[i].is_directory := (searchResult.Attr and faDirectory) = faDirectory;
ergebnisse[i].name := searchResult.Name;
ergebnisse[i].size := 0;
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
Zitat:
Das Listing versucht den Ordner zu öffnen, öffnet sich aber immer wieder
selbst (rekursiv..) und fährt sich dort fest.
Aber wo ist hier was rekursiv und wo wird was geöffnet?