随笔分类 -  Delphi

Fedora26 vmare work无法启动问题
摘要：1.安装VM后无法启动先查看日志记录 /tmp/vmare-用户名/日志文件(vmware-apploader-*) Unable to load libfontconfig.so.1 from /usr/lib/vmware/lib/libfontconfig.so.1/libfontconfig 阅读全文
posted @ 2017-07-24 01:22 TryHard 阅读(388) 评论(0) 推荐(0)
使用Unidac内置连接池
摘要：第一步： 放一个TUniconnection并设置相关属性之后直接使用TUniconnection对象即可跟踪unidac源码uni单元1540行中可以看到Connect方法调用CreateIConnectionprocedure TUniConnection.CreateIConnection;... 阅读全文
posted @ 2014-11-27 16:35 TryHard 阅读(4322) 评论(0) 推荐(0)
Delphi接口
摘要：program Demo1;{ Create Date: 2014-06-29 Author: P.S.M 1.接口Demo1}{$APPTYPE CONSOLE}uses SysUtils;{定义接口}type ITestInterface = interface {GUID通过CTR... 阅读全文
posted @ 2014-06-29 18:24 TryHard 阅读(337) 评论(0) 推荐(0)
delphi cxgrid导出excel去除货币符号
摘要：版本 ： devexpress 13.1.4打开包在ExpressExportLibary目录中.修改FCells.SetCellDataCurrency为FCells.SetCellDataDouble重新编译包 阅读全文
posted @ 2014-04-22 11:22 TryHard 阅读(891) 评论(0) 推荐(0)
ReadThinClient学习(一)
摘要：比较简单的DEMO学习服务端代码View Code unit RtcHttpServer;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, StdCtrls, ComCtrls, rtcInfo, rtcConn, rtcDataSrv, rtcHttpSrv, rtcFunction, rtcSrvModule;type TMsgType = (mtOK, mtHelp, mtErr); TrtcHttpServerDe... 阅读全文
posted @ 2012-10-10 17:00 TryHard 阅读(1432) 评论(0) 推荐(0)
Delphi基础Write写入结构体到文件
摘要：program WriteStruct;{$APPTYPE CONSOLE}uses SysUtils;//写入结构体type TCustomer = record ID: string[10]; Code: string[10]; Name: string[10]; end;var Customers: array[1..10] of TCustomer; i: Integer; myText: file of TCustomer; //file of type type必须是固定大小的，不能是对象, String, Variant等 customer:... 阅读全文
posted @ 2012-09-28 16:35 TryHard 阅读(2746) 评论(0) 推荐(0)
Servlet中web.xml 文件参数 context-param 与 init-param的区别
摘要：<!--测试学习初始化参数 --> <servlet> <servlet-name>BeerParamTests</servlet-name> <servlet-class>org.ps.demo.TestInitParams</servlet-class> <init-param> <param-name>adminEmaail</param-name> <param-value>444733551@qq.com</param-value> </init- 阅读全文
posted @ 2012-09-08 23:16 TryHard 阅读(3968) 评论(0) 推荐(0)
SQL简单按行查询
摘要：CREATE PROCEDURE GetDataByRow( @SqlStr varchar(8000), --起始语句 @FirstRec int, --首条记录 @LastRec int --最后记录)AS--一个字符型的随机数 结果放入临时表中,表名随机生成SELECT @dt = substring( Convert( varchar,rand()), 3, 10 )-- STUFF(原字符串 , 开始替换的位置 , 被替换的字符数 , 用于替换的字符串 )select @SqlStr = stuff(@SqlStr,charindex('FR... 阅读全文
posted @ 2012-03-19 23:24 TryHard 阅读(955) 评论(0) 推荐(0)
SQL简单分页查询
摘要：create procedure GetDataByPage( @sqlStr varchar(8000), @pageSize int --页面大小 @currentPage int --当前页面)as declare @firstRec int declare @lastRec int declare @dt varchar(20) declare @tempTableName varchar(16) --计算页面算法 select @firstRec = ( @currentPage - 1) * @pageSize select... 阅读全文
posted @ 2012-03-19 23:21 TryHard 阅读(979) 评论(0) 推荐(0)
Delphi中TQuery.Filter用法
摘要：今天维护一个老项目是用delphi5 + BDE写的。为了更方便查询数据，就增加一个查询功能.由于数据量查询出来后就比较少，于是就想到Filter like但 BDE并不支持 Filter = 'name like' BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始，无法达到要求.后来在OnFilterRecord中解决由于TQuery.Filtered := False;TQuery.Filtered := True;会触发OnFilterRecord事件于是写一个事件处理过程procedure OnFilterRecord(DataSe 阅读全文
posted @ 2012-03-13 22:09 TryHard 阅读(6826) 评论(0) 推荐(0)
Sybase中DbVisualizer 中文乱码解决
摘要：网上说的不全 只要以DataBaseUrl加入 jdbc:jtds:sybase://10.0.2.15:5000;DatabaseName=qcsoft;charset=gb2312 服务器名称：10.0.2.15 端口:5000 数据库名称:qcsoft 字体集:gb2312就Ok了 阅读全文
posted @ 2012-02-23 08:28 TryHard 阅读(1601) 评论(0) 推荐(0)
FindFirst,FindNext,FindClose学习
摘要：procedure TForm1.Button1Click(Sender: TObject);var Dir: TSearchRec; //文件结构begin if FindFirst(edit1.Text,faAnyFile,Dir) = 0 then begin repeat //是目录吗? //and 的作用是通过 "与" fadirectory 消掉Attr中的其它文件,只取留下faDirectory属性 //通过 or 可以添另其它属性 if(Dir.Attr and faDirec... 阅读全文
posted @ 2012-02-08 18:11 TryHard 阅读(912) 评论(0) 推荐(0)
StrUtils
摘要：StrUtils包含大多数字符串操作//类似 AAAA 类似于ABAAAfunction ResemblesText(const AText, AOther: string): Boolean; overload;function AnsiResemblesText(const AText, AOther: string): Boolean; overload;//包含 function ContainsText(const AText, ASubText: string): Boolean; inline; overload;function AnsiContainsText(const . 阅读全文
posted @ 2012-02-06 23:07 TryHard 阅读(1414) 评论(0) 推荐(0)
Pos,PosEx学习
摘要：PosEx,Pos都是在一个字符串中搜索子串返回其索引值unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TfrmStrDemo = class(TForm) Edit1: TEdit; ListBoxMatch: TListBox; btnPos: TButton; btnPosEx: TButton; procedure btnPosClick(Sender: ... 阅读全文
posted @ 2012-02-06 22:49 TryHard 阅读(1701) 评论(0) 推荐(0)
Classes.RegisterClasses,Classes.FindClass,Classes.GetClass学习
摘要：procedure RegisterClasses(AClasses: array of TPersistentClass); AClasses是一个数组:每个类都通过调用RegisterClass注册到组件流中,删除注册的类调用UnRegisterClass(); function FindClass(const ClassName: string): TPersistentClass;ClassName：要查找的类名,返回TPersistentClass类型;如果查找的类不存在则触发一个exception信息,返回的类必须是从TPersistent派生的function GetClass( 阅读全文
posted @ 2012-02-05 17:21 TryHard 阅读(844) 评论(0) 推荐(0)
16进制以下任意转换
摘要：进制的算法:program Project1;{$APPTYPE CONSOLE}uses SysUtils;//适用于16进制以下转换function Convert(N: Integer; M: Integer):string;var NumArray: array[1..15] of char; I: Integer;begin Result := ''; for I := 1 to 15 do begin if(i < 10) then NumArray[i] := chr(48 + i mod 10) // 1... 阅读全文
posted @ 2012-02-04 18:05 TryHard 阅读(308) 评论(0) 推荐(0)