Zitat:
Delphi-Quellcode:
var StillFiles: Integer;
begin
Image.Proportional := true;
Image.Stretch := true;
FFileList := TStringList.Create;
while (FindFirst(FFilename,faAnyFile,FSearch)=0) and (StillFiles=0) do
begin
FFileList.Add(FSearch.Name);
StillFiles := FindNext(FSearch);
end;
Warnt dich denn nicht der Compiler vor dem nicht initialisierten StillFiles?
Ich könnte fast wetten diese Variable ist nicht 0 und deswegen wird auch nicht in die Schleife gesprungen.
Du kannst aber froh sein, denn wäre dort reingesprungen wurden, dann hättest du dir vermutlich eine Endlosschleife gebastelt.
Denn wer kommt schon auf die Idee FindFirst ebenfalls mit in die Schleife aufzunehmen?
Da wird der Suchvorgann immer wieder von neu vorne gestartet.
PS: In der
DP und vorallem in der CL gibt es schon mehrere Codes ala "find all files".
FindAllFiles
FindAllFiles
...
Ansonsten steht in deiner Delphi-
OH sogar ein Beispielcode für FindFiles.
FindFirst (auch zu Erreichen über die geheime F1-Funktion)
Tipp für neuere Delphis:
TDirectory.GetFiles