IOResult ohne Schreibrechte auf EXE Pfad???

[mrose]

Hallo!

In einer Routine versuche ich ein RichEdit nicht über die Methode LoadFromFile mit den Inhalten einer Textdatei zu laden, da ich ständig große Dateien hatte und mir diese Methode dann immer einfach die Datei abgeschnitten hat. Nun habe ich eine eigene Routie in dem Stil (bei mir macht sie noch etwas mehr) geschrieben:

Delphi-Quellcode:

  procedure LoadRichEdit(var RichEdit:TRichEdit; FileNameRich:String);

  begin
    {$I-}
    // clear richedit
    Richedit.Lines.Clear;
    // open file to load
    AssignFile(xTmpFile,FileNameRich);
    Reset(xTmpFile);
    if IOResult = 0 then
    begin
      while not(eof(xTmpFile)) do
      begin
        // read one line
        readln(xTmpFile,sTempLine);
        RichEdit.Lines.Add(sTempLine);
      end;
      CloseFile(xTmpFile);
    end;
    RichEdit1.SelStart := 0;
    RichEdit1.Sellength := 0;
    {$I+}
  end;

Das funktioniert auch hervorragend, solange der eingeloggte Benutzer Schreibrechte auf die Directory hat, in welcher sich meine Programmexe befindet. Das zu lesende File befindet sich aber NICHT an diesem Platz. Gehe ich mit dem Debugger schrittweise durch das Programm, dann scheint es, das das IOResult immer <> 0 ist, sobald die Schreibrechte auf die Programmexe Directory abgeschaltet sind.

Kann mir bitte jemand erklären, was ich falsch mache??? Vielleicht bin ich ja auch nur zu blind.... Vielen Dank schon mal!

Matthias.

[Luckie]

Reset öffnet die Datei immer mit Lese- und Schreibrechten. Setze vor die Variable FileMode entsprechend.

BTW kann ich dein Problem micht nachvollziehen. Und wenn dann würde ich es mit LoadFromStream probieren, anstatt dieser veralteten Pascal Methode.

[Muetze1]

Moin!

Und beachten das bei eingeschalteter IO Überprüfung er eine Exception schmeisst anstatt IOResult zu setzen!

/EDIT: Sehe gerade das du es für die gesamte Routine abgeschaltet hast.

MfG
Muetze1

[mrose]

Sorry, ich bin doch blind. Naürlich funktioniert der Code richtig. Mein Problem lag an einer ganz anderen Stelle. Das IOResult ist global und eine andere Routine in einer anderen Unit der Application erzeugt, leider so ziemlich zur selben Zeit, ein IO Problem und damit wird mir das IOResult verbogen..... Nachdem ich das identifiziert und gefixt hatte lief alles...
Danke auf jeden Fall für die Hilfe!

Matthias.

P.S.:
Buy a computer today and get the thrill of making your own errors - electronically...

[Luckie]

Zitat von mrose:

Das IOResult ist global und eine andere Routine in einer anderen Unit der Application erzeugt, leider so ziemlich zur selben Zeit, ein IO Problem und damit wird mir das IOResult verbogen

Nach dem du gesehen hast, was solche gloabalen Deklarationen anrichten können, hoffe ich, dass du das ganz fix geändert hast.