Textdatei mit Filelock öffnen und zeilenweise auslesen

[p80286]

Zitat von whiteF:

ich möchte eine textdatei mit einem filelock belegen (schreib und leserechte), dann soll dieser textdatei eine zeile hinzugefügt werden und zeilenweise ausgelesen werden, JEDOCH NUR wenn diese textdatei keinen vorherigen filelock von einem anderen programm hat.

Was meinst Du damit?
Im "Normalfall" ist eine Datei, die beschrieben werden soll, exclusiv geöffnet. D.h. ein anderes Programm darf nicht darauf zugreifen.

Delphi-Quellcode:

procedure WriteTestline(filename:string);
var
  f :Textfile;
begin
  assignfile(f,filename);
  rewrite(f);
  writeln(f,'Teststring');
  closefile(f);
end;

Gruß
K-H

[whiteF]

danke für dein beitrag p80286,

ich meine folgendes:
Öffne mal die eine textdatei (>filename) mit dem Editor (Notepad) und dann erst führe dein code aus.
Danach die Delphi Anwendung und Editor/Notepad schliessen und die Textdatei erneut mit dem Editor öffnen.
Der String "Teststring" ist nun in der Textdatei obwohl der Editor bereits vor ausführung des codes die datei geöffnet hatte.

Ich möchte das mein Programm mir dann sagen soll, "stop, die datei ist bereits geöffnet. mache was anderes anstatt die datei zu öffnen".
Da letztendlich mein Programm 2 mal ausgeführt wird, möchte ich prüfen ob die datei bereits mit schreibrechten geöffnet ist.

[Fritzew]

Notepad öffnet die Datei zum lesen, liest alles ein und schließt die Datei wieder.
Da kommst Du nicht dagegen an wenn Notepad vor Dir die Datei öffnet.

Bei Dir selber kannst Du es verhindern wenn Du die Datei öffnest sobald Dein Programm gestartet wird und erst beim schliessen wieder freigibst.

[p80286]

Oder um es anders auszudrücken, in dem Moment, in dem Dein Programm in die Datei schreiben will, ist die Datei nicht geöffnet.

Gruß
K-H