Delphi
文章平均质量分 54
camillect
这个作者很懒,什么都没留下…
展开
-
delphi下对dbf文件进行物理删除
我们知道,一般的dbf文件执行delete操作都只是对文件进行逻辑删除(对记录做标记,可以恢复),而怎么使记录彻底删除呢?如下:procedure PackTable(Table: TTable);var Props: CURProps;begin // 必须以独占方式打开 if (not Table.Active) or (not Table.Exclusive) then Exi...原创 2018-06-04 16:16:11 · 540 阅读 · 0 评论 -
delphi中使用配置文件 *.ini
unit zs_dyjpz;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Printers,WinSpool,IniFiles;type TW_dyjpz = class(TForm) ...原创 2018-07-04 19:52:53 · 507 阅读 · 0 评论 -
delphi 数字转换成中文
获取当前日期,日期为数字。将数字转换成中文。function TForm1.GetCNDay():string; //result是function默认的返回值变量var str,strYear,strMonth,strDay,e,n,s : string; year,month,day,v_index,v_len,i : Integer;begin e:=...原创 2018-07-06 18:31:01 · 1688 阅读 · 0 评论 -
delphi 在word模板中贴数据
如果需要word模板,并且在delphi中将数据插入到word中的操作步骤:下面操作涉及的变量:var i,j:integer; FileName:string; vl_str,vl_sql:string; ksh,kslb:string ; bookmarkCount,vl_answer:integer; bookmarkName:string;...原创 2018-07-06 18:46:28 · 1543 阅读 · 0 评论 -
delphi 清空dbgrd和StringGrid
界面中有dbgrd和StringGrid,做“清空”操作,需求中要求清空信息包括清空所有的下拉列表、文本框以及dbgrd和StringGrid。//文本框edt1.Text := '';//下拉列表cbb1.ItemIndex:=-1;//清空dbgrddbgrd1.DataSource.DataSet.Close;dbgrd1.Refresh;//清空StringGridfor i:=1 ...原创 2018-07-13 16:24:18 · 1511 阅读 · 0 评论 -
Delphi 创建快捷方式
最近在写一个软件的安装程序,快捷方式如下。亲测有效~~ procedure TOne.createLnk(Sender: TObject);var AnObj: IUnknown; ShLink: IShellLink; PFile: IPersistFile; FileName: string; WFileName: WideString; Reg: TRegIn...原创 2018-10-29 16:55:16 · 1091 阅读 · 0 评论