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

最新推荐文章于 2019-05-09 09:28:00 发布

原创最新推荐文章于 2019-05-09 09:28:00 发布 · 3.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #property

delphi 专栏收录该内容

23 篇文章

订阅专栏

本文深入探讨了面向对象编程的基本概念，并通过具体实例展示了如何使用类来组织和管理数据。通过创建一个简单的TPerson类，介绍了类的定义、属性、方法以及类之间的继承和多态性。此教程适合初学者理解和掌握面向对象编程的核心思想。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.