Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#9

AW: Bedingte Kompilierung – Kniffliger Fall

  Alt 27. Aug 2022, 16:47
Delphi-Referenz durchsuchenIsConsole ?

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.
$2B or not $2B

Geändert von himitsu (27. Aug 2022 um 21:57 Uhr)
  Mit Zitat antworten Zitat