Thema: Delphi Dateien und Exceptions

Einzelnen Beitrag anzeigen

Benutzerbild von Ricane
Ricane

Registriert seit: 21. Mär 2003
Ort: Quickborn
170 Beiträge
 
Delphi 7 Architect
 
#7

Re: Dateien und Exceptions

  Alt 11. Apr 2004, 14:29
Hi,

ich habe ein ähnliches Problem... mit folgendem Code arbeite ich...

Delphi-Quellcode:
Procedure TFrmMain.Suchen();
Var

  I, Posi: Integer;
  Datei: File Of Byte;

Begin

  For I := 1 To lstAllFiles.Items.Count - 1 Do
  Begin
    AssignFile(Datei, LstAllFiles.Items[I]);
    Reset(Datei);

    [...]

    DateiSize.Add(IntToStr(FileSize(Datei)));
    CloseFile(Datei);
  End;

End;
Das funktioniert auch ganz gut, aber aber wenn die Datei schreibgeschützt ist, gibt es eine Exception ("Zugriff verweigert"). Warum?! AssignFile setzt doch eh nur ReadOnly oder wie sehe ich das ?!


Beste Grüsse und frohe Ostern,

Ricane
Hendrik
So much to Code... so less Time....

www.RicaneSoftware.de
  Mit Zitat antworten Zitat