Zitat von
Sharky:
Müsste es nicht gehen wenn Du anstelle @FileBufStr[1] "nur" FileBufStr[1] übergibst?
Richtig!
8)
... und noch'n Fehler gesehen:
if not ReadFile(hFile, FileBufStr[OldLen + 1], BUFSIZE, GotBytes, nil) then
Klammeraffe weg und (ganz wichtig) +1!
... und noch'n Nachtrag:
Wenn #13 drin vorkommt (CR), dann solltest du das rausfiltern.
(wär echt einfacher gewesen, einfach
TextFile zu benutzen
)