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

Çë½ÌdelphiµÄÄÚ´æ¹ÜÀí£¡

ÈçÏ£¬ÎÒ¶¨ÒåÁËÒ»¸örecordÀàÐÍ£¬ÔÙÔÚÆäÉ϶¨ÒåÒ»¸öÊý×éÀàÐÍ
TParamValue = Record
    ParamName:String;                          //The Name of Variant
    ParamValue:String;                          //The Value of Variant
  end;
TParamValues = Array of TParamValue;
ÎÒÓÐÒ»¸öfunction·µ»ØÒ»¸öTParamValuesÀàÐÍÊý×é¡£
function GetValueList():TParamValues;
var
  ValueList: TParamValues;
begin
  SetLength(ValueList,n);
  ......
  Result:=ValueList;
end;
¾­¹ý²âÊÔÿ´Îµ÷ÓÃfunction¶¼·µ»ØÒ»¸öеÄValueList
procedure UseValueList()£»
var
  ValueList: TParamValues;
begin
  ValueList:=GetValueList();
  ......
end;
ÇëÎÊÕâ¸öValueListÔÚʹÓÃÍê±ÏºóDelphi»Ø×Ô¶¯»ØÊÕÄÚ´æÂð£¿
ÕâÖ»Ö»ÊǸöÊý×é,Ó¦¸ÃÊÍ·Å

µ«ÊÇÔÚ
procedure UseValueList()£»
var
  ValueList: TParamValues;
begin
  ValueList:=GetValueList();
  ......
end;

ÕâÀïÃæValueListÄÜÕý³£ÔËÐÐÂð?

»á»ØÊÕ°É£¬ËäÈ»ÄãÉÏÃæÓõ½setLength·ÖÅäÄڴ棬µ«ÓÉÓÚ¶¯Ì¬Êý×éÊÇÉú´æÆÚ×Ô¹ÜÀíÀàÐÍ¡£

動態數組Ò²ÊDzÉÓà string ÒýÓÃ計數µÄ¹ÜÀí·½Ê½維護Éú´æÖÜÆÚ

²»»á×Ô¶¯»ØÊÕ£¬´æÔÚÄ


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

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

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

unit UShare;
interface
uses Windows, Me ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......

.netµ÷ÓÃdelphiдµÄdll,³ö´íÎó

´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ