随笔分类 - Delphi
摘要:1.安装VM后无法启动先查看日志记录 /tmp/vmare-用户名/日志文件(vmware-apploader-*) Unable to load libfontconfig.so.1 from /usr/lib/vmware/lib/libfontconfig.so.1/libfontconfig
阅读全文
摘要:第一步: 放一个TUniconnection并设置相关属性之后直接使用TUniconnection对象即可跟踪unidac源码uni单元1540行中可以看到Connect方法调用CreateIConnectionprocedure TUniConnection.CreateIConnection;...
阅读全文
摘要:program Demo1;{ Create Date: 2014-06-29 Author: P.S.M 1.接口Demo1}{$APPTYPE CONSOLE}uses SysUtils;{定义接口}type ITestInterface = interface {GUID通过CTR...
阅读全文
摘要:版本 : devexpress 13.1.4打开包在ExpressExportLibary目录中.修改FCells.SetCellDataCurrency为FCells.SetCellDataDouble重新编译包
阅读全文
摘要:比较简单的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...
阅读全文
摘要: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:...
阅读全文
摘要:<!--测试学习初始化参数 --> <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-
阅读全文
摘要: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...
阅读全文
摘要: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...
阅读全文
摘要:今天维护一个老项目是用delphi5 + BDE写的。为了更方便查询数据,就增加一个查询功能.由于数据量查询出来后就比较少,于是就想到Filter like但 BDE并不支持 Filter = 'name like' BDE的模糊查询只有' name = A*' 匹配只能从第一个字母开始,无法达到要求.后来在OnFilterRecord中解决由于TQuery.Filtered := False;TQuery.Filtered := True;会触发OnFilterRecord事件于是写一个事件处理过程procedure OnFilterRecord(DataSe
阅读全文
摘要:网上说的不全 只要以DataBaseUrl加入 jdbc:jtds:sybase://10.0.2.15:5000;DatabaseName=qcsoft;charset=gb2312 服务器名称:10.0.2.15 端口:5000 数据库名称:qcsoft 字体集:gb2312就Ok了
阅读全文
摘要: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...
阅读全文
摘要: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 .
阅读全文
摘要: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: ...
阅读全文
摘要:procedure RegisterClasses(AClasses: array of TPersistentClass); AClasses是一个数组:每个类都通过调用RegisterClass注册到组件流中,删除注册的类调用UnRegisterClass(); function FindClass(const ClassName: string): TPersistentClass;ClassName:要查找的类名,返回TPersistentClass类型;如果查找的类不存在则触发一个exception信息,返回的类必须是从TPersistent派生的function GetClass(
阅读全文
摘要:进制的算法: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...
阅读全文