diff options
| -rw-r--r-- | lesethreadunit.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lesethreadunit.pas b/lesethreadunit.pas index 1d7f4d8..5d563ef 100644 --- a/lesethreadunit.pas +++ b/lesethreadunit.pas @@ -80,6 +80,8 @@ begin while (_anzahl<sollVorrat) and (prozess.output.numBytesAvailable>0) do begin setLength(s,min(maxLen,prozess.output.numBytesAvailable)); len:=prozess.output.read(s[1],length(s)); + while pos(#13,s)>0 do + s[pos(#13,s)]:=#10; for i:=1 to len do _anzahl:=_anzahl+byte(s[i]=#10); puffer:=puffer+copy(s,1,len); |