File Of Byte gibt Exception beim Öffnen

[Moony]

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

[taaktaak]

Moin,
Fehler 103 meint "Datei nicht geöffnet"
Ist die Pfadangabe korrekt?
Hast du das mal überprüft?

PS: Warum immer "FilePos(myFile) - 1"? Genügt da nicht ein einfacher Zähler?

[messie]

Übergib' mal Deinen Dateinamen einer String-Variable und verwende die mit AssignFile. Ich bin mir nicht sicher, ob diese Uraltroutine mit dem übergebenen List.Strings[n] umgehen kann.

Grüße, Messie

[taaktaak]

Ist aber eine sehr schöne "Uraltroutine" :-D

[gammatester]

Zitat:

Zitat von taaktaak

PS: Warum immer "FilePos(myFile) - 1"? Genügt da nicht ein einfacher Zähler?

Genau! Außerdem muß bei dieser Konstruktion myData[-1] vorhanden sein, da am Dateianfang Filepos = 0 ist. Die Deklaration von myData fehlt zwar, ich vermute aber trotzdem mal, daß das so nicht geplant ist und die nächsten Exception vor der Tür steht.

Gammatester

[messie]

Zitat:

Zitat von taaktaak

Ist aber eine sehr schöne "Uraltroutine" :-D

Ich benutze sie auch - weiß aber nicht, ob die mit einem Pointer auf einen String umgehen kann.

Grüße, Messie

[Moony]

Also, ich weiß nicht was es ist bzw. war aber ich hab ein neues Projekt gestartet und meine bestehenden funktionen und co ins neue projekt kopiert und da funktioniert es.

Dennoch danke. Wenn ich Zeit habe werde ich mich dann damit genauer beschäftigen, was da los its.

Gruß, moony