diff options
-rw-r--r-- | integriere.pas | 17 |
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. |