[DOS] Ausgabe abfangen

[marabu]

Hi

Delphi-Quellcode:

var
  line: string;

begin
  AssignFile(input, ''); //stdin
  AssignFile(output, ''); //stdout
  Reset(input);
  Rewrite(output);
  while not Eof do
  begin
    ReadLn(line);
    WriteLn(line);
  end;
  CloseFile(output);
  CloseFile(input);
end.

Grüße vom marabu