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

DelphiÖ¸ÕëÀàÐÍdzÎö(¸½¼þ)

¸½¼þ×ÊÁÏ
*Ö¸ÕëµÄʹÓ㨴úÂ룩
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
´úÂ룺
procedure TForm1.Button2Click(Sender: TObject);
var
    a: Integer;
    p: ^Integer;
begin
    with self.Memo1.Lines do
    begin
        a := 100;
        Add('Êý¾ÝÄÚÈÝ£º' + inttostr(a));
        //---
        p := @a;
        Add('Êý¾ÝµØÖ·£º' + inttostr(Integer(p)));
        //---
        Add('Êý¾ÝµØÖ·Ö¸ÏòµÄÄÚÈÝ£º' + inttostr(p^));
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
type
    PInteger = ^Integer;
    PPInteger = ^PInteger;
var
    a: Integer;
    p: PInteger;
    pp: PPInteger;
begin
    with self.Memo1.Lines do
    begin
        a := 100;
        Add('IntegerÊý¾ÝÄÚÈÝ£º' + inttostr(a));
        //---
        p := @a;
        Add('IntegerÖ¸ÕëÄÚÈÝ£º' + inttostr(Integer(p)));
        Add('IntegerÖ¸ÕëÖ¸ÏòµÄÊý¾Ý£º' + inttostr(p^));
        //---
        pp := @p;
        Add('PIntegerÖ¸ÕëÄÚÈÝ£º' + inttostr(Integer(pp)));
        Add('PIntegerÖ¸ÕëÖ¸ÏòµÄÊý¾Ý£º' + inttostr(Integer(pp^)));
    end;
end;
 
*Ö¸ÕëµÄʹÓ㨻ã±à£©
ʾÀý£º¼òµ¥µÄÖ¸ÕëÓ¦ÓÃ
˵Ã÷£º
¶ÔÓÚ±àÒëÆ÷À´Ëµ£¬Ö¸ÕëµÄÀàÐÍ¿ÉÒÔÓÃÀ´±êÃ÷µØÖ·ËùÖ¸ÏòÇøÓòµÄ´óС¡¢ËùÖ¸ÏòµÄÀàÐÍ£¨ÕûÐÍ¡¢¶ÔÏó¡¢·½·¨£©£¬ÒÔ¼°½øÐÐÖ¸ÕëÔ


Ïà¹ØÎĵµ£º

delphi TStringList Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exch ......

delphiÊý×éÖ®²ËÄñƪ


Êý×éÊÇ¿ÉÒÔͨ¹ýË÷ÒýÀ´ÒýÓõÄͬÀàÐÍÊý¾ÝµÄÁÐ±í¡£°´ÕÕ´æ´¢¿Õ¼äµÄ»ñÈ¡·½Ê½£¬Delphi
Ö§³ÖµÄÊý×éÀàÐÍÓÐÁ½ÖÖ£¬¼´¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é¡£Ëùν¾²Ì¬Êý×é¾ÍÊÇÔÚÉùÃ÷ʱ¾ÍÒѾ­È·¶¨´óСµÄÊý×éÀàÐÍ£¬¶ø¶¯Ì¬Êý×éÊÇÖ¸Æä´óСÔÚÉùÃ÷ʱ²»ÄÜÈ·¶¨µÄÊý×飬¶¯Ì¬Êý×éµÄ´óСÔÚʹÓÃʱȷ¶¨¡£
ÉùÃ÷¾²Ì¬Êý×éµÄ·½Ê½·Ç³£¼òµ¥£¬Ö»ÒªÖ¸Ã÷Êý×鳤¶ÈºÍÊý¾ÝÀàÐÍ ......

DelphiʹÓÃiniÅäÖÃÎļþÁ¬½ÓMS SQLÊý¾Ý¿â

ºÜÔç×ö¹ýµÄÒ»¸ödelphiÏîÄ¿£¬°ÑÀïÃæÓõ½µÄ¼¼Êõ×ܽáһϣ¬Ö÷ÒªÊÇÕë¶ÔÏóÎÒÕâÑùµÄdelphiÐÂÊÖ£¬¼¼ÊõÉÏ×ö¸ö»ýÀÛ°É£¡
¼ÙÉèÎÒÃǵÄÊý¾Ý¿âÅäÖÃÎļþServerInfo.iniÄÚÈÝÈçÏ£º
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
ÎÒÃǶ¨ÒåÒ»¸öÁ¬½ÓÊý¾Ý¿âµÄ¹ý ......

DelphiÖÐÈ¡Õûº¯ÊýRoundµÄBug½â¾ö

DelphiÖÐ Roundº¯ÊýÓиöBug
Ò»µ©²ÎÊýÊÇÐÎÈç XXX.5ÕâÑùµÄÊýʱ
Èç¹û XXX ÊÇÆæÊý ÄÇô¾Í»á Round up
Èç¹û XXX ÊÇżÊý ÄÇô¾Í»á Round down
ÀýÈç Round(17.5)=18
µ«ÊÇ Round(12.5)=12
ÏÂÃæµÄº¯Êý¼´¿É¾ÀÕýÕâ¸ö Bug µ«ÊÇÊÇÁÙʱÐÔµÄ
Ö´ÐÐ DoRound(12.5) ½á¹ûΪ 13 ÕýÈ·
 function DoRound(Value: Extended): Int64;
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ