Hi,
schlechte Karten
write & writeln sind nun mal nur noch für Dateiausgabe und Console gedacht.
Ich habe das so gelöst das ich
write & writeln in
_write & _writeln umbenannt habe und
in den entsprechenden Proceduren die Ausgabe in ein Memo lenke.
Delphi-Quellcode:
procedure _writeln(s: string); override;
begin
MemoX.Lines.Add(s);
end;
procedure _writeln(i: integer); override;
begin
MemoX.Lines.Add(IntToStr(i));
end;
procedure _write(s: string); override;
begin
MemoX.Text := MemoX.Text + s;
end;
procedure _writeln(i: integer); override;
begin
MemoX.Text := MemoX.Text + IntToStr(i);
end;
// ... //
MemoX.Text := MemoX.Text + s;
ist zwar eine blöde Lösung aber bei wenig Text ausreichend.