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¡£Õâ¸öÎÒʵÔÚ²»ÖªµÀÔõô½âÊÍÁË£¬Ö»ÄÜÒâ»áÁË
Äã·¢Ò»·ÖµÄÌû×ÓÊÇʲôÒâ˼£¿ÎÒ»ØÕâ¸öÌû×Ó²»ÊÇΪÁËÕâÒ»·Ö¡£´ó¼ÒÈç¹û»Ø¸´ÄãÒ²²»ÊÇΪÁËÕâÒ»·Ö¡£
Ä㻹²»Èç·¢Áã·ÖÌù¡£È»ºó˵Äãû·ÖÁË¡£´ó¼ÒÄÜÀí½âÄã¡£
ÄãÕâ¸öÒ»·Ö£¬ÔÚÎÒ¿´À´Ï൱²»×ðÖØÏë¸øÄã½â»óµÄÈË¡£¾ÍºÃÏñ˵£¬À´°¡À´°¡£¬¸øÎÒ½â¾öÕâ¸öÎÊÌ⣬ÎÒÉÍÄãÒ»·ÖǮŶ¡£»¹²»¿ìµã£¿
Äã³ö·Ö£¬±ðÈ˻شðÎÊÌ⣬
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃ濪·¢µÄЧÂÊ°É£¿
ÒòΪ²»ÊìϤDelphi £ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÕâÓïÑÔºÃÄÑ°¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøŬÁ¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
¼ÙÉ迪·¢Ê±Á¬½ÓÁËSQLÊý¾Ý¿â¡£
ÄÇôÔÚ¸ø¿Í»§ÓõÄʱºò£¬Èç¹û¿Í»§»ú×ÓÉÏûÓÐ×°SQLµÄ»°£¬ÄdzÌÐò²»ÊDz»ÄÜÕý³£ÔËÐÐÁËÂð£¿
ÓÐûÓа취ÔÚ¿Í»§»úÉϲ»°´ÕÕSQLµÄÇé¿öÏÂÒ²ÄÜÕý³£ÔËÐгÌÐò¡£
Õâ¸öûÊÔ¹ý¡¢Ó¦¸Ã»áÓнâ¾öµÄ° ......
ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6
Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......