Ich hatte vor 2 Jahren das gleiche Problem bei nur einem einzigen Kunden. Da hat wirklich die Angabe des Sharemodes geholfen,
beim Lesen
TStream.Create(FileName, fmOpenRead or fmShareDenyWrite)
und beim Schreiben
TStream.Create(FileName, fmCreate or fmShareExclusive)
bzw. TStream.Create(FileName, fmOpenWrite or fmShareExclusive)
Funktioniert tatsächlich! Allerdings ist das Problem, dass Delphi in
TStrings.SaveToFile
auch nur
Delphi-Quellcode:
Stream := TFileStream.Create(FileName, fmCreate);
try
SaveToStream(Stream, Encoding);
finally
Stream.Free;
end;
macht... Also was tun? Alle Stringlisten "SaveToFile" mit eigener Speicherroutine versehen? Is blöd...