mORMot Open Source

function GetDelphiCompilerVersion: RawUTF8;
begin
  result :=
{$ifdef FPC}
  'Free Pascal'
  ...
{$else}
   {$ifdef VER90}  'Delphi 2'{$endif}
   ...
   {$elseif defined(VER240)} 'Delphi XE3'
   // <---- The mORMot what i got had no any code here. But i used XE8. so here will  raise an error, because there no const string defined and code become " result := ";
   {$ifend}   
{$endif}
end;

Suggest style:
function GetDelphiCompilerVersion: RawUTF8;
begin
  result :=
{$ifdef FPC}
  'Free Pascal'
  ...
{$else}
   {$ifdef VER90}  'Delphi 2'{$endif}
   ...
   {$elseif defined(VER240)} 'Delphi XE3'
   {$else} 'Delphi XE3 higher version'   
   {$ifend}   
{$endif}
end;