张志峰的博客

水滴石川,积少成多。

导航

2011年7月13日

摘要: 1、运行mapx.v5.02.19安装包下的setup.exe 安装mapx5.0 安装完成后将解压mapx5crack.rar将破解文件拷贝到mapx安装目录下。2、在mapx5.0的安装目录下创建一个Maps文件夹。3、运行mapx安装目录下的GeoDictionaryManager50.exe 文件,单击...这样就能自动在maps文件夹下生成Geodict.dct 文件。4、启动delphi7.0 ,Component---Improt ActiveX 找到Mapinfo MapX V5(Version 5.0) ,单击install 安装 。5、这样将可以在ActiveX标签内看到 阅读全文

posted @ 2011-07-13 18:19 ╰★张志峰★╮ 阅读(1525) 评论(0) 推荐(0) 编辑

摘要: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type //定义一个事件格式,要传参数的格式 后面必须要加上of object TeacherArgnyEvent = procedure(ErrorCount: Integer) of object;typeTTeacher = class(TObject)private FStudentErrorCount: Integer; FOnTeacherArngy: 阅读全文

posted @ 2011-07-13 10:55 ╰★张志峰★╮ 阅读(613) 评论(0) 推荐(0) 编辑

摘要: 如何为对象进行复制呢类增加一个Assign方法,以进行对象间的复制。例如修改以上的TExample类:typeTExample = classMember1 : Integer;Member2 : Char;publicprocedure Assign(Src : TExample);end;实现该类的Assign方法如下:procedure TExample.Assign(Src: TExample);beginMember1 := Src.Member1;Member2 := Src.Member2;end;如此便可以进行TExample类实例对象间的复制varA, B : TExampl 阅读全文

posted @ 2011-07-13 09:50 ╰★张志峰★╮ 阅读(964) 评论(0) 推荐(0) 编辑