Dabei möchte ich gerne auf Zeilenumbrüche reagieren. Ich dachte, dass folgendes Konstrukt funktioniert:
- Code: Alles auswählen
CR := 10;
LF := 13;
ImportFile.OPEN('C:\TEMP\im.txt');
ImportFile.CREATEINSTREAM(IStream);
WHILE NOT IStream.EOS DO BEGIN
IStream.READtext(Buffer);
FOR BufferPos := 1 TO STRLEN(Buffer) DO BEGIN
if Buffer[BufferPos] = CR then
...
Leider funktioniert das nicht wie gewĂĽnscht. Char 10 und 13 kommen im Stream scheinbar gar nicht an. Char 9 (Tab) hingegen hat funktiniert.