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;

[mm1256]

Zitat von baumina:

Aber auch schade, dass man der Stringlist beim LoadFromFile keinen Mode mitgeben kann.

Bleibt der Umweg über TStream. Zuerst das File in den TStream und dann die TStringList vom >TStream holen

[kpf]

Ich will das Thema noch einmal hochholen, weil es eine ganz einfache Ursache haben kann.
Oft steht man mit dem Explorer auf der Datei, ohne sie geöffnet zu haben, weil man nach der Quellcodeänderung sehen will, was sich verändert hat.
Das ist aber auch schon die Ursache, falls der Code richtig ist.
Stellt den Explorer auf die Nachbardatei, nur draufklicken, ohne zu öffnen, so dass eure Textdatei nicht mehr markiert ist.
Schon geht es. Ist mir schon öfter passiert, auch bei anderen Programme, "Kann nicht löschen, weil ein anderes Programm die Datei geöffnet hat". Die gleiche Ursahce.

Viele Grüße aus Bredow

Klaus-Peter

[himitsu]

Da ist die Ursage dann aber auch nur eine langsame/schrottige Explorer-Erweiterung eines Drittherstellers. (z.B. von Adobe)