diff options
| author | Erich Eckner <git@eckner.net> | 2018-02-22 16:59:45 +0100 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2018-02-22 16:59:45 +0100 |
| commit | 57d2f87e6b20b256f74eb87bcd72d9866776be1f (patch) | |
| tree | 669dd6b3cc948246c2cc86eca3a3c277452eda5b | |
| parent | 0498f8ed914d5d1aa4ab3af8c6106a0979dbbacd (diff) | |
| download | units-57d2f87e6b20b256f74eb87bcd72d9866776be1f.tar.xz | |
lesethreadunit.pas: #13 auch als Zeilenende erkennen
| -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); |