Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎĵµ£º

ʹÓÃDelphiÄÚÖú¯Êý¶ÁдINIÎļþ


ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......

Delphi³£ÓôúÂë»ã×Ü

¡ó[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++ Êý¾ÝÀàÐͶÔÕÕ±í
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Ϊ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ   
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ   
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ   
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»    ......

delphi stringÀàÐÍתintegerʱ³ö´íµÄ¼ì²â

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+'ÎÞ·¨×ª³ÉÕûÊý!'); ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ