Dateiimport zeilenweise per Stream
Verfasst: 17. März 2021 09:01
Hi ich versuche eine Datei per Stream einzulesen.
Dabei möchte ich gerne auf Zeilenumbrüche reagieren. Ich dachte, dass folgendes Konstrukt funktioniert:
Leider funktioniert das nicht wie gewünscht. Char 10 und 13 kommen im Stream scheinbar gar nicht an. Char 9 (Tab) hingegen hat funktiniert.
Dabei möchte ich gerne auf Zeilenumbrüche reagieren. Ich dachte, dass folgendes Konstrukt funktioniert:
- Code:
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.