Delphi
文章平均质量分 77
suihu
打篮球,打乒乓球
展开
-
Delphi编程技巧集
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpan转载 2007-08-10 11:00:00 · 684 阅读 · 0 评论 -
Delphi字符串函数大全
字符串函数大全 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc;原创 2007-08-10 10:57:00 · 800 阅读 · 0 评论 -
Delphi创建Excel文件常用操作
首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( Excel.Application ); 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelApp.Caption := 应用程序调用 Microsoft Excel; 3原创 2007-08-10 14:00:00 · 5680 阅读 · 1 评论 -
数字转换成中文数值的方法
function IntToChinese(Num: Integer): string; var I: Integer; len: Integer; iChar: Integer; chNum: string; begin Result := ; len := Length(IntToStr(Num)); for I := 1 to len d原创 2008-04-01 22:44:00 · 725 阅读 · 0 评论