VER10  : Turbo Pascal 1
VER20  : Turbo Pascal 2
VER30  : Turbo Pascal 3
VER40  : Turbo Pascal 4
VER50  : Turbo Pascal 5
VER60  : Turbo Pascal 6
VER70  : Turbo Pascal 7 / Borland Pascal 7
VER80  : Delphi 1
VER90  : Delphi 2
VER100 : Delphi 3
VER110 : ?
VER120 : Delphi 4
VER130 : Delphi 5
VER140 : Delphi 6
VER150 : Delphi 7
VER160 : Delphi 8
VER170 : Delphi 2005
VER180 : Delphi 2006
VER185 : Delphi 2007
VER190 : ?
VER200 : Delphi 2009

MSWINDOWS
WIN32
LI

begin
{$IFDEF VER200}
ShowMessage('ÕâÊÇ Delphi 2009');
{$ENDIF}
{$IF DEFINED(VER200)}
ShowMessage('ÕâÊÇ Delphi 2009');

begin
{$I

var
Form1: TForm1;
//Ô²½Ç¾ØÐÎ
procedure DrawRndRectRegion(hWnd: HWND; Rect: TRect);
//ÍÖÔ²1
procedure DrawEllipticRegion(hWnd: HWND; Rect: TRect); overload;
//ÍÖÔ²2
procedure DrawEllipticRegion(hWnd: HWND); overload;
//¶à±ßÐÎ
procedure DrawPolygonRegion(hWnd: HWND; Rect: TRect; NumPoints: Integer; IsStar: Boolean);
//ºº×Ö
procedure SetRgn_Chs(hWnd: HWND; ACanvas : TCanvas; AChs: string);
implementation

{$R *.dfm}
//Ô²½Ç¾ØÐÎ

Ò»¡¢ÕûÊýÀàÐÍ
ÀàÐÍ     ËùÕ¼×Ö½ÚÊý    È¡Öµ·¶Î§
byte         1          0-255
word         2          0-65535
shortint     1          -128-127
smallint     2   

//×î³£ÓÃµÄ string
var
str: string;   {¶¨Òå}
begin
str := 'ÍòÒ»';

   ÏÂÃæµÄÊÇÒ»‚€²Ë†Îʼþ,ëmÈ»¿ÉÒÔŒ‘³ÉÒ»‚€º¯”µ,µ«ÊÇ,ÎґеÃÕûÀí.ÏàÐÅ¿´µÄÈËÒ²‘ªÔ“¶¼•þµÄ°¡...ÊÇ°É?

procedure TForm1.SaveToEx1Click(Sender: TObject);
var
   ExcelApp,xlSheet : Variant;
   i,j: integer;
   FileNM : string;
begin
   try
     ExcelApp :