看about上是14。
不过我数来数去只有13个版本。难道夭折的2008也算一个?delphi 7
delphi 8
delphi 2005 ----- 9
delphi 2006 ----- 10
delphi 2007 ----- 11
delphi 2009 ----- 12
delphi 2010 ----- 13 ?

解决方案 »

  1.   

    用這個函數查一查
    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}