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