Probleme mit Writeline

[marabu]

Zitat von STS301:

... jetzt tritt Fehler 104 auf

Mein Fehler - ich habe den Code für die Konsolenausgabe aus einem meiner Filterprozesse zusammenkopiert und das ReadLn() einfach ohne großes Nachdenken dazugeschrieben. Da du Lesen und Schreiben möchtest brauchst du zwei Kanäle:

Delphi-Quellcode:

program Demo;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  conIn, conOut: TextFile;
  n: Integer;

begin
  AssignFile(conIn, 'con:');
  Reset(conIn);
  AssignFile(conOut, 'con:');
  Rewrite(conOut);
  Write(conOut, 'Number: ');
  ReadLn(conIn, n);  // ... look ma - no hands
  Write(conOut, 'Press ENTER to proceed...');
  ReadLn(conIn);
  CloseFile(conOut);
  CloseFile(conIn);
end.

Die Verwendung der vordefinierten Dateivariablen input und output vermeide ich bei interaktiven Konsolanwendungen, da ich sie in der Regel für eine unabhängige I/O-Redirection benötige.

Freundliche Grüße