根据Delphi编译器版本显示的Delphi版本代码:

{$IFDEF VER40} ShowMessage('Turbo Pascal 4.0');{$ENDIF}
{$IFDEF VER50} ShowMessage('Turbo Pascal 4.0');{$ENDIF}
{$IFDEF VER55} ShowMessage('Turbo Pascal 5.5');{$ENDIF}
{$IFDEF VER60} ShowMessage('Turbo Pascal 6.0');{$ENDIF}
{$IFDEF VER10} ShowMessage('Turbo Pascal for Windows 1.0');{$ENDIF}
{$IFDEF VER15} ShowMessage('Turbo Pascal for Windows 1.5');{$ENDIF}
{$IFDEF VER70} ShowMessage('Borland Pascal 7.0');{$ENDIF}
 
{$IFDEF VER80} ShowMessage('Delphi 1');{$ENDIF}
{$IFDEF VER90} ShowMessage('Delphi 2');{$ENDIF}
{$IFDEF VER100} ShowMessage('Delphi 3');{$ENDIF}
{$IFDEF VER120} ShowMessage('Delphi 4');{$ENDIF}
{$IFDEF VER130} ShowMessage('Delphi 5');{$ENDIF}
{$IFDEF VER140} ShowMessage('Delphi 6');{$ENDIF}
{$IFDEF VER150} ShowMessage('Delphi 7');{$ENDIF}
{$IFDEF VER160} ShowMessage('Delphi 8');{$ENDIF}
{$IFDEF VER170} ShowMessage('Delphi 2005');{$ENDIF}
{$IFDEF VER180} ShowMessage('Delphi 2006');{$ENDIF}
{$IFDEF VER185} ShowMessage('Delphi 2007');{$ENDIF}
{$IFDEF VER200} ShowMessage('Delphi 2009');{$ENDIF}
{$IFDEF VER210} ShowMessage('Delphi 2010');{$ENDIF}
{$IFDEF VER220} ShowMessage('Delphi XE');{$ENDIF}
{$IFDEF VER230} ShowMessage('Delphi XE2');{$ENDIF}
{$IFDEF VER240} ShowMessage('Delphi XE3');{$ENDIF}
{$IFDEF VER250} ShowMessage('Delphi XE4');{$ENDIF}
{$IFDEF VER260} ShowMessage('Delphi XE5');{$ENDIF}
{$IFDEF VER270} ShowMessage('Delphi XE6');{$ENDIF}
{$IFDEF VER280} ShowMessage('Delphi XE7');{$ENDIF}
{$IFDEF VER290} ShowMessage('Delphi XE8');{$ENDIF}
{$IFDEF VER300} ShowMessage('Delphi 10 Seattle');{$ENDIF}
{$IFDEF VER310} ShowMessage('Delphi 10.1 Berlin');{$ENDIF}
{$IFDEF VER320} ShowMessage('Delphi 10.2 Tokyo');{$ENDIF}
{$IFDEF VER330} ShowMessage('Delphi 10.3 RIO');{$ENDIF}
{$IFDEF VER340} ShowMessage('Delphi 10.4 Sydney');{$ENDIF}

 详情汉武帝药枕：http://docwiki.embarcadero.com/RADStudio/Rio/en/Compiler_Versions