[FMX] Debugausgaben

[wurzelzwerg]

Ja, 10.7
Hab mir das jetzt selbst gebastelt, hoffe das geht auch bei IOS.
Den Kram mit Umgebungsvariablen brauch ich nicht.

Delphi-Quellcode:

unit Debug;

interface

uses
{$IFDEF MSWINDOWS}
  Winapi.Windows,
{$ENDIF}
  System.SysUtils;

procedure DebugPrint(Text: string); overload;
procedure DebugPrint(Fmt: string; const Args: array of const); overload;

implementation

procedure DebugPrint(Text: string);
begin
{$IFDEF DEBUG}
{$IFDEF MSWINDOWS}
  OutputDebugString(PChar(Text));
{$ENDIF}
{$IFDEF MACOS}
  WriteLn(Text);
{$ENDIF}
{$ENDIF DEBUG}
end;

procedure DebugPrint(Fmt: string; const Args: array of const);
begin
{$IFDEF DEBUG}
{$IFDEF MSWINDOWS}
  OutputDebugString(PChar(Format(Fmt, Args)));
{$ENDIF}
{$IFDEF MACOS}
  Writeln(Format(Fmt, Args));
{$ENDIF}
{$ENDIF DEBUG}
end;

end.