小甲鱼delphi学习作业20《浅谈过程与函数01》

一、效果图

二、知识点

1.过程
在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型：

标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。

事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。

自定义过程 - 被独立定义的过程称为自定义过程。

1.1自定义过程的声明
一般情况下，自定义过程定义在单元的 implementation 部分中的 {$R *.dfm} 后面。其声明格式：

procedure <过程名> [(<形参表>)];
[<局部声明>]
begin
[过程语句]
end;
说明：

procedure 声明行必须以分号结尾。

必须包含一个begin ... end结构，end后面必须以分号结尾。

<形参表> 的格式：

[Var | Const] <参数名>: <类型>

Var 表示参数传递方式为地址传递，即形参值的变化会反映到实参中

Const 表示在过程内部不能改变形参的值

如果没有Var 或 Const声明的参数，其传递方式为值传递，在过程中对形参的改变不会反映到实参中

过程可以没有任何形参，也可以有若干形参

形参表中多个参数之间用分号分隔

<局部声明>部分用来声明只能在过程中使用的变量、常量或另外一个过程和函数。

1.2自定义过程的创建和使用
两种自定义过程：

1.只能在本单元中使用的过程；

2.在其他单元中也可以使用的过程；

两种都可以在单元的 implementation 部分中的 {$R *.dfm} 后面创建，如果要创建能够在其他单元中使用的过程，必须将过程首部声明在单元的公共接口部分（interface）中。
如下图：

三、代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSkinData;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    skndt1: TSkinData;
   procedure myproce(str:String);     //声明
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Tform1.myproce(str:String);   //定义部分
begin
  ShowMessage(str);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  s:string;

begin
  s:=edt1.Text;
  myproce(s);
end;

end.