看about上是14。
不过我数来数去只有13个版本。难道夭折的2008也算一个?delphi 7
delphi 8
delphi 2005 ----- 9
delphi 2006 ----- 10
delphi 2007 ----- 11
delphi 2009 ----- 12
delphi 2010 ----- 13 ?
不过我数来数去只有13个版本。难道夭折的2008也算一个?delphi 7
delphi 8
delphi 2005 ----- 9
delphi 2006 ----- 10
delphi 2007 ----- 11
delphi 2009 ----- 12
delphi 2010 ----- 13 ?
function GetDelphiVer:String;
begin
{$IFDEF VER110}
Result:='110';
{$ENDIF}
{$IFDEF VER120}
Result:='120';
{$ENDIF}
{$IFDEF VER130}
Result:='130';
{$ENDIF}
{$IFDEF VER140}
Result:='140';
{$ENDIF}
{$IFDEF VER150}
Result:='150';
{$ENDIF}
{$IFDEF VER160}
Result:='160';
{$ENDIF}
{$IFDEF VER170}
Result:='170';
{$ENDIF}
{$IFDEF VER180}
Result:='180';
{$ENDIF}
{$IFDEF VER185}
Result:='185';
{$ENDIF}
{$IFDEF VER190}
Result:='190';
{$ENDIF}
{$IFDEF VER200}
Result:='200';
{$ENDIF}
{$IFDEF VER205}
Result:='205';
{$ENDIF}
{$IFDEF VER210}
Result:='210';
{$ENDIF}
{$IFDEF VER215}
Result:='215';
{$ENDIF}
{$IFDEF VER220}
Result:='220';
{$ENDIF}
end;
// 条件编译的版本定义{$IFDEF ver120}
{$DEFINE Delphi4}
{$DEFINE Delphi4or5}
{$ENDIF}
{$IFDEF ver130}
{$DEFINE Delphi5}
{$DEFINE Delphi4or5}
{$ENDIF}
{$IFDEF ver140}
{$DEFINE Delphi6}
{$ENDIF}
{$IFDEF ver150}
{$DEFINE Delphi7}
{$ENDIF}
{$IFDEF ver170}
{$DEFINE Delphi2005}
{$ENDIF}
{$IFDEF ver180}
{$DEFINE Delphi2006}
{$ENDIF}
{$IFDEF ver185}
{$DEFINE Delphi2007}
{$ENDIF}
{$IFDEF ver200}
{$DEFINE Delphi2009}
{$ENDIF}
{$IFDEF ver210}
{$DEFINE Delphi2010}
{$ENDIF}{$IFNDEF Delphi4or5}
{$DEFINE Delphi6AndUp}
{$IFNDEF Delphi6}
{$DEFINE Delphi7AndUp}
{$IFNDEF Delphi7}
{$DEFINE Delphi2005AndUp}
{$IFNDEF Delphi2005}
{$DEFINE Delphi2006AndUp}
{$IFNDEF Delphi2006}
{$DEFINE Delphi2007AndUp}
{$IFNDEF Delphi2007}
{$DEFINE Delphi2009AndUp}
{$IFNDEF Delphi2009}
{$DEFINE Delphi2010AndUp}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}