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