From 57d2f87e6b20b256f74eb87bcd72d9866776be1f Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 22 Feb 2018 16:59:45 +0100
Subject: lesethreadunit.pas: #13 auch als Zeilenende erkennen

---
 lesethreadunit.pas | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
cgit v1.2.3-70-g09d2