- 博客(7)
- 收藏
- 关注
原创 将系统中各驱动器、目录加载到Treeview组件的源程序示例
uses ShlObj; procedure TForm1.Button1Click(Sender: TObject); var TitleName: string; lpItemID: PItemIDList; BrowseInfo : TBrowseInfo; DisplayName : array[0..MAX_PATH] of char; TempPath : array[0..MAX_PATH] of
2010-07-16 11:58:00 779
原创 TADOQuery 学习总结
1、TSQLQuery.Create(nil)和TSQLQuery.Create(Self)以及TSQLQuery.Create(Application)的区别2、Open方法:所要执行的sql语句必须是又返回结果的,udpate,delete,inserte都不行3、clsoe方法:关闭连接;基于TSQLQuery的操作都不能进行;4、sql属性:存放sql语句的列表 1)、clear:清空sql语句; 2)、add:增加一个sql语句;5、对于Record的操作: 1)、Prior方法,前一个记
2010-07-14 16:23:00 7492 1
原创 delphi学习 -----FormCreate,FormActivate,FormShow的顺序
<br />procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> form1.Caption:=form1.Caption +'+Create';<br />end;<br />procedure TForm1.FormActivate(Sender: TObject);<br />begin<br /> form1.Caption:=form1.Caption +'+Activate';<br />end;<br />proced
2010-06-22 10:24:00 6550
原创 关于procedure的嵌套
<br />unit Unit1;<br />interface<br />uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls, ExtCtrls,Unit2;<br />type<br /> TForm1 = class(TForm)<br /> select: TRadioGroup;<br /> Button1: TB
2010-06-11 15:48:00 1361
原创 关于全局变量
<br />在vb中,<br />1、全局变量的定义是在任何一个模块中,定义:public str as string;这个str就是一个全局变量了,在任何窗体、模块中都可以使用。<br />2、在窗体中定义个dim str as string 则可以在窗体内部使用;<br />3、在模块内用private str as string 则可以在模块内部使用;<br /> <br />在delphi中:<br />例如:<br />unit Unit1; <br /><br />interface <br
2010-06-11 15:42:00 756
原创 socket delphi 函数
<br />用于初始化Winsock<br />[声明]<br />int WSAStarup(WORD wVersionRequested,LPWSADATA lpWSAData);<br />[参数]<br />wVersionRequested - 要求使用Winsock的最低版本号<br />lpWSAData - Winsock的详细资料<br />[返回值]<br />当函数成功调用时返回0<br />失败时返回非0的值<br />2、socket函数<br />用于生成socket(soket
2010-06-08 11:23:00 819
原创 delphi学习 -----cardinal,GetMem函数,GetComputerName函数,mod 和div 函数
请介绍一下Cardinal这种类型? 例如Timer1.Interval,我怎么才能把STRING转换为Cardinal?不就是无符号的32位整数 StrToIntDef(S,0);就是了,比直接用StrToInt保险的
2010-06-04 17:29:00 4233
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人