文档章节

关于类的入门例子(4): property

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 116
阅读 7
收藏 0
//类单元
unit Person;

interface

type
  TPerson = class(TObject)
  private
    FName: string;
    FAge: Integer;
  public
    procedure SetName(const strName: string);
    procedure SetAge(const intAge: Integer);
    property Name: string read FName write SetName;
    property Age: Integer read FAge write SetAge;
  end;

implementation

{ TPerson }

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; PersonOne.Name := '万一'; PersonOne.Age := 100; ShowMessage('姓名:' + PersonOne.Name + '; 年龄:' + IntToStr(PersonOne.Age)); //姓名:万一; 年龄:100 PersonOne.Free; end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/13/993794.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
OC学习之旅 (一) 内存管理及OC常用方法

最近学习OC,所以在博客写下自己的笔记. OC的基本: 1 id 相当于java的Object 代表任何对象. 所以id是关键字,不能用作变量!! 2 oc中使用"."符号是调用 int a =object.a 是调用的是 [object ge...

Jonson
2013/04/13
2.4K
2
一个简单的Spring的AOP例子

经过这段日子的学习和使用Spring,慢慢地体会到Spring的优妙之处,正在深入地吸收Spring的精华,呵呵。现在写的这个只是个简单AOP例子,包括前置通知,后置通知,环绕通知,和目标对象。写这个例...

Sandy_wu
2013/06/08
120
0
PYTHON面向对象章节深入讲解-张明阳-专题视频课程

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/a2011480169/article/details/83581748 PYTHON面向对象章节深入讲解—73人已学习 课程介绍 介绍了类和面向对象...

安静的技术控
2018/08/24
0
0
Spring、Spring Boot 和 TestNG 测试指南 ( 8 )

原文出处:chanjarster 在Spring引入Java Config机制之后,我们会越来越多的使用@Configuration来注册Bean,并且Spring Boot更广泛地使用了这一机制,其提供的大量Auto Configuration大大简化...

chanjarster
2017/12/16
0
0
Nhibernate入门与demo

学习和使用Nhibernate已经很久了,一直想写点东西和大家一起学习使用Nhibernate。博客园里也有很多大牛写了很多关于Nhibernate入门的文章。其中:李永京的博客http://www.cnblogs.com/lyj/ta...

aicoder
2010/09/16
0
0

没有更多内容

加载失败,请刷新页面

加载更多

nginx学习笔记

中间件位于客户机/ 服务器的操作系统之上,管理计算机资源和网络通讯。 是连接两个独立应用程序或独立系统的软件。 web请求通过中间件可以直接调用操作系统,也可以经过中间件把请求分发到多...

码农实战
56分钟前
5
0
Spring Security 实战干货:玩转自定义登录

1. 前言 前面的关于 Spring Security 相关的文章只是一个预热。为了接下来更好的实战,如果你错过了请从 Spring Security 实战系列 开始。安全访问的第一步就是认证(Authentication),认证...

码农小胖哥
今天
8
0
JAVA 实现雪花算法生成唯一订单号工具类

import lombok.SneakyThrows;import lombok.extern.slf4j.Slf4j;import java.util.Calendar;/** * Default distributed primary key generator. * * <p> * Use snowflake......

huangkejie
昨天
11
0
PhotoShop 色调:RGB/CMYK 颜色模式

一·、 RGB : 三原色:红绿蓝 1.通道:通道中的红绿蓝通道分别对应的是红绿蓝三种原色(RGB)的显示范围 1.差值模式能模拟三种原色叠加之后的效果 2.添加-颜色曲线:调整图像RGB颜色----R色增强...

东方墨天
昨天
10
1
将博客搬至CSDN

将博客搬至CSDN

算法与编程之美
昨天
12
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部