Çë½Ì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 ÒýÓÃ計數µÄ¹ÜÀí·½Ê½維護Éú´æÖÜÆÚ
²»»á×Ô¶¯»ØÊÕ£¬´æÔÚÄ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......