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

¹ØÓÚDelphiÖжþάÊý×éµÄÉùÃ÷ºÍ´óСµ÷Õû

ÕâÊÇÒ»¸öʵÀý£º
procedure TMainForm.Button1Click(Sender: TObject);
var
  arr:array of array of string;
begin
  setlength(arr,2,3);
  arr[1,2]:='this is a test';
  setlength(arr,0,0);
  setlength(arr,4,5);
  showmessage(arr[1,2]);
end;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓà array of array of ÀàÐÍ ÕâºÜÌù½üÈËÃǵÄ˼ά·½Ê½¡£Í¬Àí¿ÉÍÆ³öÈýάÊý×éµÄÉùÃ÷·½·¨Îª array of array of array of  ÀàÐÍ
¶Ô¶þάÊý×é´óСµÄµ÷ÕûÈÔȻʹÓÃSetLengthº¯Êý£¬µÚÒ»¸ö²ÎÊýÊÇÊý×éÃû³Æ£¬µÚ¶þ¸ö²ÎÊýÊÇ×î¿¿½üÊý×éÃû³ÆÄǸöά¶ÈµÄ´óС£¬µÚÈý¸ö²ÎÊýÊÇÔ¶ÀëÊý×éÃû³ÆµÄά¶ÈµÄ´óС£¬ÒÔ´ËÀàÍÆ¡£
ÔÚÒÔÉϵÄÀý×ÓÖл¹ÓÐÒ»¸öÌØ±ðÖ®´¦¡£¾ÍÊÇÉùÃ÷ÁËÒ»¸ö´óÒ»µã·¶Î§µÄ¶þάÊý×éÒÔºó£¬Èç¹û¶ÔÊý×éÖØÐ·ÖÅä´óС£¬²¢ÇÒÕâ¸öеĴóСÊÇСÓÚÔ­À´Êý×éµÄ£¬ÄÇô£¬´óµÄ¶þάÊý×éÓëСµÄ¶þάÊý×éÖ®¼äÏà²îµÄ²¿·Ö½«»á±»Çå³ý¡£¼´±ãÊÇÂíÉϽ«Êý×é´óСµ÷Õû»ØÀ´ÉõÖÁ¸ü´ó£¬¶¼²»ÄÜʹÕâЩÊý¾Ý»ØÀ´¡£Õâ¸öºÍDelphiÖÐÌṩµÄTStringGrid¿Ø¼þ²»Ò»Ñù¡£¶ÔTStringGridµÄÐÐÁÐÊýÁ¿½øÐе÷Õûºó£¬Ô­À´µÄÊý¾Ý¶¼²»»á¶ªÊ§£¬³ý·ÇʹÓÃTStringGrid.Rows.Clear;
ÁíÍ⣬DelphiÖл¹ÔÊÐíÉèÖ÷ǾØÕóÐ͵Ķ¯Ì¬Êý×é¡£ÒÔÏÂÊÇÒ»¸öÀý×Ó
procedure TMainForm.Button1Click(Sender: TObject);
var
  arr:array of array of string;
begin
  setlength(arr,10);
  setlength(arr[2],5);
  arr[2,4]:='this is a test';
  showmessage(arr[2,4]);
  showmessage(arr[3,1]);
end;
ÕâÀïÃæÉùÃ÷ÁËÒ»¸ö¶þά×Ö·û´®Êý×éarr£¬Ê×ÏȶÔÕâ¸öÊý×éµÄµÚһά¶È£¨°´ÕÕϰ¹ß£¬³ÆÖ®Îª“ÁД£©½øÐÐÉèÖ㬴óСΪ10¸ö¡£È»ºó½«Õâ¸öÊý×éµÄµÚÈýÁУ¨Ï±êÊÇ2£¬µ«Êµ¼ÊÈ´ÊǵÚÈýÁУ©µÄÐÐÊý½øÐе¥¶ÀÉèÖ㬴óСΪ5¸ö¡£ÕâÑù¾Í¹¹³ÉÁËÏÂͼÕâÑùµÄ¾ØÕó
N N X N N N N N N N
N N X N N N N N N N
N N X N N N N N N N
N N X N N N N N N N
N N * N N N N N N N
(“X” ´ú±í¿ÉÓà “N”´ú±í²»¿ÉÓà “*”´ú±íarr[2,4]ÔªËØ)
È»ºó¶Ôarr[2,4]½øÐи³Öµ“this is a test”¡£ÏÈÒªÇóÏÔʾarr[2,4]µÄÖµ£¬OK£¬ÍêȫûÓÐÎÊÌ⣬µ«µ½ÁËarr[3,1]µÄʱºòÈ´±¨´í£¬Ô­Òò¾ÍÊÇÕâ¸ö¶þάÊý×é²»ÊǾØÕóÐÎʽ£¬³ýÁ˵ÚÈýÁУ¬ÆäËûµØ·½¶¼ÊDz»´æÔڵ쬾¡¹ÜÒѾ­ÉùÃ÷ÁË¡£


Ïà¹ØÎĵµ£º

DelphiÓÃWebBrowser±à³Ì ×Ô¶¯µÇ¼²Ù×÷

DelphiÓÃWebBrowser±à³Ì-×Ô¶¯µÇ¼²Ù×÷
2009Äê08ÔÂ18ÈÕ ÐÇÆÚ¶þ 00:39
ÀûÓÃDelphiµÄOlevariantÀàÐÍ
--------------------------------------------------------------------------------
µ¥¸öframesµÄÊäÈë
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0);  &nbs ......

¹ØÓÚÔÚ³ÌÐòÖÐÉ趨comboboxµÄÏÂÀ­²Ëµ¥¿í¶È[delphi]

¶¨Ò壺
CbName: TComboBox;
width: Integer;                  //ʵ¼ÊËùÐèµÄ¿í¶È
ÔÚÖ´ÐдúÂëÖа´ÈçÏ·½·¨Ð´£º
width := CbName.Canvas.TextWidth(CbName.Items[I]); //¿ÉÓô˷½·¨Í¨¹ý±éÀú»ñµÃijѡÏîµÄ×î´ó¿í¶È£¬Ò²¿ÉÒÔ°´×Ô¼ºµÄÐ ......

Ò»Ãûdelphi³ÌÐòÔ±Òª¿ªÊ¼Ñ§Ï°JavaME

ÎÒһֱʹÓÃDelphi6¿ª·¢Èí¼þ£¬¿´µ½CSDNÉϵÄOPhoneÊÖ»ú¿ª·¢£¬ÓÖÈ¥GoogleÒ»·¬£¬Ìý˵±àдÊÖ»úÈí¼þ
ÄÜ׬Ǯ£¬ËùÒÔҪѧϰJava ME£¬¶ÁÁ˼¸Ì첩ÎÄ£¬´ó¶àÊý¸ÅÄî¸ãÇå³þÁË¡£
ҪѧJavaME¾ÍµÃÏÈѧJavaSE£¬ËùÒÔ×°Á˺ܶàÈí¼þ(²»×°ÄÇô¶à£¬OPhone¾Í×°²»ÉÏÈ¥)¡£
ÍÆ¼öһƪÓÅÐãµÄÎÄÕ£º
ÔÚ NetBeans IDE ÖÐÉè¼Æ Swing GUI
¶ÁÍêÕâÆªÎÄÕ£¬³õ ......

delphi_·Ö¸ô×Ö·û´®_¶à¼ä¸ô×Ö·û

procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
  tmpStr:String;
  sValue:String;
  iStart,iPos:Integer;
begin
  try
    desLst.Clear;             //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ