Delphi
关注
分享
扫一扫
missingzlp
这个作者很懒，什么都没留下…
展开
-
Delphi单元测试工具Dunit简单使用
配置测试环境 在使用Dunit前应该将下载的Dunit解压。然后后将Dunit的路径加到菜单 Tools->Environment Options 里面的Library->Library Path中。创建一个被测试的Project 创建一个Project,将确省的Unit1保存为Unit_Main.pas文件。增加一个Public的函数Sum，Sum代码如下： function TfrmMain.Sum(a, b: Integer): Integer; begin &..原创 2020-05-28 12:00:55 · 784 阅读 · 0 评论 -
treeview简单使用
初始化图标procedure TreeImageInit;var i: Integer;begin with tv1 do begin for i := 0 to Items.Count - 1 do begin Items[i].ImageIndex := 2; Items[i].SelectedIndex := 5; It...原创 2020-03-29 21:43:35 · 327 阅读 · 0 评论 -
adoQuery对象池
{ for example:var q: TADOQuery;begin Result := nil; q := g_adoquerypool.GetAdoQuery; if q <> nil then begin q.Close; q.SQL.Clear; q.SQL.Text := sqlCommand; q.Open;...原创 2020-03-09 12:40:31 · 289 阅读 · 0 评论 -
XML解析
//读取 xml 的函数{ 功能1: 传入一个节点参数, 返回节点及其包含的所有内容; 功能2: 排除了空节点.}function ReadXml(node: IXMLNode): string;var nodeList,attrList: IXMLNodeList; str,strName,strValue: string; i: Integer;begin ...原创 2019-12-04 09:16:07 · 119 阅读 · 0 评论 -
Delphi XE RSA Demo
var vSignSrc, vPrivateKey: string;begin vSignSrc:= 'data=<xml><treatment_id>88888</treatment_id><merchant_no>109900040300</merchant_no>'+ '<sub_merchant>...原创 2019-12-03 21:31:31 · 1535 阅读 · 1 评论 -
Delphi Overflow while converting variant of type(Integer) into type(Date)
cxDateUtils.pas，将NullDate = -700000改为NullDate = －1控件重新编译下原创 2019-11-18 18:53:18 · 1229 阅读 · 0 评论 -
托盘定时强制前置显示
1、窗体放置控件TRzTrayIconprocedure RzTrayIcon1MinimizeApp(Sender: TObject);begin? RzTrayIcon1.ShowBalloonHint(Application.Title, '您可以在此处找到我呦！', bhiInfo);end;2、隐藏窗体Application.Minimize;3、强制前置显示proc...原创 2019-11-07 11:43:28 · 297 阅读 · 0 评论 -
Delphi中的各种字符串、String、PChar、Char数组
其中的所有代码均在Delphi7下测试通过。Delphi 4,5,6,7中有字符串类型包括了： 短字符串（Short String） 长字符串（Long String） 宽字符串（Wide String） 零结尾字符串（Null-Terminated String）、PChar和字符数组 1、短字符串（Short String）固定长度，最大字符数个...原创 2019-11-05 09:09:23 · 1208 阅读 · 0 评论 -
返回指定表、字段信息
function GetTable(TableName, SourceName, FieldName, Code: string): string;begin result := ''; try with cdsSQL do begin Close; Data := null; CommandText := ' select ' ...原创 2019-05-31 07:17:45 · 262 阅读 · 0 评论 -
Delphi判断字符串是否是数字、字母、大小写字母
function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字vari:integer;beginresult:=true; //设置返回值为 是（真）Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not...转载 2019-06-06 01:49:09 · 2244 阅读 · 0 评论 -
txt字典导入数据库
function OpenTxtToDB(flag:string;pb1: TProgressBar;lbl1: TLabel):Boolean;var FileName:string; t: textFile; path, sfield: string; s, sql, errer: string; i: integer; jd, all: integer;...原创 2019-05-29 10:36:52 · 452 阅读 · 0 评论 -
delphi编写的插件,关闭IE时出现runtime error 216的解决方法
一、EXE的情况，把代码放在工程文件procedure Halt0;beginHalt;end;beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;asm xor edx, edx push ebp push OFFSET @@safecode...原创 2019-08-12 18:46:41 · 1019 阅读 · 0 评论 -
Delphi 中的 XMLDocument 类详解(5) - 获取元素内容
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1 = class(TForm) XML...原创 2019-08-12 19:02:03 · 758 阅读 · 0 评论 -
Delphi 中的 XMLDocument 类详解(6) - 访问节点属性
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1 = class(TForm) XML...原创 2019-08-12 19:02:37 · 312 阅读 · 0 评论 -
Delphi 中的 XMLDocument 类详解(7) - 获取节点名称与节点的属性名称
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1 = class(TForm) XML...原创 2019-08-12 19:03:12 · 784 阅读 · 0 评论 -
Delphi 中的 XMLDocument 类详解(8) - 添加与删除节点
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1 = class(TForm) XML...原创 2019-08-12 19:03:44 · 277 阅读 · 0 评论 -
MVC设计模式
元数据Meata data描述数据的数据 String sql , 描述这份sql字符串的数据叫做元数据数据库元数据 DatabaseMetaData参数元数据 ParameterMetaData结果集元数据 ResultSetMetaData###MVC设计模式###JSP的开发模式[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-JeZpQ...原创 2019-09-28 18:28:32 · 136 阅读 · 0 评论 -
RzComboBox下拉关联数据字典
procedure CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table, condition: string; Flg: Boolean);begin try with cdsSQL do begin Close; CommandText := ' select RTrim(' +...原创 2019-05-31 07:16:17 · 464 阅读 · 0 评论 -
TADOQuery默认连接
procedure qrySetCon;var i:Integer;begin for i := 0 to Self.ComponentCount - 1 do if Components[i] is TADOQuery then begin TADOQuery(Components[i]).Connection := dtm_DM.conSQL; end;...原创 2019-05-21 23:35:12 · 182 阅读 · 0 评论 -
Delphi7程序调用C#写的DLL解决办法(DLL)
Delphi7程序调用C#写的DLL解决办法(DLL)转载至：http://bbs.itjsj.com/thread-334070-1-1.html近来，因工作需要，必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索，又经过种种试验，最终证明有以下两种方法可行： 编写C#dll的方法都一样，首先在vs2005中创建一个“类库”项目TestDll，using...原创 2011-07-15 13:20:00 · 671 阅读 · 0 评论 -
DLL封装MDI窗体(DLL)
DLL封装MDI窗体(DLL)一：新建DLLView Codelibrary TestMDIDll;{ Important note about DLL memory management: ShareMem must be thefirst unit in your library's USES clause AND your project's (selectProject-V...原创 2011-07-12 17:30:00 · 101 阅读 · 0 评论 -
C#调用Delphi的Dll传值
//----------------------C#-------------------// private const string dll = "iihFounder.dll"; [DllImport(dll, EntryPoint = "FounderRequestData", SetLastError = true,CharS...原创 2019-04-17 11:56:08 · 536 阅读 · 0 评论 -
ClientDataSet的用法
ClientDataSet的用法TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属...原创 2011-08-31 19:11:00 · 129 阅读 · 0 评论 -
BLOB字段来保存fastreport的报表模板
FASTREPORT的设计界面，保存的时候是生成扩展名为.fr3的文件来保存设计好的报表模板的。现在改为用数据表的BLOB字段来保存报表模板。 m :=TMemoryStream.Create; try Report.SaveToStream(m); f_printsetup.ClientDataSet1.Edit; tblobfield(f_prints...原创 2019-04-25 23:57:04 · 295 阅读 · 0 评论 -
清空文件夹
function DeleteDirectory(NowPath: string): Boolean; // 删除整个目录varsearch: TSearchRec;ret: integer;key: string;beginif NowPath[Length(NowPath)] <> '\' thenNowPath := NowPath + '\';k...原创 2019-04-25 23:59:33 · 168 阅读 · 0 评论 -
delphi创建资源文件dll并且调用
创建：打开新建工程，选择[DLL Wizard]OK再打开新建，选择TextLOGIN1 BITMAP D:\Founder\HS\HS_Base\res\jpg\login.bmpHOMEBACK BITMAP "D:\Founder\HS\HS_Base\res\jpg\login.bmp"POPBACK BITMAP "D:\Founder\HS\HS_Ba...原创 2019-04-26 00:02:20 · 923 阅读 · 0 评论 -
获取文件创建、修改时间
const Model = 'yyyy-mm-dd hh:mm:ss'; { 设定时间格式 }var Tp: TSearchRec; { 申明Tp为一个查找记录 } T1, T2, T3: string;begin FindFirst('D:\Founder\HS\HS_Base\bin\server\update\hsencrypt.dll', faAnyFile, ...原创 2019-04-26 00:03:32 · 538 阅读 · 0 评论 -
文件遍历
var i: Integer; dir: string; filePathList, fileNameList: TStringList;begin try try dir := ExtractFileDir(Application.ExeName) + '\update'; filePathList := TStringList.Creat...原创 2019-04-26 00:04:54 · 168 阅读 · 0 评论 -
RzComboBox加载字典
procedure CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table, condition: string; Flg: Boolean=False);procedure Tdtm_dm.CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table, condition...原创 2019-04-26 00:06:42 · 401 阅读 · 0 评论 -
写本地日志(方法/日志类)
procedure writeWorkLog(sqlstr: string);var filev: TextFile; ss: string;begin sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr; ss:='c:\ErpRunLog.txt'; if FileExists(ss) then begin Assign...原创 2019-04-26 00:07:31 · 590 阅读 · 0 评论 -
cxgrid几种条件下行变色问题与解决
cxgrid几种条件下行变色问题与解决1 .鼠标选中行变色。其实默认条件下，鼠标选中的行就会变色，但是被点中的单元格不变色，如果想让单元格和其它列一样的话，在cxGrid1DBTableView中找属性OptionsSelection中的CellSelect的属性变成False.但是默认颜色可能达不到使用者的要求，比如有粉粉控的人只喜欢粉色，想让选中的行变成粉色怎么办呢？很简单，只需要使cx...原创 2019-04-26 00:08:20 · 830 阅读 · 0 评论 -
加密解密
// 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function Encode(Str: string): string;function Decode...原创 2019-04-26 00:09:04 · 200 阅读 · 0 评论 -
AlphaControls的使用方法
AlphaControls v14.19for Delphi7、XE10.31、解压压缩包到你选择的路径；2、解压后的路径必须注册到系统搜索路径，即：AlphaControls文件夹在Delphi中的路径(操作菜单：Tools->Environment Options->Library->Library Path，点ADD，再OK)；就是告诉DELPHI，...原创 2019-04-25 17:17:01 · 1856 阅读 · 0 评论 -
XLSReadWriteII5读写excel
procedure excelImport;var Col, Row: integer; i, j: integer;begin try try // dlgOpen.Filter := 'excel(*.xlsx)|*.xlsx|全部文件(*.*)|*.*'; dlgOpen1.Filter := 'XLSX图标|*.xlsx|XLS图标|*.x...原创 2019-04-25 17:20:07 · 5026 阅读 · 0 评论 -
GetSubString
function GetSubString(const aInputText: string; const aSplitChar: string; aSplitCharIndex: integer): string;var i: integer; StrTemp: WideString; j :integer;begin i := 1; j :=length(aSpl...原创 2019-05-14 11:11:31 · 1454 阅读 · 0 评论 -
DLL把FORM嵌入到EXE中的一个tab中，键盘失效的问题
if not Assigned(frmWhFunc) then frmWhFunc := TfrmWhFunc.Create(Application); frmWhFunc.ParentWindow:= AppHnd; frmWhFunc.Align := alClient; frmWhFunc.BorderStyle:= bsNone;//该句导致键盘失效 frmW...原创 2019-04-14 01:43:47 · 239 阅读 · 0 评论