Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: [DOS] Ausgabe abfangen

    Delphi
    by gammatester, 14. Aug 2008
  Allerdings wird nicht zeilenweise von der Standardeingabe gelesen, wenn weder Dateiname noch piping oder redirection gewählt werden: Unter Win2000 wird nur 1 Zeile unter Win98 keine Zeile verarbeitet. Und das war ja wohl eine Vorgabe/Wunsch von Mogtar.
  
  Gammatester
• Forum: Object-Pascal / Delphi-Language

  Re: [DOS] Ausgabe abfangen

    Delphi
    by gammatester, 14. Aug 2008
  ???
  
  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...
• Forum: Object-Pascal / Delphi-Language

  Re: [DOS] Ausgabe abfangen

    Delphi
    by gammatester, 14. Aug 2008
  Er hängt nicht, sondern wartet auf EOF. Und das mußt Du halt eingeben, und das ASCII-Zeichen dafür es ist nun mal ein CtrlZ bzw. StrgZ, oder vergleiche:
• Forum: Object-Pascal / Delphi-Language

  Re: [DOS] Ausgabe abfangen

    Delphi
    by gammatester, 14. Aug 2008
  Dann gibt doch ein EOF ein: CtrlZ bzw. StrgZ.
  
  Gammatester
• Forum: Object-Pascal / Delphi-Language

  Re: [DOS] Ausgabe abfangen

    Delphi
    by gammatester, 14. Aug 2008
  Der Code aus den Beiträgen sollte natürlich angepasst werden. Wenn Du readln verwendest, sollte auch writeln verwendet werden. Un selbstverständlich hört man nicht auf wenn man irgendwas nichtleeres gelesen hat! (Also kein Wunder, daß Du nur die erste Zeile liest). Also ingesamt etwa so:
  
  var
  sOutput: string;
  begin
  while not eof(input) do begin
  readln(sOutPut);
  ...