Hallo carknue,
fmShareCompat wird heute nur noch in den seltensten Fällen gebraucht (compatible bezieht sich auf DOS und SHARE.EXE). Mach es besser so:
Delphi-Quellcode:
var
fTExt: TextFile;
begin
AssignFile(fText, '');
TTextRec(fText).Mode := fmOpenRead or fmShareDenyNone;
TTextRec(fText).Mode := fmOpenWrite or fmShareDenyWrite;
Reset(fText);
CloseFile(fText);
end.
Grüße vom marabu