DELPHI学习
咖啡色的浪漫
这个作者很懒,什么都没留下…
展开
-
ListView的使用技巧
//全部选择 for I:=0 to ListView1.Items.Count-1 do begin ListView1.Items.Item[i].Checked := true; end;//增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListIt转载 2007-02-08 19:26:00 · 1060 阅读 · 0 评论 -
百钱买百鸡问题
公元钱五世纪,我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”:鸡翁一值钱五,鸡母一值钱三,鸡雏三值钱一。百钱买百鸡,问鸡翁、鸡母、鸡雏各几何?procedure TForm1.Button1Click(Sender: TObject);var x,y,z : integer; //x 鸡翁个数;y鸡母个数;z鸡皱个数begin x := 0; while x begin原创 2007-02-05 15:16:00 · 2779 阅读 · 0 评论 -
水仙花数算法
//水仙花数 //题目:打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数//本身。例如:153是一个“水仙花数”,因为153=1的三次方+5的三次方+3的三次方。//1.程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。procedure TForm1.Button2Click(Sender: TObject);var i,j,原创 2007-02-05 15:51:00 · 11975 阅读 · 0 评论 -
Delphi直接读写XML修改版
<!--google_ad_client = "pub-3528650120430763";google_ad_width = 468;google_ad_height = 60;google_ad_format = "468x60_as";google_ad_type = "text_image";google_ad_channel = "";google_ui_fe转载 2007-07-05 09:31:00 · 1980 阅读 · 0 评论 -
Delphi开发工具中如何访问数据库结构
在开发数据库软件的过程中,由于实际需求不断发生变化,数据库结构也将随之改变,这会给文档更新工作带来很大困难。如果能够用软件自动获得数据库的结构信息并生成报告文件,将减轻软件的文档工作量。 1 TSession对象 为了管理应用程序与数据库系统的多重连接,Delphi提供了TSession对象。Delphi中的数据访问对象(Data Access Object)均包含Sessio转载 2007-07-18 08:46:00 · 1517 阅读 · 0 评论 -
API写的ServerSocket多线程应用例子
program Server; {$APPTYPE CONSOLE} uses SysUtils, Winsock, Windows; type TParam=record TrdId:integer; Sckt:TSocket; end; //子线程函数function ChildThrd(p:Pointer):LongInt;stdcall;var原创 2007-07-13 15:51:00 · 1336 阅读 · 0 评论 -
将文本中带格式的数据导入到数据库中
procedure TFmMain.BtngoClick(Sender: TObject);var txtfile : TextFile; txtstr,tmpstr : string; id,Num,L_ID,U_ID,U_Name : string; s : integer;begin //连接数据库 con.Connected := false; con.KeepConne原创 2007-05-10 11:14:00 · 1090 阅读 · 0 评论 -
程序运行过程中直接配置数据源
方法一:procedure TForm1.Button1Click(Sender: TObject);varmdb:string;beginmdb:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False;;if opendialog1.Execute thenadoquery1.Connec原创 2007-05-10 11:32:00 · 679 阅读 · 0 评论 -
Delphi动态调试动态库步骤
本文详细介绍Delphi5环境下如何调试动态库(包括进程内COM组件)。 1. 在Run/Parameters设置宿主程序 2. 打开Modules对话框(View/Debug/Modules),右键选择“Add Module...” 3. 选择所需要调试的动态库 4. 将该动态库设为 5. 运行程序,程序会在加载该动态库时停下来 6. 再次打开Modules对话框,找到该动态库,右键选原创 2007-10-20 08:23:00 · 1973 阅读 · 0 评论