Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
Nun habe ich eine Lösung:
Reset(Input);
Try
IF Filesize(Input) = 0 THEN
BEGIN
while not Eof(Input) do
begin
Readln(Input, s);
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
Im Prinzip richtig und ausreichend.
Aber was wenn das Programm versehentlich ohne Parameter aufgerufen wurde.
Dann erwartet das Programm in der Schleife und muss mit CTRL-C abgebrochen werden.
Es muss doch eine Möglichkeit geben, das Vorhandensein von Input zu checken.
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
>Und es wird nichts ausgegeben?
>Vielleicht ein Leerzeichen?
Nein, nichts.
>Wieso rufst du Reset.
Ohne geht auch nicht.
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
Habe ich ja vorher versucht:
Reset(Input);
while not Eof(Input) do
begin
Readln(Input, s);
Writeln(s);
end;
CloseFile(Input);
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
Danke für die Tips, beide sind richtig und funktionieren so weit.
Ich habe jetzt nur noch das Problem festzustellen ob überhaupt 'Input'
anliegt. Es soll ja eine Datei als Parameter oder eine Dateiliste aus der
Umleitung möglich sein.
Also:
tool.exe < prog.lst
Forum: Object-Pascal / Delphi-Language
Delphi
by HPW,
7. Jul 2004
Es gibt Programme/Tools bei denen kann man eine Datei mit Dateinamen auf der
Kommandozeile übergeben und das Tool verarbeitet jede Datei nacheinander.
tool.exe < prog.lst
Also das '<' Zeichen leitet den Inhalt der Datei einzeln dem Tool zu.
Wie kann ich das mit einer delphi-consol-Anwendung machen.