delphi ÃüÃû³åÍ»ÎÊÌâ
ÓÃdelphiдһ¿ª·¢Æ½Ì¨
ÓÃÆ½Ì¨¿ª·¢³ÌÐò¡£
¹¤³ÌAÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
¹¤³ÌBÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
ÏÖÔÚÔÚ¹¤³ÌAÖд°Ìå1ÉÏÌí¼ÓÒ»°´Å¥ µã»÷µ¯³ö¹¤³ÌBµÄ´°Ìå1.
uses
VT5004Unit2
procedure Button1Click(Sender: TObject);
var
nForm:TForm1;
begin
nForm := TForm1.Create(Application);
nForm.Show;
end;
ÆäÖÐVT5004Unit2Ϊ¹¤³ÌBÎļþ¡£
ÏÖÔÚµÄЧ¹ûÊǵã»÷°´Å¥ µ¯³ö¹¤³ÌAµÄ´°Ìå1
¶øÒªµÄЧ¹ûÓ¦¸ÃÊǵ¯³ö¹¤³ÌBµÄ´°Ìå1
Ó¦¸ÃÔõô°ì
nForm := VT5004Unit2.TForm1.Create(Application);
Delphi(Pascal) code:
procedure Button1Click(Sender: TObject);
var
nForm:TForm1;
begin
nForm := TForm1.Create(Application);
nForm.Show;
end;
ÄãÕâ¸ö¼ÈȻҪµ÷Óù¤³ÌBµÄ´°¿Ú£¬ÎªºÎ»¹Òªµ½ÕâÀﶨÒå1¸önForm¡£Õâ¾ÍÃ÷ÏÔÓÐÎÊÌâÂï¡£ÄãÕâÀïÓ¦¸ÃÊÇ
Òªµ÷Óù¤³ÌBÖж¨ÒåµÄÈ«¾Ö´°¿Ú¶ÔÏó²Å¶Ô°¡¡£
ÄãÒ²¿ÉÒ԰ѹ¤³ÌBµÄ´°¿Ú¶ÔÏóÊÖ¶¯¸ÄΪTForm2£¬ºÇºÇ¡£ÕâÑù¾Í²»»á³öÏÖͬÃûµÄÇé¿öÁË¡£
°ÑÆäÖÐÒ»¸ö¸ÃÆäËûÃû×Ö¾ÍÐÐÁË. ÄãÕâ¸ö³ÌÐòÓÐÁ½¸öProject?
¸ÄÃû×ÖÊÇ¿ÉÒÔ µ
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬
Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷
һ¥ÕýÈ·£¡
лл¸÷λÀ²
¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......