Einzelnen Beitrag anzeigen

Moony

Registriert seit: 29. Jul 2003
Ort: Essen
454 Beiträge
 
Delphi 2010 Professional
 
#1

File Of Byte gibt Exception beim Öffnen

  Alt 17. Mär 2009, 14:02
Halo,

kann mir jemand vielleicht sagen warum ich beim Reset eine EInOutError Exception mit dem Fehlercode 103 bekomme?

Delphi-Quellcode:
var
  myFile : File of Byte;
  Lst : TStringList;
  iItem : Integer; // Schleifenvariable
...
AssignFile(myFile, Lst.Strings[iItem]); // vollständiges Verzeichnis mit Dateiname vorhanden in
FileMode := fmOpenRead;
Reset(myFile);
try
  SetLength(myData, FileSize(myFile));
  while not Eof(myFile) do
    Read(myFile, myData[FilePos(myFile) - 1]);
finally
  CloseFile(myFile);
end;
...
Danke & Gruß, Moony
Ich weiß, daß ich nichts weiß! Sokrates
  Mit Zitat antworten Zitat