delphi property 实例(包含数组属性)

原创 2015年11月19日 10:08:43
unit Unit2;

interface

type
  TPerson=class(TObject)
private
   FAge:Integer;
   FName:string;
   FDegree:array[0..3] of string;
   
   function getAge: Integer;
   procedure setAge(const Value: Integer);
   function getName: string;
   procedure setName(const Value: string);
   function getDegree(mindex: Integer): string;
   procedure setDegree(mindex: Integer; const Value: string);

public
   property Age: Integer read getAge write setAge;
   property Name:string  read getName write setName;
   property Degree[mindex:Integer]:string read getDegree write setDegree;
   constructor create;
end;

implementation
{ TPerson }

constructor TPerson.create();
begin
  FAge:=100;
  FName:='小明';
  FDegree[0]:='本科以下';
  FDegree[1]:='本科';
  FDegree[2]:='硕士';
  FDegree[3]:='博士及以上';
end;

function TPerson.getAge: Integer;
begin
   Result:= FAge;
end;

function TPerson.getDegree(mindex: Integer): string;
begin
   Result:=FDegree[mindex];
end;

function TPerson.getName: string;
begin
  Result:=FName;
end;

procedure TPerson.setAge(const Value: Integer);
begin
   FAge:=Value;
end;

procedure TPerson.setDegree(mindex: Integer; const Value: string);
begin
    FDegree[mindex]:=Value;
end;

procedure TPerson.setName(const Value: string);
begin
  FName:=Value;
end;

end.

相关文章推荐

在Delphi的属性 property中使用数组-第一篇转载

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...

在Delphi的属性 property中使用数组

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro...

Array类型(声明与属性)

Array()类型: 在ECMAScript中数组Array()的每一项可以保存任何类型的数据。例如,可以用数组的第一个位置表示字符串,用第二位置来保存数值,用第三位置来保存对象等 ECMAScrip...

Delphi 中的属性property(适合初学delphi)

Propery In Delphi 前言: 适合delphi初学者,有面向对象知识和java或者vc编程经验人士阅读。 一普通属性 我们在delphi的类中常常能看到这样的代码:p...
  • my98800
  • my98800
  • 2016年09月01日 09:40
  • 956

delphi property中default的含义

delphi property中default的含义 default指令的意思不是设置属性默认值。它的意思是:当你在组件可视化设计时设置的属性值和它指定的值不相同时,才将该值存入dfm文...

WinForm停靠控件介绍:WeifenLuo.WinFormsUI.Docking.dll

WeifenLuo.WinFormsUI.Docking.dll是一个WinForm界面布局控件,这个控件简单易用且强大。 例子: 1. 首先在网上下载WeifenLuo.WinForms...

在Delphi7中实现停靠功能

在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能,如果对这一部分不熟练时,通常会到CSDN等网站寻找各种相关的控件,或者参考Delphi自...

Delphi属性Property学习应用总结

Delphi属性Property学习应用总结 Property是一个很有意思的语法特性,它使得方法具有了字段的调用特征,并赋予字段执行动作的能力。 如果你使用过C++ Builder来写基于VCL...
  • junjle
  • junjle
  • 2014年07月29日 11:29
  • 278

Delphi属性Property学习应用总结

Property是一个很有意思的语法特性,它使得方法具有了字段的调用特征,并赋予字段执行动作的能力。 如果你使用过C++ Builder来写基于VCL的程序,我想很多人都会注意到这样一点,比如: ...

Delphi 中的属性property

一普通属性 我们在delphi的类中常常能看到这样的代码:propert property 属性名类型名 read 字符串1 write 字符串2 这里属性的名字可能不同。都是这样的格式:p...
  • rznice
  • rznice
  • 2012年06月11日 12:35
  • 440
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi property 实例(包含数组属性)
举报原因:
原因补充:

(最多只允许输入30个字)