Probleme mit GetFilesInDirectory Procedure

[himitsu]

Altes ANSI-Delphi? (D7 oder davor)
Und kein Kompatibilitätsmanifest vorhanden, bzw. läuft die Anwendung in einem Kompatibilitätsmodus? (WinXP oder so)

Hmmm, eigentlich sieht es nicht so aus,
aber würden die ShortNames verwendet, dann wäre es eine Erklärung.
Ohh ja, es werden ShortName und LongName vom FindFirst/FindNext berücksichtigt.

Verwende deinen Debugger und schau, was im SR alles drin steht, bzw. genauer in SR.FindData.cAlternateFileName




Ist Directory leer '' , dann raucht es dir ab

Delphi-Quellcode:

if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';

und, selbst wenn nicht, dann sollte if Directory = '\' then Exit; bestimmt erst danach erfolgen.

EndsStr, bzw. IncludeTrailingBackslash IncludeTrailingPathDelimiter

TDirectory.GetFiles