Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

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

´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......

delphi¼òµ¥ÎÊÌâ

IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ