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