Forum: Object-Pascal / Delphi-Language
Delphi
by negaH,
23. Okt 2003
Weil er entweder alle Ausgaben parallel auf dem Display und Datei ausgeben will, oder weil er die Ausfagen an die "Console" virtuell in ein TRichEdit/TMemo umlenken will.
Gerade der letze Fall ist super gut. Ich selber habe dies dafür benutzt um alle mit WriteLn(), Write() und ReadLn() gemachten Ein/Asugaben in ein Richtedit auf einem TForm ein/auszugeben. Statt also ein Consolen Programm mit...
Forum: Object-Pascal / Delphi-Language
Delphi
by negaH,
23. Okt 2003
procedure AssignHook(var F: Text);
function DeviceOpen(var F: TTextRec): Integer; register;
begin
Result := 0;
end;
function DeviceClose(var F: TTextRec): Integer; register;
begin
Result := 0;