----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  编程语言

摘要:正则表达式相关的网站http://deerchao.net/tutorials/regex/regex.htm 阅读全文
posted @ 2013-08-30 22:10 向北方 阅读(475) 评论(0) 推荐(0) 编辑

摘要:我有如下数据格式3360200151750.51246.522.5n1775=1177-1316:13360200151750.51246.522.5n1778=1177-1316:13360200151750.51246.522.5n1781=1177-1316:13360200151750.51246.522.5n1784=1177-1316:13360200151750.51246.522.5nType1=1000V中间这是空的一行3360200251749.51246.520.5n1775=1177-1316:13360200251749.51246.520.5n1778=1177-1 阅读全文
posted @ 2013-08-30 21:38 向北方 阅读(6547) 评论(0) 推荐(0) 编辑

摘要:如何去掉delphi2010的欢迎界面(welcome page)方法一: 在电脑开始菜单下,找到delphi的快捷菜单,点击该菜单的属性,在“目标”的内容中,最后添加“-np”即可。如:D:\Win7\Embarcadero\Studio\15.0\bin\bds.exe -pDelphi -np 阅读全文
posted @ 2013-08-29 23:26 向北方 阅读(1319) 评论(0) 推荐(0) 编辑

摘要:2.常量2.1.普通常量仅仅下面类型可以被定义为常量Ordinal类型Set类型指针类型 (but the only allowed value is Nil).real类型Char,String下面是定义的类型Const e = 2.7182818; { Real type constant. } a = 2; { Ordinal (Integer) type constant. } c = ’4’; { Character type constant. } s = ’This is a constant string’; {String type constant.}... 阅读全文
posted @ 2013-08-29 21:03 向北方 阅读(532) 评论(0) 推荐(0) 编辑

摘要:在字符串处理中,我们经常需要对文件编码然后再进行传输,通常会使用base64编码,在FreePascal中默认集成了这个单元,我们来介绍如何使用:首先需要在引用单元的时候使用: use base64;1.解密加密函数这个函数直接对字符串进行解密、加密操作,非常简单:procedure TForm1.Button1Click(Sender:TObject);begin Memo1.Text:= EncodeStringBase64(Memo1.Text);end;procedure TForm1.Button2Click(Sender:TObject);begin Memo1.Text:= De 阅读全文
posted @ 2013-08-29 21:02 向北方 阅读(914) 评论(0) 推荐(1) 编辑

摘要:在system单元中我们有Length专门用来获取字符串宽度和数组宽度,下面例子来介绍他的功能。定义:functionLength(S:AStringType):Integer;functionLength( A:DynArrayType ):Integer; 这里我们可以看到传递的参数可以是字符串,也可以是字符。 函数返回S字符串的宽度,如果字符串是shortstring类型,字符宽度限制在255以内,如果S是空,则返回0. widestrings和ansistrings也可以使用这个函数 如果是动态数组,函数将会返回数组元素的数量。 Length函数同样支持Pchar和PWideChar类 阅读全文
posted @ 2013-08-29 21:00 向北方 阅读(429) 评论(0) 推荐(0) 编辑

摘要:描述:虚拟屏幕(桌面)可以包含多个物理显示器。Screen对象是鼠标指针、字体、窗体。 对于Delphi兼容的(不可见)DataModules也被列出了。同时也追踪当前活动窗体窗体、控件和指针。Screen 对象Screen 对象是 TScreen 类的一个变量, 它声明在 Forms 单元1.获取系统支持的字体列表 {通过 Screen 对象, 只此一句话即可获取字体列表}Memo1.Lines := Screen.Fonts; 2.获取屏幕逻辑宽度和高度(分辨率) var w,h: Integer;begin w := Screen.Width; h := Screen.Height; T 阅读全文
posted @ 2013-08-29 20:57 向北方 阅读(779) 评论(0) 推荐(0) 编辑

摘要:Delphi深度探索-CodeSite应用指南 Delphi虽然为我们提供极其强大的调试功能,查找Bug仍然是一项艰巨的工作,通常我们写代码和调试代码的所消耗的时间是大致相同的,甚至有可能更多。为了减少无谓的时间和精力的浪费,有时我们还是需要专业调试工具的帮助来提高锁定Bug的效率。本文中我们将介绍著名的调试工具CodeSite Pro 2.0(它获得了2000年度Delphi Informant读者选择的最佳调试工具奖的第二名)。它的官方网址是www.raize.com。 CodeSite的主要功能是可以让开发者使用代码来发送运行时的详细信息到特殊的接收器,以便于进一步分析。更精确的说通过C 阅读全文
posted @ 2013-08-29 15:33 向北方 阅读(2354) 评论(0) 推荐(0) 编辑

摘要:先设置: 进入“配置安装的包”,选中 EasyDockMgr 和 easyDockMgrDsgn 这两项,重新编译 Lazarus 吧修改以后,界面就变成了XE的了: 阅读全文
posted @ 2013-08-29 09:33 向北方 阅读(1306) 评论(1) 推荐(0) 编辑

摘要:delphi+cnpack用惯了,转移到lazarus有点难受是不是!其实,lazaurs的编辑器也是蛮强大的,支持代码补全,自动完成,模板编辑,多行缩进注释,选定代码后批量更改里面的单词!目前,我知道的就这些。 好,先第一个,代码补全! 按下键盘的Ctrl+W键!输入变量后按下这个键就OK啦~ 第二个,自动完成! 自动完成的快捷键大多数都冲突了,解决方法是打开Tools->Option->Editor->Key Mappings->CodeTools commands->Identifier completion上右键edit,然后根据实际情况修改吧,我的是再勾 阅读全文
posted @ 2013-08-29 09:09 向北方 阅读(3705) 评论(0) 推荐(1) 编辑

摘要://这段代码在Delphi 2007和delphi 7下是可以执行的,所以正确使用结构体数组和指针应该是这样的,已验证unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private ... 阅读全文
posted @ 2013-08-28 11:54 向北方 阅读(2913) 评论(0) 推荐(0) 编辑

摘要:就一个button事件procedure TForm1.btn7Click(Sender: TObject); Type TMyArr = array of array of array of Integer; {定义一个三维动态数组类型} Pint = ^TMyArr; var PArr: Pint; {动态数组指针变量} i,j,k,ic,jc,kc: Integer; begin Memo1.Lines.Clear; {用作维数的变量} ic := 2; jc := 3; kc := 4; {分配内存; 按说动态数组还需要 8 个管理字节, 我不知... 阅读全文
posted @ 2013-08-28 08:23 向北方 阅读(1221) 评论(0) 推荐(0) 编辑

摘要:{本例通过存取结构, 慢慢引入了数组类型与指针的一些使用方法; 其中六个小例子的测试内容和结果都是一样的. --------------------------------------------------------------------------------}unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2 阅读全文
posted @ 2013-08-27 21:41 向北方 阅读(2027) 评论(0) 推荐(0) 编辑

摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Clic... 阅读全文
posted @ 2013-08-27 20:40 向北方 阅读(6164) 评论(1) 推荐(0) 编辑

只有注册用户登录后才能阅读该文。
posted @ 2013-08-26 16:05 向北方 阅读(14) 评论(0) 推荐(0) 编辑

摘要:好多程序都给结构体变量设定了一个结构体指针 例如:PAbc = ^TAbc;TAbc = recorda: string[10];b: string[5];c: string[1];end;var Abc: PAbc;New(Abc);...Dispose(Abc); ... 我不清楚这是为什么 定义结构体变量的时候可以直接 var Abc: TAbc; 这样做啊,为什么要PAbc = ^TAbc;呢?仅仅是为内存的分配与释放么? 回答: 这个问题实际上与Delphi 的语法结构有着密切的关系。因为Delphi 所使用的语言是Pascal 所以在Pascal 中结构体与C++的结构体有着很多相 阅读全文
posted @ 2013-08-26 14:05 向北方 阅读(6330) 评论(0) 推荐(0) 编辑

摘要:unit Form_EFDCGridToShpFileP;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, MapWinGIS_TLB, ComCtrls, jpeg, ExtCtrls, DB, DBTables, Grids, DBGrids, Buttons; Type DxDyInpData=record IndexI:integer; IndexJ:integer; D... 阅读全文
posted @ 2013-08-26 10:13 向北方 编辑

摘要:选菜单里的Project->Options..(Shift+Ctrl+F11)出现ProjectOptionsforProject1.exe窗口,在左边选Packages出现如下图的东西,这样修改:1>将Runtimepackages里的[]Buildwithruntimepackages钩上2>将不需要的包去掉就行了。(一般编写Win32的程序,只要rtl;vcl就行)如果实在不知道该去哪个,可以在上面的Designpackages里选择一个包,点Components按钮就可以查看这个包提供的控件。如果没用过这个包,去掉前面的钩就行了。默认Delphi XE4 编译出来的程 阅读全文
posted @ 2013-08-20 08:44 向北方 阅读(690) 评论(0) 推荐(0) 编辑

摘要:文件内容如下:C DXDY.INP FILE, IN FREE FORMAT ACROSS COLUMNS for 83658 Active CellsC 2013-5-25 上午 10:43:53 C BOTTOM VegC I J DX DY DEPTH ELEV ZROUGH TYPE 3 143 221.500 187.900 0.090 22.000 0.0200 3 144 222.000 188.100 0.090 22.000 0.0200 3 145 222.200 188.100 0.090 22.000 0.0200 4 143 223.100 187.900 0.090 阅读全文
posted @ 2013-08-19 14:08 向北方 阅读(877) 评论(0) 推荐(0) 编辑

摘要:问题: 1.写一段C++程序,编译成动态链接库后,C程序怎么访问? 2.写一段C程序,编译成动态链接库后,C++程序怎么访问? 3.写一个类,编译成动态链接库后,里面的public变量能否访问? 对于以上问题,我在Visual C++ 6.0上进行了实验。以下是实验的过程和初步结论。 1.建立动态链接库是在新建工程中选择Win32 Dynamic-Link Library,建立空的工程,在里面添加头文件和实现文件(C程序用.c后缀,C++程序用.cpp后缀),以下给出C程序写的动态链接库代码和C++写的动态链接库代码(只包含一个Add函数):Case 1:C程序的动态链接库代码://CLib. 阅读全文
posted @ 2013-08-19 08:34 向北方 阅读(3412) 评论(0) 推荐(0) 编辑