integriere.pas: read from $1 instead of /dev/stdinHEADmaster

1 files changed, 11 insertions, 6 deletions

diff --git a/integriere.pas b/integriere.pas
index 1e5be05..71a0d18 100644
--- a/integriere.pas
+++ b/integriere.pas
@@ -12,15 +12,17 @@ var
 
 begin
 
-  if (paramcount<>2) or not fileExists(paramstr(1)) then begin
-    writeln('Usage: '+paramstr(0)+' Harmonischengrenzen.csv Kanal');
+  if (paramcount<>3)
+  or not fileExists(paramstr(1))
+  or not fileExists(paramstr(2)) then begin
+    writeln('Usage: '+paramstr(0)+' Lineout.csv Harmonischengrenzen.csv Kanal');
     halt(1);
   end;
 
-  Kanal:=strToInt(paramstr(2));
+  Kanal:=strToInt(paramstr(3));
 
   setLength(Grenzen,0);
-  assignFile(Datei, paramstr(1));
+  assignFile(Datei, paramstr(2));
   reset(Datei);
   while not eof(Datei) do begin
     readln(Datei, s);
@@ -33,8 +35,10 @@ begin
 
   y:=0;
   momentan:=0;
-  while not eof do begin
-    readln(s);
+  assignFile(Datei, paramstr(1));
+  reset(Datei);
+  while not eof(Datei) do begin
+    readln(Datei,s);
     x:=strToFloat(erstesArgument(s));
     if (momentan<length(Grenzen)) and (x>Grenzen[momentan]) then begin
       writeln(intToStr(momentan),' ',myFloatToStr(y));
@@ -44,6 +48,7 @@ begin
     erstesArgument(s);
     y:=y+strToFloat(s);
   end;
+  closeFile(Datei);
   writeln(intToStr(momentan),' ',myFloatToStr(y));
 
 end.