freepascal.ru

Есть предложение подумать (благо флеймить любят все – этож не программу писать) и придумать, что же должно быть и чему не быть в идеальном (по нашему мнению) языке программирования.

Bohdan писал(а):Вот кто подскажет, что делать с директивами условной компиляции?

Код: Выделить всё

const Platform: String = 'Win64';
...
if (Platform = 'Win32') then begin
...
end else begin
  ...
end;


AbakAngelSoft писал(а):То для чего они используются необходимо писать на самом языке:

Код: Выделить всё
const Platform: String = 'Win64';
...
if (Platform = 'Win32') then begin
...
end else begin
...
end;

Код: Выделить всё

unit ...;
...
const Platform: String = 'Win64';
...
type
if (Platform = 'Win32') then begin
  TMyType = class(TWin32Class)
  ...
  end;
end else begin
  TMyType = class(TWin64Class)
  ...
  end;
end;


Код: Выделить всё

{#IFDEF MyDEF}
type t = class(TObject);
{#ENDIF}
...
var c: t;


Код: Выделить всё

const Platform: String = 'XXX';

uses
  if Platform = 'XXX' then
    XXXTypes;
  else
    YYYTypes;
  end;

if Patform = 'XXX' then
  type
     TSomeType = integer;
end;

var
  A :TSomeType;