Wozu kopierst du eigentlich in SearchFor, anstatt eine "normale" Stringvariable zu nutzen?
Nja, es gibt hier noch ein anderes Problem:
Was passiert wohl, wenn sich dein Such-String an der Grenze des Puffers befindet?
Also schon vor deinem Seek befindet, aber OK, das kann man ignorieren,
aber was ist, wenn er erst am Ende eines Buffers befindet?
Du liest ein Stück der Datei beim nächsten Durchlauf der Schleife, ist der Rest am Anfang des neuen Teils.
Da findet dein StrPos dann nichts.
Bei einem StringStream oder beim Einlesen in einen String kannst du auch Pos und gar
ContainsText verwenden.
Aber du mußt beim Einlesen das Ende (mindestens soviele Zeichen -1, wie im Suchstring beibehalten.
- Lese Zeichen Buffer
- suche
- kopiere die letzen Zeichen nach vorne und lese dahinter neue Zeichen ein (Buffergröße minus Suchgröße ab Position Suchgröße)
- suche
- kopiere die letzen Zeichen nach vorne und lese dahinter neue Zeichen ein (Buffergröße minus Suchgröße ab Position Suchgröße)
- suche
...
PS: Ab Delphi 2009 wird dein Code nicht mehr funktionieren, denn Dateioperation oder Datenübertragungen macht man
NIEMALS mit dynamischen Typen (String, Char, NativeInt usw.), denn Diese verändern sich schnell mal!