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

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


Ïà¹ØÎĵµ£º

DELPHI GetWindowText »ñÈ¡´°¿Ú±êÌâ

//ÉùÃ÷:
GetWindowText(
hWnd: HWND; {´°¿Ú¾ä±ú}
lpString: PChar; {½ÓÊÕÎı¾µÄ»º³åÇøµÄÖ¸Õë}
nMaxCount: Integer {Ö¸¶¨»º³åÇø´óС, ÆäÖаüº¬NULL×Ö·û; Èç¹ûÎı¾³¬³ö£¬»á±»±»½Ø¶Ï}
): Integer; {·µ»Ø×Ö·û¸öÊý, ²»°üÀ¨ÖжϵĿÕ×Ö·û; Èç¹û±êÌâΪ¿Õ»ò¾ä±úÎÞЧ, Ôò·µ»ØÁã}
//¾ÙÀý:
var
arr: ......

DelphiÖн¨ÒéʹÓõÄÓï¾ä

DelphiÖн¨ÒéʹÓõÄÓï¾ä
Â¥Ö÷zswang£¨°éË®ÇåÇå)(ר¼ÒÃÅÕïÇå½à¹¤£©2002-05-15 13:37:54 ÔÚ Delphi / VCL×é¼þ¿ª·¢¼°Ó¦Óà ÌáÎÊ
No.1   ÅжÏÂß¼­ÀàÐÍ  
  var   B:   Boolean;  
  begin  
      B   :=   Boolean(2);   //ÕâÑùÖ»ÊÇΪÁ˵÷ÊÔ//B ......

delphiÖ¸Õë¼òµ¥ÈëÃÅ

delphiÖ¸Õë¼òµ¥ÈëÃÅ:  
   
  ¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º  
  1         var  
  2             X,   Y:   Integer;       //   X   and   Y   ÕûÊýÀàÐÍ  
  3 ......

delphi Ñ¡ÔñÎļþ¼Ð


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 Ó÷¨Ïê½â

delphi TStringList Ó÷¨Ïê½â
//TStringList ³£Ó÷½·¨ÓëÊôÐÔ
:
var
  List: TStringList;
  i: Integer;
begin
  List := TStringList.Create;
  List.Add('Strings1');           {Ìí¼Ó}
  List.Add('Strings2');
  List.Exch ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ