Dateinamen aus Datei an der Kommandozeile mit '<'

[HPW]

Nun habe ich eine Lösung:

Code:

  Reset(Input);
  Try
  IF Filesize(Input) = 0 THEN
  BEGIN
  while not Eof(Input) do
    begin
      Readln(Input, s);
      Writeln(s);
    end;
  END;
  except
      Writeln('Aufruf: Tool.exe file1.txt oder Tool.exe < file.lst');
  END;
  CloseFile(Input);

Der Error zeigt an das ohne Parameter aufgerufen wurde.