Bedingte Kompilierung – Kniffliger Fall

[himitsu]

IsConsole ?

Bzw. {$IFDEF CONSOLE} , wenn die Anwendung als Console {$APPTYPE CONSOLE} kompiliert wird.



Für WriteLn einfach die Fehlerbehandlung deaktivieren, also {$I-} oder verständlicher {$IOCHECKS OFF} ,
oder ohne jegliche Fehlerprüfung selber schreiben.

Delphi-Quellcode:

program Project9;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Winapi.Windows;

type
  OEMString = type AnsiString(CP_OEMCP);  // wenn es nur ASCII ist, dann geht auch AnsiString;
var
  S: OEMString;
  H: THandle;
  X: Cardinal;
begin
  H := GetStdHandle(STD_OUTPUT_HANDLE);
  S := 'hallo'#10;
  WriteFile(H, S[1], Length(S), X, nil);
  WriteFile(H, S[1], Length(S), X, nil);
  Sleep(5000);
end.