Prüfen, ob ein Text zugewiesen ist

[Der schöne Günther]

Ja, dieser gruselige Variablentyp Text .

Ich möchte prüfen, ob meine Anwendung in System.Output bereits auf einen gültigen Standard-Ausgabeweg zeigt oder nicht.

Mir fiele nur ein, testweise einmal ein WriteLn(..) zu machen und

• keine Exception: Ja
• Exception: Nein

Ich kann System.Output nicht mit Assigned(System.Output) oder System.Output = 0 prüfen. Mir fällt nicht ein, mit was ich das überhaupt vergleichen könnte.

[sx2008]

Versuche mal die indirekte Prüfung über

Delphi-Quellcode:

if Windows.GetStdHandle(STD_OUTPUT_HANDLE {=-11}) = 0 then
  ShowMessage('no output handle');

[Der schöne Günther]

Danke, das bringt mich viel weiter!

PS: Intern mappt der Typ "Textfile" auf "System.TTextRec". Der hat auch die Eigenschaft Handle.

Ich habe alles was ich wissen wollte. Danke nochmal.