Datei byteweise einlesen

[CalganX]

Hallo,

das Problem ist jedoch, dass ich ja nicht weiß, wie groß die einzelnen Blöcke sind. Jeder Leseaufruf eines Unicode-Strings sieht dementsprechend bei mir so oder ähnlich aus:

Delphi-Quellcode:

    fs.Read(bufSize, 4); bufSize := ChangeEndian32(bufSize);
    wbuf := StringOfChar(#00, bufSize*2);
    fs.Read(wbuf[1], bufSize*2); wbuf := SwapString(wbuf);
    writeln('Locale: ', wbuf);

Soweit ich das verstanden habe, hilft mir ein Record hier nicht weiter.

Gruß
Christopher