Delphi Compiler Direktive

[FriedrichAT]

Hallo!
Hier für Debug bzw. Release / 32 od. 64

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);

  {$IFDEF DEBUG}
    {$IFDEF WIN32}
    //Form1.Caption:= 'FM Hashtest Debug-X32';
    //Application.Title:= 'FM Hashtest Debug-X32';
    {$ENDIF WIN32}

    {$IFDEF WIN64}
     //Form1.Caption:= 'FM Hashtest Debug-X64';
     //Application.Title:= 'FM Hashtest Debug-X64';
     {$ENDIF WIN64}
  {$ENDIF DEBUG}

  {$IFDEF RELEASE}
    {$IFDEF WIN32}
    //Form1.Caption:= 'FM Hashtest - X32';
    //Application.Title:= 'FM Hashtest - X32';
    {$ENDIF WIN32}

    {$IFDEF WIN64}
    //Form1.Caption:= 'FM Hashtest - X64';
    //Application.Title:= 'FM Hashtest - X64';
    {$ENDIF WIN64}
  {$ENDIF RELEASE}


  Application.Run;
end.