关闭

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

标签: delphiproperty
788人阅读 评论(0) 收藏 举报
分类:
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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:34940次
    • 积分:1279
    • 等级:
    • 排名:千里之外
    • 原创:94篇
    • 转载:16篇
    • 译文:0篇
    • 评论:0条