Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
15. Jul 2006
Bei den Dateifunktionen gibt es nicht nur diese 4 Möglichkeiten ... das einzige was wirklich "genormt" ist, sind die letzten 2 Bits.
Const fmClosed = $D7B0;
fmInput = $D7B1;
fmOutput = $D7B2;
fmInOut = $D7B3;
also sozusagen:
Const _fmClosed = $0;
_fmInput = $1;
_fmOutput = $2;
_fmInOut = $3;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
15. Jul 2006
Also gibt/gab es demnach nocht nichts dafür?
Na ja, dann bleib ich wohl dennoch besser bei STD_OUTPUT_HANDLE, da andererseits ja auch schon STD_OUTPUT_HANDLE verwendet wird ^^
If Mode = fmOutput and 3 Then Begin
F.InOutFunc := @_TextOut;
{$IFDEF _NewMode} If @F = @ErrOutput Then F.Handle := GetStdHandle(STD_ERROR_HANDLE)
Else {$ENDIF} F.Handle := GetStdHandle(STD_OUTPUT_HANDLE);
End...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
15. Jul 2006
Tachchen,
in D7 is ja folgende Variable in der SystemUnit definiert,
Var ErrOutput: Text;
allerdings ist diese noch nicht unter D4 verfügbar
und ich konnte auch keinen Ersatzt finden. -.-''
Was soll ich denn jetzt machen?