随笔分类 - Pascal Lazarus
lazarus,freepascal,delphi
只有注册用户登录后才能阅读该文。
摘要:一下是该控件官网的介绍 “Hello A package for a docked form editor can be found in : components/sparta/dockedformeditor/sparta_dockedformeditor.lpk It was first cl
阅读全文
摘要:首先这里真的要强调一下,由于Freepascal升级到3.0后,FPC的内部将整个代码处理由AnsiString改为了UTF8编码(RTL with default codepage UTF-8)。 一、对于部分老函数: 实际应用会发现如果使用了wndows API 比如 function GetA
阅读全文
摘要:也就是使用XPath的方式,具体语法规则查看http://www.w3school.com.cn/xpath/xpath_syntax.asp,说明得相当详细。这里列举例子是说明在Lazarus/FPC下具体应用于实现,以及注意事项。首先可以构建一个“ReadXPath”的函数方便调用。毕竟每次使用
阅读全文
摘要:这里读取'HistoryPath' ,'TracePath' 元素下的‘value’属性使用的是 view plaincopy to clipboardprint var xmlCfg: TXMLDocument; .... function ReadXMLCFG: boolean; var ...
阅读全文
摘要:在lazarus1.6里加载了AnchroDocking后,Coolbar突然不见了,找了好久没找到,原来在这里! 在AnchroDocking中可能是为了界面的最大化,默认是开始Toolbar 而关闭 Coolbar。
阅读全文
摘要:procedure TxxxxForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove: Integer = $F012; begin
阅读全文
摘要:很早以前看《Delphi 4从入门到精通》有这么一个概念——CallBack。然后在《Delphi 6从入门到精通》看同样的章节,翻译为“回调”,就有一个疑问了,什么是Callback\“回调”,到底是读回“diao”,还是回“tiao”。 后来明白了——2005年的某天,这个概念在C、Pascal
阅读全文
摘要:这个是个很有意思的事情,这一个成熟的模板上更改,同样的属性,同样的方法,新的组件在载入过程中就是报错。 “Stack overflow” 因为有初始化过程,担心是不是那个地方有问题,由于是在属性赋值过程中出现的,开始认为是写操作溢出,逐个逐个排,两个半小时就这么过去了…… 发现原来是那个属性读被自引
阅读全文
摘要:这段时间又开始用delphi了,才发现我对它这么的不熟悉! 简单的而有效的调试工具 Logger 这个是“榕树下”的作品,小巧而精悍。稍微调整了一下。在需要的地方加入 {$IFDEF DEBUG} Logger.WriteLog('SetKeyDatetime ok %s', [DateTimeTo
阅读全文
摘要:TOjectList = Class (Tlist); TOjectList继承Tlist,从名字上看就可以知道它是专门为对象列表制作的,那么他到底丰富了那些功能呢? 首先是 TObject 作为对象可以方便使用,无需指针强制。 丰富了 Notify 针对当前状态处理,比如如果是删除就将该点的引用一
阅读全文
摘要:Lazarus的环境配置让人有点犯晕,对于刚从delphi转到lazarus上的我来说,每次新建工程都会遇到一堆Can't find unit xxxx used by xxxx的问题,问题虽然不大,但确实让人郁闷,明明路径都设置了,怎么就找不到单元呢? 首先介绍一下Lazarus的搜索编译单元方面
阅读全文
摘要:实在是没有想到删除.SVN文件夹是件这么痛苦的事情,最近在整理公司历史资料文件,粗略统计一下600G左右,本想一次提交到服务器上省事,没想到啊没想到,传输中途程序崩掉了,本地文件夹剩下一大堆.svn文件夹。服务器上鉴于原子性什么也没有传上去,还消耗了一大堆空间,打算重新做!准备用系统的查找删除,Wi
阅读全文
摘要:IncludeTrailingPathDelimiter(const S: string): string; 功能 返回包括最后路径分隔符 说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 参考 function SysUtils.IsPathDelimiter;function S
阅读全文
摘要:在Delphi中使用正则表达式,我以前用的是PaxScripter里面的——TRegExpr, 引用单元:RegExpr1。但有很多人使用的是RegExpr 是http://RegExpStudio.com 提供的,现在好像免费了,而且包含在Lazarus里面。 Freepascal本身还提供了Re
阅读全文
摘要:Pascal 中也可以支持泛型(Generics)。 如何定义在MachineLhttp://1123monkey.blog.163.com/blog/static/6312575120123210130701/ 中有清晰的使用说明; 看看Delphi月Freepascal(FPC) 关于使用还是有
阅读全文
摘要:Lazarus 在字符串处理上默认是UTF8编码 UTF8String = type ansistring; 如下面这段代码 s:=trim('abcd123'); lbStrLen1.Caption:=IntToStr(Length(s)); {本身就是UTF8编码} lbStrLen2.Capt
阅读全文
摘要:type tsArr=array [0..2] of char; tbArr=array [0..2] of byte; procedure TForm1.abc; const str:ansiString='abcde'; var s1:array [0..2] of char; s2:strin
阅读全文
摘要:Pascal中常量的初始化方法很简单,比如 const s=’abcd’;ii=123;ff=12.3; 编译器会自动根据类型判断并生成对应的常量。 既然这么简单还有什么好讨论的呢! 有几种情况可以特别说明一下: 1:要指定数据的类型。 const ia:byte=123; ib:int64=123
阅读全文
摘要:这类组件继承自“TwinControl”或其子类如“TCustomControl”,其实大多数特性都已经继承过来了,但是有个问题,背景不能应用属性。 如: 我最开始的想法是 用主要窗体背景Color替换控件窗体的Color; constructor TLyStateLabel.Create(AOwn
阅读全文