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 £ ......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
1.ÍøÉÏ˵ÓÃdelphi×Ô´øµÄInstallshield for delphi±È½ÏºÃ,µ«ÊÇÎÒµÄÊÇÍøÉÏϵİ汾,ÀïÃæÊÇ·ñÓÐÕâ¸ö¹¦ÄÜ
2.Èç¹ûÓÐÔÚÄÄÀï.
3.Èç¹ûûÓÐÔÚÄÄÀï¿ÉÏÂÔØ
4.ËûµÄÏêϸʹÓ÷½·¨,Ó¦´ò°üÄÇЩÎļþ.
ÒÔÉÏÎÊÌâÇë×ö³öʵÖÊ ......
ÎÒÏÖÔÚÒª¶Áȡһ¸öTXTÎļþ ÀïÃæ ´æ·ÅµÄ¸ñʽÊÇÕâÑù´ø¸ñʽµÄ
Êý¾Ý1----Êý¾Ý2----Êý¾Ý3----Êý¾Ý4
ÎÒÏëʵÏÖ·Ö±ð¶ÁÈ¡ Êý¾Ý1 Êý¾Ý2 Êý¾Ý3 Êý¾Ý4
ÇëÎÊdelphiÏÂÓÐʲôºÃµÄ·½·¨Â𣿠......