Danke!
Leider kann ich die Quelle nicht korrigieren, das Textfile kommt von einer AS/400 und die fass ich nicht an
TStringList krankt am selben Problem wie ReadLn... TStringStream ist vielleicht noch eine Überlegung wert!
Ich habs jetzt temporär so gelöst, dass ich das Textfile untypisiert (Jasocul
) in einen Buffer lade, diesen vergrössere, wenn kein #13 drin ist, etc.. Als Resultat gebe ich dann den String und (Length + Anzahl #13 + Anzahl #10) zurück. Die Performance reisst mich zwar nicht vom Hocker aber es funktioniert zumindest mal...
Danke für die Tipps!!