首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

在Delphi中定义其他单元的类型

在Delphi中,定义其他单元的类型可以通过创建一个新的单元文件来实现。以下是一个简单的步骤来创建一个新的单元文件,并在其中定义一个类型:

  1. 打开Delphi IDE,并创建一个新的单元文件。在左侧的项目管理器中,右键单击项目名称,然后选择“添加”->“新建单元”。type TMyType = class private FValue: Integer; public constructor Create(AValue: Integer); property Value: Integer read FValue write FValue; end;constructor TMyType.Create(AValue: Integer); begin FValue := AValue; end; property TMyType.Value: Integer read FValue write FValue;var MyVar: TMyType; begin MyVar := TMyType.Create(10); ShowMessage(IntToStr(MyVar.Value)); MyVar.Free; end;通过以上步骤,可以在Delphi中定义其他单元的类型,并在其他单元文件中使用这些类型。
  2. 在新建单元文件中,定义一个新的类型。例如,可以定义一个名为“TMyType”的新类型,如下所示:
  3. 在新建单元文件中,实现新类型的构造函数和属性。例如,可以实现“TMyType”的构造函数和属性,如下所示:
  4. 在其他单元文件中,使用新定义的类型。例如,可以在其他单元文件中使用“TMyType”类型,如下所示:
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

Delphi类型和引用

概要介绍: 类类型和下面要讲到的类引用类型是一种特殊的数据类型,是Object Pascal面向对象编程的基础。  一:类类型概述 和以前介绍的几种数据类型相比,类类型具有如下特点: 类类型的成员可以是不同的数据类型,这一点跟记录类型相似,因此,类类型首先是由不同的字段 组成的。 类类型除了包含数据以外,还包含了操纵数据的方法及特性。类类型把数据和方法封装在一起。 类类型具有可继承性,所谓继承就是一个新的类类型,不必什么都从新定义,只需要继承一个已有 的类型再加上自己的成员就构成一个新的类类型。事实上Delphi中所有的元件都是从一些共同的祖先类 继承下来的,利用类的可继承性,您可以编写您自己的类元件,并把它加到Delphi的环境中去。 被继承的类我们称为基类,继承下来的类我们称为派生类,基类的成员自动成为派生类的成员。类 的继承具有传递性,例如假设T3继承了T2,而T2又是继承了T1,可以认为T3也继承T1。在Delphi中,所 有的类都是从一个共同的类TObject继承下来的,TObject类的声明在System单元中,它定义了一些操纵 类的最基本的方法,因此,Tobject也被称为缺省祖先类。 TObject是一个抽象类,它的派生类可以对TObject中的方法重载,包括对它的构造 Create 和析构 Destory的重载。 二:类类型的声明 类类型的声明比较复杂,其语法如下: Type 类=class(基类) [成员列表] End; 从以上语法可以看出,类类型可以指定一个祖先类型,表示该类型是从这个基类继承下来,如: Type TClass=Class(TObject) 这个例子,声明了一个名叫TClass的类类型,它是从类TObject继承下来的。注意,在Delphi中,类 名一般都是以T打头,以区别于其它数据类型。如果省略了指定基类,则表明直接从TObject继承下来。 成员列表的定义是这样 字段定义 方法定义 属性定义 类类型可以有三类成员分别是字段、方法、特性。字段的声明类型于记录类型中字段的声明,类类 型中的方法又可以分为4类,分别是构造、析构、过程和函数。分别用 Constructor、 Destructor、 Procedure、Function这4个保留字声明,类类型中的特性用保留字Property来声明,一个典型的类类型 示例如下: Type TClass=Class Private FX,FY,FZ:Integer; FS:String[128]; Public Constructor Create(X,Y,Z:Integer;S:string); Destrutor Destroy;override; Procedure Display;Virtual; Function SetStr(const Value:string); Publish Property Caption:String read FS Write SetStr; End; 上例中,声明了4个字段,数据类型分别是Integer和String。在Delphi中,一般私有变量字段都以 F打头。并且声明了一个构造CREATE,一个析构Destroy,一个过程Display,一个函数SetStr。另外还声 明了一个属性Caption。其它的语法元素如Private、Public等将在后面介绍。 注意:跟其它数据类型不同的是,类类型的声明只能出现在程序的Type区,而其它数据类型则可以 在Var区或过程或函数或方法的Begin语句之前声明。因此类类型的作用域总是全局的。 顺便提一下,类类型包括包含类类型分量的构造类型不能作为文件类型的基类型。 三:类类型的字段 类类型中的字段也就是类的数据部分,其声明方法同记录中字段的声明语法相似: 标识符:类型 其中字段的类型可以是各种数据类型,甚至是另一个类类型。 要访问对象的某个字段,跟访问记录变量中的字段类似,是用对象名加小圆点和字段名。 四:类类型的方法 类类型中的方法是个特定的名称,从形式上看也不过是一些过程或函数,不同的是方法是在类类型内部 声明的并只操纵类本身,因此在Object Pascal中方法有其特定含义。我们姑且都称它为方法。 方法的声明和定义 方法定义 方法首部;方法指示字 方法的声明跟变通的过程或函数的声明既相似也有不同的地方,相似的是声明时只需写出方法的首 部,不同的是声明方法时可以加上方法指示字。 方法分为4种

03

Delphi中利用SEH屏蔽退出时的Runtime Error

Delphi写的程序,如果在单元的finalization里出现了一些异常操作会导致退出时抛出Runtime Error ,规范的处理办法当然是解决这些异常,但是有些特殊的情况下,比如用了很多的第三方控件,实在没办法解决问题时,只有把他屏蔽掉,这样给客户的时候就不至于看到满天的Runtime Error 了。 做法其实很简单,就是在 END.之前手工调用Halt释放,并且将Halt抛出的错误屏蔽掉,这样做和正常的DELPHI释放过程没有任何区别,因为End.编译后其实就是一句话 Call Halt0,只是VCL自己没有屏蔽Halt0里抛出的错误,而是跳出个Runtime Error 来;   首先就是位置的问题,如果是EXE的话,直接在END.之前就行了,如果是Dll的话就麻烦点,需要挂上DllProc,当wReason = DLL_PROCESS_DETACH时处理。 然后就是如何屏蔽错误的问题了,第一个最容易想到的做法就是直接 Try  halt except end;   但是这样是不行的,因为try…except end捕获的错误都会放到System单元的_HandleOnException中处理,函数检查错误类型是否是DelphiException,如果不是就不处理,这个时候就会被DELPHI的顶层异常机制捕获,并抛出Runtime error,halt里抛出来的错误恰恰就是非DelphiException,代码如下:  procedure _HandleOnException; …   CMP [EAX].TExceptionRecord.ExceptionCode,cDelphiException   JE @@DelphiException   CLD   CALL _FpuInit   MOV EDX,ExceptClsProc   TEST EDX,EDX   JE @@exit    CALL EDX   TEST EAX,EAX   JNE @@common   JMP @@exit … End; 所以,需要借助SHE机制来处理这个问题,代码如下:   asm    //挂上SEH xor edx, edx    push ebp   push OFFSET @@safecode   push dword ptr fs:[edx]   mov fs:[edx],esp   //调用Halt0   call Halt0   jmp @@exit;   @@safecode:    //如果出现异常继续调用Halt0退出 call Halt0;   @@exit:  end; 这个做法的好处就是,不会对DELPHI正常释放过程产生影响,所有的释放操作都是和VCL一致的,只是不会把错误显示出来。 以下是完整代码: 一、EXE的情况,把代码放在工程文件 procedure Halt0; begin Halt; end; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; asm  xor edx, edx  push ebp  push OFFSET @@safecode   push dword ptr fs:[edx]  mov fs:[edx],esp   call Halt0  jmp @@exit;  @@safecode:   call Halt0;   @@exit: end; end.

04

详细设计说明书编写规范「建议收藏」

第1章 引言   1.1 目的   使项目详细设计说明书的编写规范化,从而规范软件管理。 尽可能详细地描述程序的各成份的设计考虑,以利于编制程序。   [此处加入编写目的]   1.2 背景   说明该软件系统名称,开发者,详细设计原则和方案   [此处加入项目背景资料]   1.3 参考资料   列出有关的参考资料名称,作者,发表日期,出版单位   [此处加入参考资料]   1.4 定义   列出本文件中专用的术语,定义和缩写词   [此处加入术语和缩写词]   第2章 程序系统的组织结构   2.1 运行环境(编程协定)   [此处加入运行环境]   2 .1.1 操作系统&数据库系统   列出系统运行的有关操作系统&数据库系统的名称,版本号,对应版权单位   [此处加入操作系统]   [此处加入数据库系统]   2 .1.2 编程工具   列出开发此系统的所需的主要编成工具的名称,版本号,对应版权单位,并简述其特点   [此处加入编程工具]   2 .1.3 编辑、调试、联接程序   [此处加入编辑、调试、联接程序]   2 .1.4 编译工具   [此处加入编译工具]   2 .1.5 模拟、仿真数据   模拟数据使用过去的真实数据,数据如下:   [此处加入数据]   过程如下:   [此处加入过程]   2 .1.6 诊断、测试程序   [此处加入诊断、测试程序]   2 .1.7 检测程序   [此处加入检测程序]

02

DELPHI IDE中部分操作快捷方式

DELPHI IDE中部分操作快捷方式 1 代码模板 : CTRL+J 2 代码整块移动 : CTRL+SHIFT+I(右移) CTRL+SHIFT+U(左移) 3 选中窗体 : 先选中任一控件,SHIFT+鼠标左键 4 将鼠标指向变量名、单元名、类名,再用 CTRL+鼠标左键 可找到相应的说明 5 在过程、函数、事件内部, SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义 6 相反,在过程、函数、事件的定义处,SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部 7 CTRL + SHIFT + C:编写申明或者补上函数 8 SHIFT + CTRL + E 显示 EXPLORER 9 CTRL + SHIFT + N (n=1,2,3,4......)定义书签 10 CTRL + N (n=1,2,3,4......)跳到书签n 11 ALT + 鼠标左键 可以块选代码,删除对齐的重复代码非常有用 12 CTRL + PageUp 将光标移至本屏的第一行,屏幕不滚动。 13 CTRL + PageDown 将光标移至本屏的最后一行,屏幕不滚动。 14 CTRL + ↓ 向下滚动屏幕,光标跟随滚动不出本屏。 15 CTRL + ↑ 向上滚动屏幕,光标跟随滚动不出本屏。 16 CTRL + Home 将光标移至文件头。 17 CTRL + End 将光标移至文件尾。 18 CTRL + B Buffer List窗口。 19 CTRL + I 同Tab键。 20 CTRL + M 同Enter键。 21 CTRL + N 同Enter键,但光标位置保持不变。 22 CTRL + T 删除光标右边的一个单词。 23 CTRL + Y 删除光标所在行。 24 CTRL + SHIFT + ↑ 光标在函数体内时,将光标快速移至当前函数声明处。 25 CTRL + SHIFT + ↓ 光标在函数声明行时,将光标快速移至函数定义处。 26 CTRL + SHIFT + C 声明一个过程或函数后,直接生成过程或函数的名称、begin、end; 27 CTRL + SHIFT + E 光标在Edit窗口和Explorer窗口间切换。 28 CTRL + SHIFT + G 插入GUID。 29 CTRL + SHIFT + J 弹出Delphi语句提示窗口,选择所需语句将自动完成一条语句。 30 CTRL + SHIFT + T 在光标行加入To-Do注释。 31 CTRL + SHIFT + Y 删除光标之后至本行末尾之间的文本。 32 CTRL + F3 Call Stack窗口。 33 CTRL + F4 等于File菜单中的Close项。 34 CTRL + 鼠标转轮 加速滚屏。 35 SHIFT + F8 调试时弹出CPU窗口。 36 SHIFT + F10 等于鼠标右键(Windows快捷键)。 37 ALT + F4 关闭所有编辑框中打开的源程序文件,但不关闭项目。(如无打开项目时,则关闭DELPHI^_^ )

04

Delphi教程推荐

非常适宜Delphi初学者。 选择Delphi开发同学的眼光是不错的, 由于使用Delphi开发应用软件可以提高编译的效率, 前提是你要好好学习Delphi教程, 对你以后的开展肯定有很大帮助的。   Delphi(Delphi培训)是Borland公司研制的新一代可视化开发工具, 它应用范围非常广, 无论是Windows系统还是LINUX系统上都能完美运行。   书名:《Delphi2005程序设计教程》  作/译者:刘瑞新  出版社:机械工业出版社  出版日期:2005年07月  内容提要  本Delphi教程以Delphi2005为言语环境, 以程序文语结构作为主线, 面向对象的程序设计, 建立用户界面, 菜单、多选项卡的设计, 数据库应用程序开发根本概述, 数据控制组件, 应用窗体维护数据, 使用SQL结构化查询言语, Client/Server数据库应用程序开发, 适宜教师课堂教学和先生自学。 并增加了上机实训实验、数据库应用程序实例等外容, Delphi教程适宜作为初等院校计算机及相关专业先生的教材, 也可以作为各类计算机培训班的教学用书。   目录  前言  2. 2标识符与保留字、指令字  2. 5运算符和表达式  2. 1顺序结构  3. 2选择结构  3. 4过程与函数  第4章初级数据类型  4. 1类型定义语句  4. 4集合类型  4. 7指针类型  第5章面向对象的程序设计  5. 3类的方法  5. 4类的封装与继承  5. 5异常处置  第6章建立用户界面  6. 1窗体对象  DELPHI6. 3常用组件的用法  第7章菜单、多选项卡的设计  第8章数据库应用程序开发根本概述  第9章数据访问组件  第10章数据控制组件  第11章应用窗体维护数据  第12章使用SQL结构化查询言语  上文介绍的Delphi教程的评价是很好的, 非常适宜Delphi初学者。 选择Delphi开发同学的眼光是不错的, 由于使用Delphi开发应用软件可以提高编译的效率, 你会发现Delphi更多的优点。 对你以后的开展肯定有很大帮助的。

03

[EDI案例] 快速对接耐克森/NEXANS EDI

在《快速对接德尔福/Delphi EDI》一文中,我们详细讲了这次项目中Delphi的需求和实施方案,我们提到,由于汽车电缆行业某客户需要同时对接三个贸易合作伙伴DELPHI,NEXANS和KSD,我们将三个贸易合作伙伴按照优先级来划分,将Delphi作为第一阶段的对接目标,对接完成后,NEXANS和KSD自然成为第二梯队和第三梯队了。在本文中,我们就NEXANS的EDI需求,再次做出详细解读。

03
领券