Dateinamen aus Datei an der Kommandozeile mit '<'

[rantanplan99]

na gut, dann eben so: *g*

Delphi-Quellcode:

var
  s: String;
  dummy: integer;

.
.
.

begin

  if ParamStr(1) <> '' then begin
    writeln('mit Parameter "' + ParamStr(1) + '" aufgerufen');
  end else begin

    Reset(Input);
    try
      dummy := filesize(input); // liefert 0 wenn Input vorlieg, ansonsten exception

      writeln('mit "< datei" aufgerufen...');

      while not EOF(Input) do
      begin
        Readln(Input, s);
        Writeln(' ' + s);
      end;
    except
      on EInOutError do writeln('Ohne Parameter aufgerufen');
    end;

    CloseFile(Input);
  end;
end.