Moin Thomas,
ich wusste doch, dass ich was vergessen hatte
Beim speichern eines Dateipfades
statt:
Code:
FaFileList[High(FaFileList)].sFilePath := p_sFilePath;
besser
Code:
FaFileList[High(FaFileList)].sFilePath := AnsiUpperCase(p_sFilePath);
und beim Suchen
statt:
Code:
if FaFileList[i].sFilePath = p_sFilePath then
besser
Code:
if FaFileList[i].sFilePath = AnsiUpperCase(p_sFilePath) then
Sollte sich mal die Schreibweise der Datei geändert haben, würdest Du sie ansonsten nicht finden.
BTW:
Durch diese Methode Dateien zu sperren, kann es bei einer grossen Anzahl von Dateien, gerade unter Win 98, dazu kommen, dass dem System die Dateihandles ausgehen. Allerdings gehe ich mal nicht davon aus, dass Du so viele Dateien sperren willst, als dass sich dieser Umstand hier auswirken könnte.