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
cnts : integer;
cnts := ¡£¡£¡£.asstring £¿£¿
¶þÂ¥ÕâÒ»¶¨ÊDZàÒë²»¹ýµÄµ±È»¡£
¸ÄΪ£ºcnts :string;
ADOQuery1.RecordCount; //Õâ¸ö¾Í¿ÉÒÔÁ˰É
form1.ComponentCount
..........
лл 7Â¥µÄ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
&nbs ......
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****
Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
³ÌÐòÀï·ÅÖÃÒ»¸öWebBrowser£¨ÔÚInternetÒ³ÃæÀȻºó£º
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
ÇëÎÊÒ»ÏÂÈçºÎ¿Ø ......