delphiÊý×éÖ®²ËÄñƪ
Êý×éÊÇ¿ÉÒÔͨ¹ýË÷ÒýÀ´ÒýÓõÄͬÀàÐÍÊý¾ÝµÄÁÐ±í¡£°´ÕÕ´æ´¢¿Õ¼äµÄ»ñÈ¡·½Ê½£¬Delphi
Ö§³ÖµÄÊý×éÀàÐÍÓÐÁ½ÖÖ£¬¼´¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é¡£Ëùν¾²Ì¬Êý×é¾ÍÊÇÔÚÉùÃ÷ʱ¾ÍÒѾȷ¶¨´óСµÄÊý×éÀàÐÍ£¬¶ø¶¯Ì¬Êý×éÊÇÖ¸Æä´óСÔÚÉùÃ÷ʱ²»ÄÜÈ·¶¨µÄÊý×飬¶¯Ì¬Êý×éµÄ´óСÔÚʹÓÃʱȷ¶¨¡£
ÉùÃ÷¾²Ì¬Êý×éµÄ·½Ê½·Ç³£¼òµ¥£¬Ö»ÒªÖ¸Ã÷Êý×鳤¶ÈºÍÊý¾ÝÀàÐͼ´¿É£¬ÏÂÃæ¾ÍÊÇÉùÃ÷ÁËÒ»¸öÓÃÀ´´æ·Å×Ö·ûµÄÊý×飺
var Hello: array[0..5] of
char;
ÈÝÒ׿´³ö£¬Êý×éµÄÉùÃ÷Ã÷ÏÔ°üº¬3
¸ö²¿·Ö£¬¹Ø¼ü´Êarray
±íÃ÷ÕâÊÇÒ»¸öÊý×é±äÁ¿£¬¶ø[x..y]
±íÃ÷Êý×éµÄË÷ÒýÊÇ´Óx
µ½y
£¬¶øof
char
±íÃ÷Êý×éµÄ³ÉÔ±ÊÇ×Ö·ûÀàÐÍ¡£°´ÕÕÀàËÆµÄ·½·¨»¹¿ÉÒÔÉùÃ÷ÆäËûÀàÐ͵ÄÊý×飬ÏÂÃæ¾ÍÊÇÕâÑùµÄʾÀý´úÂ룺
var ScoreList: array[1..25] of
Integer;
var NameList: array[1..35] of
String;
ÉùÃ÷ÁËÊý×éºó£¬¿ÉÒÔͨ¹ýË÷ÒýÒýÓÃÊý×éµÄÔªËØ(
³ÉÔ±)
¡£¶øÊ¹ÓÃÊý×é³ÉÔ±µÄ·½·¨ÓëʹÓÃÕâÖÖÀàÐÍµÄÆÕͨ±äÁ¿ÀàËÆ£¬ÏÂÃæ¾ÍÊÇÒ»¶ÎʹÓÃ×Ö·ûÊý×éµÄʾÀý´úÂ룺
var Hello: array[0..5] of
char;
begin
Hello[0] := ‘H’;
Hello[1] := ‘e’;
Hello[2] := ‘l’;
Hello[3] := ‘l’;
Hello[4] := ‘o’;
Hello[5] := Chr(0);
ShowMessage(Hello);
end;
ÕâÀïÉùÃ÷Á˼¸¸öÊý×飬ËüÃǶ¼ÊÇÖ»°üº¬Ò»¸öË÷Òý²ÎÊýµÄÊý×飬¼´Ò»Î¬Êý×é¡£DelphiÖ§³Ö¾ßÓиü¶àË÷Òý²ÎÊýµÄÊý×飬¼´¶àάÊý×é¡£ÏÂÃæ¸ø³öÒ»¶ÎÉùÃ÷¶þάÊý×éµÄʾÀý´úÂ룺
var Hello: array[0..5][1..10] of char;
·ÃÎʶþάÊý×é³ÉÔ±µÄ·½Ê½Óë·ÃÎÊһάÊý×éµÄ·½Ê½ÏàËÆ£¬Ö»Òª°´ÕÕÀàËÆµÄ·½Ê½Ö¸¶¨Á½¸öË÷Òý¾Í¿ÉÒÔ·ÃÎʶþάÊý×éµÄ³ÉÔ±£¬ÏÂÃæ¾ÍÊÇʹÓöþάÊý×éµÄʾÀý´úÂ룺
var Hello: array[0..5] of array[0..10] of char;
begin
Hello[0][0] := ‘H’;
Hello[0][1] := ‘e’;
Hello[0][2] := ‘l’;
Hello[0][3] := ‘l’;
Hello[0][4] := ‘o’;
Hello[0][5] := Chr(0);
ShowMessage(Hello[0]);
end;
°´ÕÕÀàËÆµÄ·½·¨»¹¿ÉÒÔÉùÃ÷¾ßÓиü¸ßάÊýµÄÊý×飬ÕâÀï²»ÔÙ¸ø³öʵÀý¡£ÁíÍ⣬Delphi»¹Ö§³Ö·ÃÎʶþάÊý×é³ÉÔ±µÄÁíÍâÒ»ÖÖ·½·¨£¬ÏÂÃæ¾ÍÊÇʾÀý´úÂ룺
var Hello: array[0..5] of array[0..10] of char;
begin
Hello[0,0] := ‘H’;
Hello[0,1] := ‘e&r
Ïà¹ØÎĵµ£º
//ÉùÃ÷:
GetWindowText(
hWnd: HWND; {´°¿Ú¾ä±ú}
lpString: PChar; {½ÓÊÕÎı¾µÄ»º³åÇøµÄÖ¸Õë}
nMaxCount: Integer {Ö¸¶¨»º³åÇø´óС, ÆäÖаüº¬NULL×Ö·û; Èç¹ûÎı¾³¬³ö£¬»á±»±»½Ø¶Ï}
): Integer; {·µ»Ø×Ö·û¸öÊý, ²»°üÀ¨ÖжϵĿÕ×Ö·û; Èç¹û±êÌâΪ¿Õ»ò¾ä±úÎÞЧ, Ôò·µ»ØÁã}
//¾ÙÀý:
var
arr: ......
DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1 ÅжÏÂß¼ÀàÐÍ
var B: Boolean;
begin
B := Boolean(2); //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B ......
delphiÖ¸Õë¼òµ¥ÈëÃÅ:
¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 ......
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, 'Ñ¡ÔñÒ»¸öÄ¿±ê');
end;
Result := 0;
end;
//hdl: ´°¿Ú¾ä±ú
//Root: ¸ùÄ ......
delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {Ìí¼Ó}
List.Add('Strings2');
List.Exch ......