一、效果图
二、知识点
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）中。
如下图：
三、代码：
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls, WinSkinData; 8 9 type 10 TForm1 = class(TForm) 11 btn1: TButton; 12 edt1: TEdit; 13 skndt1: TSkinData; 14 procedure myproce(str:String); //声明 15 procedure btn1Click(Sender: TObject); 16 private 17 { Private declarations } 18 public 19 { Public declarations } 20 end; 21 22 var 23 Form1: TForm1; 24 25 implementation 26 27 {$R *.dfm} 28 procedure Tform1.myproce(str:String); //定义部分 29 begin 30 ShowMessage(str); 31 end; 32 33 procedure TForm1.btn1Click(Sender: TObject); 34 var 35 s:string; 36 37 begin 38 s:=edt1.Text; 39 myproce(s); 40 end; 41 42 end.