Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐÁ÷µÄʹÓ㨱ȽÏÈ«Ãæ£©

Delphi ÖÐÁ÷µÄʹÓÃ(1) Óà TMemoryStream(ÄÚ´æÁ÷) ÈëÃÅ
ǰÑÔ:
Ëùν"Á÷", ¾ÍÊÇÒ»¶ÎÊý¾Ý»òÊÇÒ»¿éÄÚ´æ;
ÔÚ½øÐÐÁ÷²Ù×÷ʱ, ÎÒÃDz»±Ø¹ØÐÄÁ÷ÖеÄÊý¾Ýµ½µ×ÊÇʲô; Ö»ÐèÒªÖªµÀÁ÷µÄ´óСºÍµ±Ç°µÄÖ¸ÕëλÖÃ. ËùÒÔÁ÷Ö»ÓÐÁ½¸öÊôÐÔ:
Size¡¢Position.
¶ÔÁ÷µÄ²Ù×÷, ²»¹ý¾ÍÊǶÁÈ¡ºÍдÈë. ËùÒÔÁ÷×îÖ÷ÒªµÄ·½·¨¾ÍÊÇ Read ºÍ Write.
Ôںܶ࿠......

delphi ¶ÁÈ¡txtÎļþ


1¡¢ ·ÅÒ»ÏÂmemo¿Ø¼þ¡¢Ò»¸öbutton¡¢opendialog
ÔÚbuttonµÄclickʼþÖÐ
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);  
2¡¢Àļòµ¥µÄʰ¡
var
   Mytxt : TStringList;
begin
   MyText :=
TStringList('ÄãµÄÎı¾Îļþ¼°Â·¾¶');
 
&nbs ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......

Delphi Assigned


1.¸ù¾Ý Delphi Ö¸Áî²Î¿¼ÊÖ²áÖÐ
˵Ã÷£º
Assigned º¯Ê½ÔÚ²ÎÊý²»Îªnilʱ´«»ØTrue,±íʾָÕëÒѾ­Ö¸µ½Ä³¸öÄÚ´æµØÖ·£¬Õâ¸öÄÚ´æµØÖ·¿ÉÄÜÊÇÒ»¸ö¶ÔÏóµØÊ×µØÖ·£¬Ò²¿ÉÄÜÔÚº¯Êý»ò¹ý³ÌÖУ¬ÉùÃ÷Ò»¸öÖ¸Õë±äÁ¿£¬Ã»Óи³ÖµÎªnil £¬ÎÞÂÒµÄÖ¸Ïòij´¦£¬ÕâÁ½¸öÖÖÇé¿ö£¬Assigned£¨Ö¸Õë±äÁ¿£©¶¼²»Îªnil , º¯Êý·Å»ØTrue£»
¶ø²ÎÊýΪnilʱÔò´«»ØFals ......

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ