首页 > 其他分享 >类

时间:2023-02-15 15:55:47浏览次数:27  
标签: begin Set end xuesheng Integer procedure

(1)记录

//记录的定义形式
type
    MyRec=record
	aa:double;
	bb:Integer;
	cc:Char;
end;

//使用记录的方法如下:
var
	Rec:MyRec;         //先说明
begin
	Rec.aa:=123.45;   //记录赋值
	Rec.bb:=12;
	Rec.cc:='C';
end;

(2)集合

​ 集合可以说是记录的一种特殊形式,它也是由多个数据组成,但要求数据是有序的,如有序的数、字符、枚举等,它规定集合元素最多不超过256个。集合用关键字set of声明:

type
	I_Set=set of 1..100;    //集合元素从1~100
	C_Set=set of 'A'..'Z';  //集合元素从'A'-'Z'
	N_Set=set of Char;      //集合元素从#0..#255
	
	TEnum=(aal,aa2,aa3,aa4,aa5);
	E_Set=set of TEnum;     //集合元素是枚举中的元素

​ 以上的声明都是合法的,再看看下面的声明:

type
	My_Set1=set of 1..1000;
	My_Set2=set of Integer;
	My_Set3=set of double;
	My_Set4=set of string;

​ 这4种声明都是不合法的,第一种与第二种的错误是,超过了集合规定的范围256,第三种与第四种不是有序类型

procedure TForm1.Buttonlclick(Sender:Tobject);
type
	TA_Set=set of 'A'..'Z';
var
	A_Set:TA_Set;
begin
	A_Set:=['A'..'M'];          //集合元素初始化
	
	//关系运算第一种情况,是否在集合中
	if  'C' in A_Set then
		ShowMessage('C在集合中');
	else
		ShowMessage('C不在集合中');
		
	//关系运算第二种情况,是否不在集合中
	if not ('Z' in A Set)then
		ShowMessage('Z不在集合中');
	else
		ShowMessage('z在集合中');
		
	Include(A_Set,'O');         //集合中加元素的第一种方法,用Include
	A_Set:=A_Set+['P'];        //集合中加元素的第二种方法,用+号

	Exclude(A_Set,'B');        //集合中减元素第一种方法,用Exclude
	A_Set:=A_Set-['C','D'];    //集合中减元素第二种方法,用-号

	if ['E','F','G','H']*A_Set=['E','E','G','H']then   	//交集运算,用*号
		ShowMessage('交集中有E、F、G、H');
	else
		ShowMessage('交集中没有E、F、G、H');
end;

(3)类

​ 面向对象的方法是一种打包法,现在什么东西都讲究包装,编程序也不例外,面向对象的方法就是将完成某一种功能的变量、函数进行包装,变成一个统一的整体,当调用这个整体时,就完成该整体所赋予的功能。

type
  TMyC1ass=class(祖先类)
  private
	aa,bb:Integer;                                        //私有变量
	function GetItem(Index:Integer):ListColumn:           //私有函数
	procedure SetItem(Index:Integer;Value:TListColumn);   //私有过程
  public
	constructor Create(Owner:TComponent);override;       //创建过程
	destructor Destroy;override;                         //毁坏过程
	P_aa,P_bb:Integer;                                   //公有变量
	function P GetItem(Index:Integer):TListColumn;       //公有函数
	procedure P SetItem(Index:Integer;Value:TListColumn);//公有过程
end;

​ 类是一种数据类型,其内部可以有自己的元素(域)、自己的过程、自己的函数等,这些统称为类的成员。

类声明语法:
type
  类名称=class
	元素名:数据类型;
	Procedure过程名称(参数列表);
	Function函数名称(参数列表):函数返回值数据类型;
end;

实现:
procedure 类名称.过程名称(参数列表);
Begin
	//过程内要执行的代码
End;

Function类名称.函数名称(参数列表):函数返回值数据类型;
Begin
	//函数内要执行的代码
Result:=返回值;
end;
type
  daxuesheng=class
	mingzi:String;
	nianling:Integer;
	Procedure kaoshi();
	Function fangxue()Integer;
end:
var
	Form1:TForm1;
implementation
($R *.dfm)

Procedure daxuesheng.kaoshi();
begin
	ShowMessage('要考试啦!');
end;

Function daxuesheng.fangxue()Integer;
begin
	ShowMessage('我要放学了);
	result :=0;
end;

(4)对象

​ 通过类声明的变量,我们往往称为对象,或者类的实例。对象在使用前需要通过类.Create方法创建,使用完毕后通过对象.Free释放。

对象成员使用语法:
对象.成员
procedure TForm1.Button1click(Sender:TObjet);
var
	i:xuesheng;
begin
	i:= xuesheng.Create;
	i.mingzi:= '呵呵';
	i.nianling:= 12;
	
	i.Free;
end;

procedure TForm1.Button2click(Sender:TObjet);
var
	i: Array[2..10] of xuesheng;
	n: Integer;
begin
	for n:=2 to 10 do
	begin
		i[n]:=xuesheng.Create;
	end;
	i[2].mingzi:= '小刚';
	i[2].nianling:= 13;
	
	i.Free;
end;

(5)类的成员

​ 类的成员(元素、过程、函数),均可以在类的定义内相互访问。

image-20220720161745922

TMan类中:

  • 数据成员(字段)有:Name、Language、SkinColor等,用于存储人的姓名、语言和肤色等信息;
  • 属性有:Age,用于年龄的读写;
  • 方法有:sayHello和SetAge,其中SetAge用于对Age属性的设置(写),以保证年龄合法(比如:没有负的年龄,或年龄都小于140)。
type
  TMan = class (TObject)
  private
    FAge: Integer;
    procedure SetAge(Value: Integer);
  public
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; overload;
    property Age: Integer read FAge write SetAge;
    procedure sayHello(words:pchar);
  end;

implementation

{ ********************* TMan ***************************}
constructor TMan.create;
begin
  Name:='张三';
  Language:='中文';
  SkinColor:='黄色';
  FAge:=20;
  Married:=True;
end;

procedure TMan.SetAge(Value: Integer);
begin
  if Value<2 then FAge:=0
  else FAge:=Value;
end;

procedure TMan.SayHello(Words:PChar);
begin
   showmessage(words);
end;

end.
type
  xuesheng =class
	mingzi:String;
	procedure GetMingzi();
end;
var
	Form1:TForm1;
	
implementation
{sR*.dfm}

procedure xuesheng.GetMingzi();
begin
	ShowMesssage('你好');
end;

procedure TForm1.Button1Click(Sender:TObject);
var
	A:xuesheng;
	B:xuesheng;
begin
	A :xuesheng.Create;
	B :xuesheng.Create;
	
	A.mingzi:='小明';
	A.GetMingzi();
	
	B.mingzi:='小刚';
	B.GetMingzi();
	
	B.Free;
	A.Free;
end;
//Unit2定义函数
unit Unit2;
interface
	Function jisuan(a:Integer;b:Integer):Integer;

implementation

Function jisuan(a:Integer;b:Integer):Integer;
begin
	Result :a+b;
end;

//Unit1可以调用Unit2中的函数
uses Unit2;

{$R*.dfm}

procedure TForm1.Buttoniclick(Sender:TObjet);
var
	i:Integer;
begin
	i:=jisuan(12,13);
	ShowMessage (IntToStr(i));
end;

//Unit2定义类
unit Unit2;
interface

type
  xuesheng Class
	mingzi:String;
	nianling:Integer;
end;

//Unit1可以调用Unit2中的类
implementation

uses Unit2;
{$R *dfm}

procedure TForm1.Button1click(Sender:TObject);
var
	i:xuesheng;
begin
	i:=xuesheng.Create;
	i.mingzi:='小明';
	ShowMessage(i.mingzi);
	
	i.Free;
end;

(6)类成员访问权限

  • Private:该类型的成员只能在声明类中被访问。

  • Public:该类型的成员可以在声明堡中访问的同时,也可以在声明类外被访问。

    Public成员往往被称为类的接口,而Private成员被隐藏起来,形成了“封装”。

type
  xuesheng=Class
  	Private
	mingzi:String;
	Public
	nianling:Integer;
end;
//Unit2定义类
type
  xuesheng=class
	mingzi:String;
	
	procedure SetMingzi(s:String);
	function GetMingzi():String;
end;

implementation

procedure xuesheng.SetMingzi(s:String);
begin
	mingzi := s;
end;

function xuesheng.GetMingzi():String;
begin
	Result := mingzi;
end;

//Unit1可以调用Unit2中的类

implementation
uses Unit2:

{$R*.dfm}

procedure TForm1.Button1click(Sender:TObject);
var
	i:xuesheng;
begin
	i := xuesheng.Create;
	
	i.SetMingZi('中国'):
	ShouMessage(i.GetMingzi());
	
	i.Free;
end;

(7)过程的嵌套、递归

过程定义:
Procedure过程名称(参数列表);
Begin
	//过程内要执行的代码
End;
  • 过程的嵌套:某个过程在执行中,可以调用另外一个过程。
  • 过程的递归:某个过程在执行中,可以调用过程本身。
implementation
{sR*.dfm}
procedure A();
begin
	ShowMessage('我被执行了!');
end;
procedure B();
begin
	ShowMessage('我是过程B');
	A();
end;

procedure TForm1.Button1click(Sender:TObje
begin
	B();
end;

​ 或者n的阶乘程序实现:

implementation
{sR*.dfm}

procedure A(n:Integer);
begin
	if n>0 then begin
	ShowMessage('参数的值为:'+IntToStr(n));
	A(n-1);
	end;
end;

procedure TForm1.Button1click(Sender:TObject);
begin
	A(3):
end;

标签:,begin,Set,end,xuesheng,Integer,procedure
From: https://www.cnblogs.com/DQ-MINE/p/17123330.html

相关文章