[DOS] Ausgabe abfangen

[Andi1985]

Zitat von 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

Das funktioniert.
vielen Dank an alle die mir geholfen haben!

[closed]