Datei für Schreibzuriffe sperren?

[Christian Seehase]

Moin Thomas,

bitte gerne. :D

Um kurz auf die Positionierung der Variablen die vom Typ TcsFileLocker ist zu kommen:

Zum einen eignet sie sich wohl als Eigenschaft des Hauptformulares, so dass das Objekt dann im OnCreate des Formulares erzeugt, und im OnDestroy wieder freigegeben werden kann, oder aber als globale Variable. Erzeugt und wieder freigegeben wird es dann im initialization/finalization Abschnitt der Unit, in der die Variable deklariert wird.

[Christian Seehase]

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.

[thomasdrewermann]

Jo, ich werde es ändern!