Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Ò»¶ÎDelphi´úÂë ´ó¼Ò°ïÎÒ¿´ÏÂÓÐÎÊÌâÂð£¿ÇëÖ¸Õý

a:=Ta.Create(application);
  try
    a.ShowModal;
  finally
    a.Free;
    a:=nil;
  end;
´ó¼Ò¾õµÃÕâ¶Î´úÂëÓÐÎÊÌâÂ𣿰ïæ·­Òëһϡ£
×Ô¼º¶¥Ò»¸ö£¬¹þ¹þ

ÊÇ´°Ì壿ûÎÊÌâ

×Ô¶¨Òå´°Ì壬ÏȽ¨Á¢ºóÊÍ·Å¡£Ã»ÎÊÌâ¡£

ûÎÊÌâ

a:=Ta.Create(application); //´´½¨
  try
    a.ShowModal;          //show³öÀ´
  finally                 
    a.Free;                //ÊÍ·Å
    a:=nil;                //½«a±äÁ¿Öÿգ¬±ÜÃâÒ°Ö¸Õë
  end;

1. ±àÂë·ç¸ñ²»·ûºÏDelphi±àÂë¹æ·¶
2. ÀàÃüÃû²»Äܱí´ïÀàµÄÓÃ; £¨Ta£©
3. ²ÎÊýÃüÃû²»Äܱí´ï²ÎÊýÓÃ; (a)

ÐÞ¸ÄÈçÏ£º

a := Ta.Create(application);
try
  a.ShowModal;
finally
  a.Free;
  a := nil;
end;

ÒýÓÃ
1. ±àÂë·ç¸ñ²»·ûºÏDelphi±àÂë¹æ·¶
2. ÀàÃüÃû²»Äܱí´ïÀàµÄÓÃ; £¨Ta£©
3. ²ÎÊýÃüÃû²»Äܱí´ï²ÎÊýÓÃ; (a)

ÐÞ¸ÄÈçÏ£º

a := Ta.Create(application);
try
  a.ShowModal;
finally
  a.Free;
  a := nil;
end;
ÇëÔ­Á£¬ÎÒ¿´Á˼¸±é£¬Ó²ÊÇ¿´²»³öºÍÂ¥Ö÷ÓÐʲÃ


Ïà¹ØÎÊ´ð£º

delphi ÔõÑù½«ucs2±àÂëת»»³ÉÖÐÎÄ

½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ