zoukankan      html  css  js  c++  java
  • 关于类的入门例子(3): Create 与 Destroy

    //类单元
    unit Person;
    
    interface
    uses
      Dialogs;
    
    type
      TPerson = class(TObject)
      private
        FName: string;
        FAge: Integer;
      public
        constructor Create(strName: string; intAge: Integer);
        destructor Destroy; override;
        function GetName: string;
        function GetAge: Integer;
        procedure SetName(const strName: string);
        procedure SetAge(const intAge: Integer);
      end;
    
    implementation
    
    { TPerson }
    
    constructor TPerson.Create(strName: string; intAge: Integer);
    begin
      inherited Create; //这里的 Create 不能省略, 因为参数不一样
      FName := strName;
      if intAge<0 then intAge := 0;
      FAge := intAge;
    end;
    
    destructor TPerson.Destroy;
    begin
      ShowMessage(FName + '向你问好!');
      //inherited Destroy;
      inherited;  //省略就是继承同名方法
    end;
    
    function TPerson.GetName: string;
    begin
      Result := FName;
    end;
    
    function TPerson.GetAge: Integer;
    begin
      Result := FAge;
    end;
    
    procedure TPerson.SetName(const strName: string);
    begin
      FName := strName;
    end;
    
    procedure TPerson.SetAge(const intAge: Integer);
    begin
      if intAge<0 then FAge := 0 else FAge := intAge;
    end;
    
    end.
    
    //测试: uses Person; procedure TForm1.Button1Click(Sender: TObject); var PersonOne: TPerson; begin PersonOne := TPerson.Create('wy',99); ShowMessage('姓名:' + PersonOne.GetName + '; 年龄:' + IntToStr(PersonOne.GetAge)); //姓名:wy; 年龄:99 PersonOne.SetName('万一'); PersonOne.SetAge(100); ShowMessage('姓名:' + PersonOne.GetName + '; 年龄:' + IntToStr(PersonOne.GetAge)); //姓名:万一; 年龄:100 PersonOne.Free; //万一向你问好! end;
  • 相关阅读:
    【文学文娱】《屌丝逆袭》-出任CEO、迎娶白富美、走上人生巅峰
    天纵英才-阿里巴巴《马云》
    我的《大宋王朝》
    《1024 程序员节》—我喂自己袋盐
    【文学文娱】《失控》读后感
    《由河南人--首富许家印说起》
    《将博客搬至CSDN》
    【置顶】技术每天一点点--2017.09-2018.10月
    saltstack的简单搭建
    rabbitMQ基础应用
  • 原文地址:https://www.cnblogs.com/del/p/993757.html
Copyright © 2011-2022 走看看