Hallo,
damit man das Listing noch besser sehen kann noch mal mit Delphi Einrückung,
so wie es im Original auasiht:
Delphi-Quellcode:
function GetDelphiCompilerVersion: RawUTF8;
begin
result :=
{$ifdef FPC}
'Free Pascal'
{$ifdef VER2_4_0}+' 2.4.0'{$endif}
{$ifdef VER2_4_2}+' 2.4.2'{$endif}
{$ifdef VER2_4_3}+' 2.4.3'{$endif}
{$ifdef VER2_4_4}+' 2.4.4'{$endif}
{$ifdef VER2_5_0}+' 2.5.0'{$endif}
{$ifdef VER2_5_1}+' 2.5.1'{$endif}
{$ifdef VER2_6_0}+' 2.6.0'{$endif}
{$ifdef VER2_6_1}+' 2.6.1'{$endif}
{$ifdef VER2_6_2}+' 2.6.2'{$endif}
{$ifdef VER2_6_3}+' 2.6.3'{$endif}
{$ifdef VER2_6_4}+' 2.6.4'{$endif}
{$ifdef VER2_7_0}+' 2.7.0'{$endif}
{$ifdef VER2_7_1}+' 2.7.1'{$endif}
{$else}
{$ifdef VER90} 'Delphi 2'{$endif}
{$ifdef VER100} 'Delphi 3'{$endif}
{$ifdef VER120} 'Delphi 4'{$endif}
{$ifdef VER130} 'Delphi 5'
{$else}
{$if defined(VER140)}
{$ifdef LINUX}'Kylix 3'{$else}'Delphi 6'{$endif}
{$elseif defined(VER150)} 'Delphi 7'
{$elseif defined(VER160)} 'Delphi 8'
{$elseif defined(VER170)} 'Delphi 2005'
{$elseif defined(VER185)} 'Delphi 2007'
{$elseif defined(VER180)} 'Delphi 2006'
{$elseif defined(VER200)} 'Delphi 2009'
{$elseif defined(VER210)} 'Delphi 2010'
{$elseif defined(VER220)} 'Delphi XE'
{$elseif defined(VER230)} 'Delphi XE2'
{$elseif defined(VER240)} 'Delphi XE3'
{$elseif defined(VER250)} 'Delphi XE4'
{$elseif defined(VER260)} 'Delphi XE5'
{$elseif defined(VER270)} 'Delphi XE6'
{$else} 'Delphi unbekannt'
{$endif}
{$endif}
{$ifdef CPU64}
+' 64 bit'
{$endif}
end;
Gruss Oldmann