- 博客(7)
- 收藏
- 关注
RSS订阅原创 将系统中各驱动器、目录加载到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
767
原创 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
7412
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
6471
原创 关于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
1326
原创 关于全局变量
<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
690
原创 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
801
原创 delphi学习 -----cardinal，GetMem函数，GetComputerName函数，mod 和div 函数
请介绍一下Cardinal这种类型？ 例如Timer1.Interval，我怎么才能把STRING转换为Cardinal？不就是无符号的32位整数 StrToIntDef(S，0）；就是了，比直接用StrToInt保险的
2010-06-04 17:29:00
4156
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人