摘要：{判断字符串是否包含汉字// judgeStr：要判断的字符串//posInt：第一个汉字位置}//IsHaveChinese(judgeStr: WideString; var posInt: integer): boolean; //可用于d7function TForm1.IsHaveChin... 阅读全文

摘要：---恢复内容开始---function Rmb2Dx(f: string): string;//支持宽字符var Fs, dx, d2, zs, xs, h, jg: string; i, ws, {l,} w, j, lx: integer;begin f := Trim(f); if ... 阅读全文

摘要：RM(Report Machine)是一个功能强大的Delphi报表控件包。使用它可以制作出非常复杂的报表。下面讲述最简单的用法：在Form上放上两个数据库控件：ADOConnection和ADOQuery设置好ADOConnection的ConnectionString。LoginPrompt=F... 阅读全文

摘要：nativexml控件为第三方操作xml的控件uses NativeXmlOld;//引入旧的xml操作单元procedure TForm1.Button1Click(Sender: TObject);var XmlDoc, tmpDoc: TNativeXmlOld; Node, DNode, s... 阅读全文

摘要：FireMonkey 的控件都是自己绘制的(而不是基于系统组件), 我想它们应该是基于一些基本图形; 就从基本图形开始吧.FMX.Objects 单元给出的类:TShape //基本图形的基类TLineTRectangleTRoundRectTCalloutRectangleTEllipseTCir... 阅读全文