随笔分类 -  Delphi

摘要: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)
摘要:第一步: 放一个TUniconnection并设置相关属性之后直接使用TUniconnection对象即可跟踪unidac源码uni单元1540行中可以看到Connect方法调用CreateIConnectionprocedure TUniConnection.CreateIConnection;... 阅读全文
posted @ 2014-11-27 16:35 TryHard 阅读(4322) 评论(0) 推荐(0)
摘要: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)
摘要:版本 : devexpress 13.1.4打开包在ExpressExportLibary目录中.修改FCells.SetCellDataCurrency为FCells.SetCellDataDouble重新编译包 阅读全文
posted @ 2014-04-22 11:22 TryHard 阅读(891) 评论(0) 推荐(0)
摘要:比较简单的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)
摘要: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> <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)
摘要: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)
摘要: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)
摘要:今天维护一个老项目是用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)
摘要:网上说的不全 只要以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)
摘要: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包含大多数字符串操作//类似 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)
摘要: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)
摘要: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)
摘要:进制的算法: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)