Probleme beim öffnen einer Datei

[JSch]

Hallo,

ich habe folgende Problem: Mit dem nachfolgenden Code möchte ich eine über das Dialogfeld ausgewählte Datei zum lesen öffnen. Das funktioniert auch, solange das ReadOnly-Attribut der Datei nicht gesetzt ist. Ist das ReadOnly-Attribut der Datei gesetzt, erscheint bei der Ausführung des Reset(f1)-Befehls die Fehlermeldung "... Exception der Klasse EInOutError aufgetreten" .

Delphi-Quellcode:

procedure TMainForm.Laden1Click(Sender: TObject);
var
  f1: file of char;
  Pfad: string;
begin
   if OpenDialog1.Execute then
   begin
      Pfad:=OpenDialog1.FileName;
      TRY
          AssignFile (f1,Pfad);
          //{$i-}
          Reset (f1);   //Datei öffnen
          //{$i+}
          ...
      EXCEPT
          ShowMessage ('Fehler beim Lesen der Datei!');
      END;
...

Was mache ich nun schon wieder falsch?

Vielen Dank für Euren Beistand.

Mfg

JSch[b]

[semo]

das steht in der delphi2006 hilfe:

Zitat:

In Delphi code, Reset opens the existing external file with the name assigned to F using the mode specified by the global FileMode variable. An error results if no existing external file of the given name exists or if the file can't be opened with the current file mode. If F is already open, it is first closed and then reopened. The current file position is set to the beginning of the file.


Warning:
The default value of FileMode is 2 (Read/Write access). If this is not changed to a read-only file mode before calling Reset, attempts to open read-only files will fail.

Du musst also noch die globale Variable "filemode" entsprechend anpassen.

[Luckie]

Setz mal den FileMode auf ReadOnly. Und bau die Funktion mal so um:

Delphi-Quellcode:

Pfad:=OpenDialog1.FileName; 
AssignFile (f1,Pfad); 
{$i-} 
FileMode := fmOpenRead;
Reset (f1);   //Datei öffnen 
if IOResult = 0 then
begin
  //...;
  CloseFile(f1)
end
else
  ShowMessage(SysErrorMessage(GetLastError));
{$i+}

[semo]

noch ein kleiner nachtrag:

Zitat:

Assigning another value to FileMode causes all subsequent Resets to use that mode. The SysUtils unit declares a number of file open mode constants that can be assigned to the FileMode variable.

[Muetze1]

... und zusätzlich möchte ich nochmal darauf hinweisen, dass zur Laufzeit unter IDE die Exception ausgegeben werden - egal ob sie abgefangen werden oder nicht. Dies macht die IDE. Starte dein Programm ohne IDE und die entsprechende Exception sollte nicht zu sehen sein.

[JSch]

Hi,

vielen Dank an alle - Problem gelöst.

Mfg,

JSch