Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 6.0¸ß¼¶±à³Ì

±¾ÊéÒÔʵÀýΪÖ÷Ïߣ¬¸¨ÒÔ±ØÒªµÄ¼¼Êõ±³¾°ÒªµãÀ´½²½âDelphi 6£®0±à³ÌµÄ¾«Ë裻±¾ÊéʵÀýÆ«ÖØÓÚ¶àýÌåºÍÍøÂç³ÌÐò¿ª·¢£¬ÆäÖÐÉæ¼°µ½OpenGL¡¢Indy×é¼þ¡¢XML¡¢Web BrokerºÍWebSnapµÈ¼¼Êõ¡£±¾Ê黹½²ÊöÁËDelphiÖеÄSQL±à³Ì£¬ÔÚÁ½¸ö¶ÌС¾«Á·µÄ³ÌÐòÖгä·ÖÔËÓÃÁËDelphiÊý¾Ý¿ª·¢¼¼Êõ£¬°üÀ¨BDE×é¼þµÄADO×é¼þµÄʹÓá£Í¨¹ý±¾Ê飬ÈöÁÕßÔÚ±à³Ì¹ ......

DelphiÖÐÁ÷µÄʹÓ㨱ȽÏÈ«Ã棩

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

DELPHI TListBox (TStringsÀà)ɾ³ý¿ÕÐеķ½·¨

    ֮ǰ×öÒ»¸ö³ÌÐò£¬ÓÃListBox¶ÁÈëÒ»¸öÎı¾Îļþ£¬µ«Îı¾ÖÐÓпÕÐУ¬ÎªÁËɾ³ýÆäÖеĿÕÐУ¬ÕÛÌÚÁ˺ó¤Ê±¼ä¡£
    Ïȸø³öÒ»¶Î´úÂë¸ø´ó¼Ò¿´
var
  i:Integer;
begin
  ListBox1.Items.LoadfromFile('data.txt');
  for i:=0 to ListBox1.Count - 1 do
  begin
  ......

Delphi 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔÇ°°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

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

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