delphi¼òµ¥µÄÎÊÌ⣿
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer):integer;//ʵÀý»¯·½·¨
begin
x:=2;
end;
procedure myclass.mypro(var x:integer);
begin
x:=x+2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
mycls:myclass;
begin
mycls:=myclass.Create; //´´½¨¶ÔÏó
i:=6;
mycls.myfun(i); //µ÷Ó÷½·¨
showmessage(inttostr(i));
mycls.Free;
end;
end.
--------------------
i:=6;
mycls.myfun(i); //µ÷Ó÷½·¨
showmessage(inttostr(i));
ÉÏÃæÄǸömycls.myfun(i)µ÷ÓÃmyfun·½·¨ ÄǸöiÊÇʲôÒâ˼£¿
´«Öµ»¹ÊÇ£¿
¶øÇÒÊä³öµÄÊÇi²»ÊÇx µ«ÊÇΪʲô½á¹ûÊÇxµÄÖµ
var´«Ö·
Äã°Ñi´«Ö·¸ømyfunÁË¡£ËùÒÔ¸ÄÁËiµÄÖµ¡£¾ÍÏñÄã¸ø°á¼Ò¹«Ë¾Äã¼ÒµØÖ·ÁË£¬ÈÃËûÃǽøÈëÄãÃǼҰᶫÎ÷¡£¶ø²»ÊÇÄãÁíÂòÒ»·ÝÄãµÄ¼Òµ±È»ºó°áµ½Ð¼ÒÀïÈ¥¡£
x´ú±í´«½øÈ¥µÄÄǸöi£¬Äã¿ÉÒÔ°ÑÄǸöx¸Ä³ÉÈκκϷ¨µÄÃû×Ö£¬±ÈÈçi,ii,jjjj¡£Õâ¸öÎÒʵÔÚ²»ÖªµÀÔõô½âÊÍÁË£¬Ö»ÄÜÒâ»áÁË
Äã·¢Ò»·ÖµÄÌû×ÓÊÇʲôÒâ˼£¿ÎÒ»ØÕâ¸öÌû×Ó²»ÊÇΪÁËÕâÒ»·Ö¡£´ó¼ÒÈç¹û»Ø¸´ÄãÒ²²»ÊÇΪÁËÕâÒ»·Ö¡£
Ä㻹²»Èç·¢Áã·ÖÌù¡£È»ºó˵Äãû·ÖÁË¡£´ó¼ÒÄÜÀí½âÄã¡£
ÄãÕâ¸öÒ»·Ö£¬ÔÚÎÒ¿´À´Ï൱²»×ðÖØÏë¸øÄã½â»óµÄÈË¡£¾ÍºÃÏñ˵£¬À´°¡À´°¡£¬¸øÎÒ½â¾öÕâ¸öÎÊÌ⣬ÎÒÉÍÄãÒ»·ÖǮŶ¡£»¹²»¿ìµã£¿
Äã³ö·Ö£¬±ðÈ˻شðÎÊÌ⣬
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎÒÏëÒ»¸ö memo Á½¸öbutton Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2C ......
ÎÒÏÖÔÚÒª¶Áȡһ¸öTXTÎļþ ÀïÃæ ´æ·ÅµÄ¸ñʽÊÇÕâÑù´ø¸ñʽµÄ
Êý¾Ý1----Êý¾Ý2----Êý¾Ý3----Êý¾Ý4
ÎÒÏëʵÏÖ·Ö±ð¶ÁÈ¡ Êý¾Ý1 Êý¾Ý2 Êý¾Ý3 Êý¾Ý4
ÇëÎÊdelphiÏÂÓÐʲôºÃµÄ·½·¨Â𣿠......
³ÌÐòÀï·ÅÖÃÒ»¸öWebBrowser£¨ÔÚInternetÒ³ÃæÀȻºó£º
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
ÇëÎÊÒ»ÏÂÈçºÎ¿Ø ......