¹ØÓÚ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µÄʹÓÃ
1.»ñµÃÍøÒ³ÖбäÁ¿Öµ
htmÖÐ<script> var currID=123</script>
³ÌÐòÖпÉÒÔÕâôµ÷Óà id := Form1.WebBrowser1.OleObject.Document.script.currID
ÖµµÃ˵Ã÷µÄÊÇ,±äÁ¿¿ÉÒÔÊÇjavascript¶¨ÒåµÄ,Ò²¿ÉÒÔÊÇvbs ......
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <&g ......
WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI;
1.±ê×¼Ó÷¨
¡¡¡¡ ShellExecuteº¯ÊýÔÐͼ°²ÎÊýº¬ÒåÈçÏ£º
function ShellExecute(hWnd: HWND; Operati ......
DelphiÖи߼¶DLLµÄ±àдºÍµ÷Óü¼ÇÉ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àдºÍµ÷ÓõİïÖúÐÅÏ¢£¬Äã¿ÉÒԺܿìÍê³ÉÒ»°ãµÄ DLL±àдºÍµ÷ÓÃµÄ Ó¦ÓóÌÐò¡£±¾ÎĽéÉܵÄÖ÷ÌâÊÇÈçºÎ±àдºÍµ÷ÓÃÄܹ»´«µÝ¸÷ÖÖ²ÎÊý£¨°üÀ¨¶ÔÏóʵÀý£©µÄ DLL¡£ÀýÈ磬 Ö÷½Ð³ÌÐò´«µÝ¸ø DLLÒ»¸öADOConnection ¶ÔÏóʾÀý×÷Ϊ²ÎÊý£¬ DLLÖеĺ¯ÊýºÍ
¸ù¾ÝDelphiÌṩµÄÓÐ¹Ø DLL±àÐ ......
Delphi
DelphiÕâÊÇÒ»¸öwindows×ÀÃæ±à³ÌÈí¼þ£¬ÏÖÔÚ°æ±¾Óкܶ࣬Ö÷ÒªÓõϹÊÇDelphi7£¬7ÒÔÉϵİ汾¶¼ÐèҪװ.net
¾²Ì¬µ÷ÓúͶ¯Ì¬µ÷Ó㬾²Ì¬µ÷ÓþÍÊÇÖ±½ÓÍù´°ÌåÉÏÍпؼþ£¬¶ø¶¯Ì¬µ÷ÓþÍÊDZàд´úÂëµ÷ÓÿؼþµÄÀàʵÏÖһЩ¹¦ÄÜ¡£
ͨ³£Çé¿ö϶¼ÊÇÕâÁ½ÖÖ·½Ê½Ïà½áºÏµÄʹÓã¬Ëæ×ÅDelphiµÄÉîÈ룬¾Í»á·¢ÏÖÍпؼþ²»ÊÇÍòÄܵģ¬ºÜ¶àʱºò¶¼ ......