lesethreadunit.pas kann wieder auch reguläre Dateien lesen

1 files changed, 7 insertions, 1 deletions

diff --git a/lesethreadunit.pas b/lesethreadunit.pas
index 9590c93..03b1499 100644
--- a/lesethreadunit.pas
+++ b/lesethreadunit.pas
@@ -35,7 +35,13 @@ begin
   sollVorrat:=vorratsZeilen;
 
   prozess:=tProcess.create(nil);
-  prozess.executable:='/usr/bin/cat';
+  if pos('/dev/',dateiName)=1 then
+    prozess.executable:='/usr/bin/cat'
+  else begin
+    prozess.executable:='/usr/bin/tail';
+    prozess.parameters.add('-f');
+    prozess.parameters.add('--lines=+0');
+  end;
   prozess.parameters.add(dateiName);
   prozess.options:=prozess.options + [poUsePipes];