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

delphiÖÐÈçºÎµÃµ½Ò»¸öcount£¨¼±Óã©

ÎÒÒѵõ½ÎÒÏëÒªµÄËùÓм¯ºÏ  µ«ÊÇÎÒ¸ÃÓõõ½Õâ¸ö¼¯ºÏµÄcount ÄØ  £¨¾ßÌåÏ£ºµ÷ÄǸö¿Õ¼äµÄÊôÐÔ»ò·½·¨£©Ð»Ð»ÁË£¬¿ÉÄܼܺòµ¥£¬µ«ÊÇÎÒÕæµÄ²»»á
ËùÓм¯ºÏÊÇָʲôµÄ¼¯ºÏ°¡?
Õâ¸öÊDz»ÊÇÄãÒªµÄ ÈÝÆ÷ÀàµÄControlCount¿ÉÒÔʹÓÃ

panel1.ControlCount
form1.ControlCount

var
  cnts : integer;

adoquery1.close;
adoquery1.add('select count(*) from table_name');
adoquery1.open;

cnts := adoquery1.fields(0).asstring;


²»ÖªËùÔÆ...

self.ControlCount



ÎÒµÄÒâ˼¾ÍÊǶþÂ¥µÄÒâ˼  ¿ÉÊÇÓöþÂ¥µÄ·½·¨  ÎÒÕⱨ´í

ADOQuery1.RecordCount

ÒýÓÃ
var
 

adoquery1.close;
adoquery1.add('select count(*) from table_name');
adoquery1.open;

:= adoquery1.fields(0;


cnts : integer;
cnts := ¡£¡£¡£.asstring £¿£¿
¶þÂ¥ÕâÒ»¶¨ÊDZàÒë²»¹ýµÄµ±È»¡£
¸ÄΪ£ºcnts :string;


ADOQuery1.RecordCount; //Õâ¸ö¾Í¿ÉÒÔÁ˰É




form1.ComponentCount
..........

лл 7Â¥µÄ



Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

ÇëÎÊÕ⼸¾ädelphiÔõô¸Ä³Ébcb

const
  WM_REFRESH_USERS = WM_USER + 330;

type
  TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);

  PCmdRec = ^TCmdRec;
  TCmdRec = record
&nbs ......

delphi Êý×é¸úfor

ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****

Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
  arr: array of Integer;
  i,j: I ......

Delphi ÄÚÇ¶ÍøÒ³´°¿Ú´óС

³ÌÐòÀï·ÅÖÃÒ»¸öWebBrowser£¨ÔÚInternetÒ³ÃæÀȻºó£º
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.baidu.com');
end;
ÇëÎÊÒ»ÏÂÈçºÎ¿Ø ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ