摘要：1functionSplit(constSource,ch:string):TStringList;2var3Temp:string;4I:Integer;5chLength:Integer;6tmpStr:string;7begin8Result:=TStringList.Create;9//如果是空自符串则返回空列表10ifSource=''thenExit;11Temp:=Source;12I:=Pos(ch,Source);13chLength:=Length(ch);14whileI<>0do15begin16tmpStr:=Copy(Temp,0,I-c 阅读全文

摘要：发送数据：TSendArray = array of byte;var b_arr:TSendArray;beginSetLenght(b_arr, 10);b_arr[0]:=$4;b_arr[1]:=$5;…for iLen:=Low(b_arr) to High(b_arr) do ApdComPort1.PutChar(Char(b_arr[iLen]));end;接收数据：procedu... 阅读全文

摘要：procedure TForm1.btn1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);const sc_DragMove = $f012;begin ReleaseCapture; TM2Button(Sender).Perform(WM_SysCommand, sc_Dra... 阅读全文

摘要：原本想使用一个字段，引用报表中内置的一个方法，未果。 解决方法： 阅读全文

摘要：apd1.AutoEnable:=True;apd1.StartCond:=scString;apd1.StartString:=#0#0#4+'?'+#11#11;apd1.EndCond:=[ecPacketSize];apd1.PacketSize:=17;apd1.IncludeStrings:=True; apd2.AutoEnable:=True;apd2.StartCond:=sc... 阅读全文

摘要：1、准备 编译前将Options->Compiler->Debugging中的Debug information、Use Debug DCUS、Linker->EXE and DLL options中的Include TD32 debug info勾选，Packages->Runtime packages下的Build with runtime packages不勾选，重新... 阅读全文

摘要：在网上搜到的一段代码： 阅读全文

摘要：在某些情况下，需要将日期字段的值置空，这种操作比较麻烦。在操作的时候，可将变量的值（t:TDateTime)设置为0，在操作的过程中进行判断，当t的值为0或－1的时候，时间值为1899年的Delphi日期最小值，如果使用SQL设置日期的空值，可直接用： update [table] set dt=null where … 如果是字段操作，使用： FieldByName(‘dt’).AsString... 阅读全文

摘要：在处理一些临时数据时，使用TClientDataSet做为临时表时，是个不错的选择。 阅读全文

摘要：在Delphi中读取Excel文件，使用CreateOleObject的方式挺讨厌的，一直搞不定，输出了文件之后，总会在系统中打开一个Excel，就算Quit也不行，一个程序中使用的多了，还不定搞出什么事情来。狠狠心找个其它的东西来代替，于是发现了XlsReadWriteII。 使用之后发现这个东西真不错，简单好用。不管是读还是写均轻松搞定。下面是Demo中的代码。 写文件代码，包括对格式的定制：... 阅读全文

摘要：确切的说，这是对上篇日志的延伸，因为在使用这个方法的过程中，一直是好好的使用着，但突然在有一个页面里面说什么也不显示了，经反复查找，发现此表中所用的数据为多列，而可以显示正常的Columns值均为0，只要修改之后就不会正常显示了。这莫不是控件的一种设置方式，还是Bug？ 今天再次测试的时候发现，将ShowGroups设置为True之后，再设置回False，显示就正常了，而Style则改为lbOwn... 阅读全文

摘要：例串：A1,,HIV,Unknown,Undetermined,,,,,,,,, {------------------------------------------------------------------------------- 过程名: TForm1.split 作者: Gsl 日期: 2010.04.24 参数: str: string; pos: Integer 指定串及列位置... 阅读全文

摘要：本处使用RzListBox，两种控件的用法应该是大同的。今天在使用的过程中，就是不能改变颜色，跟踪发现此代码根本就没有执行到。后来发现设置ListBox的style为：lbOwnerDrawVariable，之后就可以了。 阅读全文

摘要：PRec=^TRec; TRec=record a:Integer; b:string; end; AddItem: var rec:PRec; begin new(rec); rec.a:=1; rec.b:=’a’; lst.Items.AddObject(‘It’s Demo’, TObject(rec)); end; 取值: PRec(lst.Itmes.Objects[lst.It... 阅读全文

摘要：最近感觉记忆不太好,而且反复使用线程的又不多,也没有达到强化记忆的效果.做一个记录,就当记住了吧. 1、在Private中设置变量，来接收从主线程传入的参数； 2、写一个不带参数的运行方法，使迭代调用：procedure execMethod; 3、在Public中建立构造方法：constructor Create（参数列表），将参数传递给Private中的变量； 4、编写线程方法： proced... 阅读全文

摘要：挺酷的效果，而显示设置也并不麻烦，但从Demo来看，好象只是对应于单表内的字段递归，是不是可以使用多个表，有待于考证，先做个记号： MemTableEh1.TreeList.Active := True;MemTableEh1.TreeList.KeyFieldName := 'ID';MemTableEh1.TreeList.RefParentFieldName := 'ID_PARENT';M... 阅读全文

摘要：操作时写的代码并不多，主要问题是需要将所有的数据读内存表不太合适，在修改上应该可以将数据源改为动态。使用的重点是设置DbGridEh1的RowDetailPanel打开，再将DbGridEh2放入，设置MemTableEh2的MasterFields和DetailFields，接入数据源，好，出锅！ 阅读全文

摘要：在Delphi中使用树形控件TreeView,改变其颜色,使用的是CustomDrawItem方法:代码 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedureTForm1.tv1CustomDrawItem(Sender:TCustomT... 阅读全文

摘要：ExpressBars Suite V6.29的安装与ebar5有冲突，安装中，需要先卸ebar5之后再安装。在指定各个Source路径之后：1、xp theme manager下的dxThemeD7.dpk;2、ExpressGDI+ Library下的dxGDIPlusD7.dpk;3、ExpressCommon Library下的dxComnD7.dpk;4、ExpressLibrary下的... 阅读全文

摘要：此函数没有查到，好象Delphi未提供，本算法根据其转换方法而写：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedureTForm1.FormCreate(Sender:TObject);varv:string;i,j:Integer;... 阅读全文