Textfile reset mit fmOpenRead -> E/A Fehler 32

[baumina]

In XE siehts in der Unit Classes so aus:

Delphi-Quellcode:

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;