Einzelnen Beitrag anzeigen

Benutzerbild von MaBuSE
MaBuSE

Registriert seit: 23. Sep 2002
Ort: Frankfurt am Main (in der Nähe)
1.840 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

Re: Ausgabe auf "Pseudoconsole" umleiten

  Alt 8. Dez 2006, 10:01
Zitat von Bernhard Geyer:
Jedoch möchte ich für Fehlersuche nicht jedesmal meine Anwendung als Consolenapplikation kompilieren.
Brauchst Du doch gar nicht.

Wenn Du eine Console brauchst, dann erzeug dir eine.
Wenn Du sie nicht mehr brauchst, entferne sie wieder.

Dieses Consolenfenster sollte auch Deine Java Dingens erkennen

z.B.:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  AllocConsole;
  SetConsoleTitle('Debug Ausgaben');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FreeConsole;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if GetConsoleCP <> 0 then
  begin
    WriteLn('Das ist ein Log');
  end;
end;
(°¿°) MaBuSE - proud to be a DP member
(°¿°) MaBuSE - proud to be a "Rüsselmops" ;-)
  Mit Zitat antworten Zitat