delphi±ÊÊÔÌâ(Ò»)
1¡¢ÇëÁоÙVCLÀà¿âÖÐÒÔTObjectΪ¸ùµÄ¶ÔÏóÌåϵ£¨¿ÉÒÔÖ»ÀàÖ÷¸É£©
2¡¢ÇëÁоÙVCLÊý¾Ý¿â·½ÃæµÄºËÐÄÀà
3¡¢DelphiÖÐoverrideºÍoverloadµÄ×÷Ó÷ֱðÊÇʲô£¿
4¡¢DelphiÖÐRTTIÊÇʲô£¿ÓÐʲô×÷Óã¿
5¡¢Èç¹ûÒ»¸ö¸Õ²¿ÊðµÄWeb·þÎñÆ÷²»ÄÜ·ÃÎÊ£¬Áоٳö¿ÉÄÜ´æÔÚµÄÔÒò£¿
6¡¢ÔÚSQLÖÐ×óÁ¬½Óʱʲô?ËüÄÜʵÏÖµÄÊý¾Ý½á¹û¼¯µÄÌØµãÊÇʲô£¿
7¡¢ÇëÎÊÔÚOracleºÍMssqlÖÐÈçºÎֻȡselectÓï¾ä½á¹û¼¯ÖеÄǰ100Ìõ£¿
Oracle£ºselect top 100 * from tablename
Mssql£ºselect * from tablename where rownum < 101
8¡¢¶þ²æÊ÷
type
TBTreeNode = class
Data: string;
Left: TBTreeNode;
Right: TBTreeNode;
end;
function NewNode(const Data: string; Left, Right: TBTreeNode): TBTreeNode;
begin
Result := TBTreeNode.Create;
Result.Data := Data;
Result.Left := Left;
Result.Right := Right;
end;
var Root: TBTreeNode;
procedure Init;
begin
{ ½¨Ê÷£º
=
X *
+ -
1 2 3 4
}
Root = NewNode('=', NewNode('X', nil, nil),
NewNode('*', NewNode('+', NewNode('1', nil, nil), NewNode('2', nil, nil)),
NewNode('-', NewNode('3', nil, nil), NewNode('4', nil, nil))));
end;
¼ÙÉè±äÁ¿RootÒѾÓÐInit³õʼ»¯£¬Çëд³öÖÐÐò±éÀúRootÊ÷µÄ´úÂ룬ҪÇóÊä³ö½á¹ûX=1+2*3-4
9¡¢Á½ÖÖÊý¾Ý¿â½á¹¹±í¼°²¿·Ö¼Ç¼ÈçÏ£º
±àÂëÊ÷£º
—————————
ID
01
0102
0103
010204
—————————
¸¸×ÓÊ÷£º
—————&mda
Ïà¹ØÎĵµ£º
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......
¡ó[DELPHI]²úÉúÊó±êÍ϶¯Ð§¹û
ͨ¹ýMouseMoveʼþ¡¢DragOverʼþ¡¢EndDragʼþʵÏÖ£¬ÀýÈçÔÚPANELÉϵÄLABEL£º
var xpanel,ypanel,xlabel,ylabel:integer;
PANELµÄMouseMoveʼþ£ºxpanel:=x;ypanel:=y;
PANELµÄDragOverʼþ£ºxpanel:=x;ypanel:=y;
LABELµÄMouseMoveʼþ£ºxlabel:=x;ylabel:=y;
LABELµÄEndDragʼþ£ºlabel ......
Delphi Óë C/C++ Êý¾ÝÀàÐͶÔÕÕ±í
DelphiÊý¾ÝÀàÐÍC/C++
ShorInt
8λÓзûºÅÕûÊý
char
Byte
8λÎÞ·ûºÅÕûÊý
BYTE,unsigned short
SmallInt
16λÓзûºÅÕûÊý
short
Word
16λÎÞ·ûºÅÕûÊý
unsigned short
Integer,LongInt
32λÓзûºÅÕûÊý
int,long
Cardinal,LongWord/DWORD
32λÎÞ·ûºÅÕûÊý
unsigned long
Int6 ......
ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»
......
procedure TForm1.Button1Click(Sender: TObject);
Var
Num: Integer;
Begin
Try
Num:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(Num*Num);
Except
On EConvertError Do ShowMessage(Edit1.Text+'ÎÞ·¨×ª³ÉÕûÊý!');
......