Zitat von
Mogtar:
aber das Programm soll ohne die Manuelle Eingabe des Benutzern laufen...
wenn ich dich jetzt richtig verstehe.. das heißt ich muss das Quellcodetechnisch abfangen... nur wie...
???
Du wolltest doch wissen, wie man ein EOF eingibt, wenn man das Programm
interaktiv ohne Redirection startet! (Genauer Du hast behauptet "er hängt wenn ..."). Und nur darauf habe ich geantwortet.
Wenn Du die ganze Zeit meinst, wie man feststellen kann, ob input umgeleitet ist oder eine Konsole ist: Es muß irgendwo eine
API-Funktion geben, die in etwa sagt "
handle is console" (jedenfalls gibt's das im DOS-
API, und es würde mich wundern wenn's so eine Fkt. nicht für
WIN32 gibt). Als
Handle dann entweder TTextRec(input).Handle oder GetStdHandle(STD_INPUT_HANDLE) verwenden. (Ungetestet! Also ausprobieren, bzw. selbstfinden oder auf Hinweise von anderen
DP-Usern warten).
Gammatester
Zusatz via Edit: Ein kurzer Test zeigt, daß
GetFileType(GetStdHandle(STD_INPUT_HANDLE))
je nach Aufrufart unterschiedliche Werte liefert, hier für die Werte siehe Delphihilfe zu GetFileType