[Delphi] konsola

[cya] koledzy znam Turbo Pascala, jak zrobić w Delphi pisanie za pomocą writeln ( write ) w okienku w trybie konsoli ?

Dodaj dyrektywę
{$APPTYPE CONSOLE}
albo najlepiej File->New->Other->Console application od razyu.

[cya] ale jak zrobić tryb konsoli w okienku ?

Ten sposób tworzenia aplikacji powinien tak działać....

[cya] potrzebuje "tryb konsoli" ale w okienku ( formie ) windowsowym a nie DOSowski ekran .

[cya] potrzebuje "tryb konsoli" ale w okienku ( formie ) windowsowym a nie DOSowski ekran .

Aaaa... Coś jak emulator terminala w Konqueorze??
Widzę tylko jedną możliwość: Memo + emulacja Write/Writeln i Read/Readln.

Może dam trochę kodu:

type
TOnReaded = procedure(s: string);

var
ReadOnly: Boolean; // zmienna globalna ustawiona na True
ReadBegin: Boolean; // True
Readed: string; // ''
ReadProc: TOnReaded;

procedure TForm1.Write(s: string);
begin
Edit1.Text:=Edit1.Text + s
end;

procedure TForm1.Write(s: string);
begin
Edit1.Text:=Edit1.Text + s + #13#10
end;

procedure TForm1.Read(Proc: TOnRead);
begin
ReadProc:=Proc;
ReadOnly:=False
end;

// w Memo1.OnKeyPress
procedure TForm1.OnKeyPres(...);
begin
if ReadOnly then begin
Key:=#0
end else begin
if ReadBegin then begin
ReadBegin:=False;
Readed:=''
end;
if Key = #13 then begin
ReadOnly:=True;
ReadBegin:=True;
if Assigned(ReadProc) then ReadProc(Readed)
end else Readed:=Readed + Key;
end
end;