2009-11-04 11:50
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 |
2009-11-04 11:50
1. $IFDEF µÈͬÓÚ $IF DEFINED(...) :
ËüÃǵĽáÊø·Ö±ðÊÇ: $ENDIF¡¢$IFEND; Àý×ÓÖÐµÄ VER200 ÊÇ Delphi 2009 µÄ±êʶ.
begin
{$IFDEF VER200}
ShowMessage('ÕâÊÇ Delphi 2009');
{$ENDIF}
{$IF DEFINED(VER200)}
ShowMessage('ÕâÊÇ Delphi 2009');
|
2009-11-04 11:49
Ò»¸ö³ÌÐò´ÓÎÞµ½ÓеĹý³ÌÊÇÕâÑùµÄ: ±à¼´úÂë -> Ô¤´¦Àí -> ±àÒë(³ÉdcuµÈ) -> Á´½Ó(ΪexeµÈ).
ʲôÊÇÔ¤´¦Àí?
Æ©Èç VCL ÖÐÓкܶà´úÂëÊǼæÈÝ Linux µÄ, ÔÚ Windows ϾÍÐèÒªÔÚ±àÒë֮ǰԤ´¦ÀíµôÄÇЩ for Linux µÄ´úÂë.
1¡¢ÅжϲÙ×÷ϵͳ:
ÆäÖÐµÄ "MSWINDOWS" ºÍ "LINUX" ¾ÍÊÇ Delphi Ô¤¶¨ÒåµÄ "Ìõ¼þ±êʶ·û".
begin
{$I
|
2009-10-27 09:02
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}
//Ô²½Ç¾ØÐÎ |
2009-04-21 14:48
| ¼¶±ð |
¿ÆÄ¿/Àà±ð |
¿¼ÊÔÐÎʽ |
| Ò»¼¶ |
Ò»¼¶MS Office |
|
2009-03-27 21:23
1.Íⲿ´æ´¢Æ÷µÄÊÇCD-ROM¡¢Ó²ÅÌ¡¢ÈíÅÌ£¬ÄÚ²¿´æ´¢Æ÷:ROM¡¢RAM¡¢cache¡£
2.Óø߼¶³ÌÐòÉè¼ÆÓïÑÔ±àдµÄ³ÌÐò³ÆÎªÔ´³ÌÐò
3.΢ÐͼÆËã»úµÄÖ÷»úÓÉCPUºÍÄÚ´æ´¢Æ÷¹¹³É¡£ÄÚ´æ´¢Æ÷°üÀ¨RAMºÍROM¡£
4.CAD¼ÆËã»ú¸¨ÖúÉè¼Æ,CAM¼ÆËã»ú¸¨ÖúÖÆÔì,CIMS¼ÆËã»ú¼¯³ÉÖÆÔìϵͳ,CAI¼ÆËã»ú¸¨Öú½ÌÓý
5.1946-1958µÚÒ»´úµç×Ó¹Ü,1959-1964µÚ¶þ´ú¾§Ìå¹Ü,1965-1971µÚÈý´úС¹æÄ£¼¯³Éµç·,1971-½ñµÚËÄ´ú´ó¹æÄ£ºÍ³¬´ó¹æÄ£¼¯³Éµç·
6.Ò»¸ö¼ÆËã»ú²Ù×÷ϵͳͨ³£Ó¦¾ßÓУº´¦ÀíÆ÷£¨CPU£©¹ÜÀí£»´æ´¢¹ÜÀí£»Îļþ¹ÜÀí£»ÊäÈë/³ö¹ÜÀíºÍ×÷Òµ¹ÜÀíÎå´ó¹¦ÄÜ¡£
7. |
2009-02-11 00:49
Ó÷¨£ºif key = chr(VK_RETURN) then...
³£ÊýÃû³Æ |
2009-02-06 15:24
Ò»¡¢ÕûÊýÀàÐÍ
ÀàÐÍ ËùÕ¼×Ö½ÚÊý ȡֵ·¶Î§
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 |
2008-12-11 14:59
//×î³£ÓÃµÄ string
var
str: string; {¶¨Òå}
begin
str := 'ÍòÒ»'; |
2008-12-06 13:26
ß@‚€¿ÉÊÇÎÒ×Ô¼ºµÄ´ú´a.½ñÌì×öµÄ•rºò혱ãÓ›ÏÂ.ëmÈ»ß@Щ¶¼ÊǺܳõ¼‰µÄ–|Î÷.×î½ü‘еĺÜ,³ýÁ˹¤×÷,Ò²²»Ô¸Òâ„ÓÄX½îŒWÁ•.(·´ÃæÈËÎï,´ó¼Ò„e¹¥“ôÎÒ°¡~~).
ÏÂÃæµÄÊÇÒ»‚€²Ë†Îʼþ,ëmÈ»¿ÉÒÔŒ‘³ÉÒ»‚€º¯”µ,µ«ÊÇ,ÎґеÃÕûÀí.ÏàÐÅ¿´µÄÈËÒ²‘ªÔ“¶¼•þµÄ°¡...ÊǰÉ?
procedure TForm1.SaveToEx1Click(Sender: TObject);
var
ExcelApp,xlSheet : Variant;
i,j: integer;
FileNM : string;
begin
try
ExcelApp : |
|
|