舟山牙医 - 博客园

让你的DBGrid竖着站

摘要： http://www.west263.com/info/html/chengxusheji/delphi/20080410/61094_11.html { If font was assigned, changing it back to default may affect grid titleheight, and title height changes require layout and... 阅读全文

posted @ 2011-11-12 16:17 舟山牙医阅读(266) 评论(0) 推荐(0) 编辑

小记

摘要：转为字符串的函数： where To_Char(ZXRQ,''yyyy-mm-dd'')='+Quotedstr(str1) 阅读全文

posted @ 2011-11-11 18:59 舟山牙医阅读(127) 评论(0) 推荐(0) 编辑

自动更新代码

摘要： unit u_main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, C... 阅读全文

posted @ 2011-11-10 19:41 舟山牙医阅读(319) 评论(0) 推荐(0) 编辑

Delphi中关于文件、目录操作的函数

摘要： Delphi中关于文件、目录操作的函数 Delphi中关于文件、目录操作的函数来源：大富翁关于文件、目录操作 Chdir('c:\abcdir'); // 转到目录Mkdir('dirname'); //建立目录Rmdir('dirname'); //删除目录GetCurrentDir; //取当前目录名，无'\'Getdir(0,s); //取工作目录名s:='c:\abcdir';D... 阅读全文

posted @ 2011-11-10 17:57 舟山牙医阅读(1411) 评论(0) 推荐(0) 编辑

[Delphi]CopyFile函數詳解

摘要： [Delphi]CopyFile函數詳解 2007-07-20 15:41:40| 分类：学习 | 标签： |字号大中小订阅今天在翻以前的delphi筆記的時候看到了這個函數的使用,但是記錄的很少.以前好像沒怎么用過這個函數.所以就想來試試.到網上去搜這個函數的詳解,竟然沒有找到.所以,自己今天在test的時候,順便把這個函數的基本使用方法給記錄下.方便以后再用,也方便和我一樣的菜鳥們學習.... 阅读全文

posted @ 2011-11-10 17:55 舟山牙医阅读(18124) 评论(0) 推荐(0) 编辑

多线程下载

摘要： unit GetMM;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdHTTP;constUrl='[url]ht... 阅读全文

posted @ 2011-11-10 17:48 舟山牙医阅读(595) 评论(0) 推荐(0) 编辑

用 Delphi 下载网络文件

摘要： procedureTForm1.Button2Click(Sender:TObject);varMyStream:TMemoryStream;beginIdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. MyStream:=TMemoryStream.Create;try//下载我站点的一个ZIP文件IdHTTP1.Get('http://www.138so... 阅读全文

posted @ 2011-11-10 17:42 舟山牙医阅读(225) 评论(0) 推荐(0) 编辑

医联卡返回时间

摘要： function hdcService(head,body,msg,resultdata:PChar):Integer;stdcall;external 'hdcv1.dll'; //申明从hdcv1.dll中调用函数hdcservice函数，该函数包括4个参数，其中head和body是传入的xml头部分和主体部分，msg是返回的提示信息， //resultdata是返回的结果。procedure... 阅读全文

posted @ 2011-07-22 17:24 舟山牙医阅读(456) 评论(0) 推荐(0) 编辑

填充ComBoBox中的内容

摘要： [代码] 阅读全文

posted @ 2009-12-31 15:41 舟山牙医阅读(248) 评论(0) 推荐(0) 编辑

GetEnumName和GetEnumValue

摘要：利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型，并获取其名称和值。下面是示例Demo。 procedure TForm1.btnTestClick(Sender: TObject);var p: PTypeData; i: Integer; s: String; pt: PTypeInfo;begin ListBox1.Items.Clear; pt... 阅读全文

posted @ 2009-12-22 22:54 舟山牙医阅读(1709) 评论(0) 推荐(0) 编辑

导航