TFileStream und EOF?

[Luckie]

Jupp:

Delphi-Quellcode:

repeat
      BytesRead := fs.Read(Buffer[0], BUFFERSIZE);
      Move(BuffToHex(Buffer)[1], s[i * (HexLength * BUFFERSIZE) + 1],
        HexLength * BytesRead);
      Inc(i);
      Progressbar1.StepIt;
      Application.ProcessMessages;
    until BytesRead < BUFFERSIZE;

Aber er hatte nach EOF gefragt und das ist das Konstrukt, was dem am nächsten kommt.