526互联

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

发布时间 2023-10-23 20:00:05作者: yanglu_51

一、本节重点：

        过程传值、传址、常量参数；

二、三种传递方法

      （一)、传值

              1、软件效果

                  

               2、代码：

                  

 1 procedure  Tform1.mypro(str:string);       //传值过程定义
 2 begin
 3 str:='学习编程';
 4 showmessage(str);
 5 end;
 6 procedure TForm1.btn1Click(Sender: TObject);      //调用
 7 var
 8   s:string;
 9 begin
10   s:=edt1.Text;
11   edt1.text:='';
12   mypro(s);
13   edt1.Text:=s;
14 end;

        （二）、传址

                 什么是传址： 

                    

               2、代码：

 1 procedure  Tform1.mypro(var str:string);
 2 begin
 3 str:='学习编程';
 4 showmessage(str);
 5 end;
 6 procedure TForm1.btn1Click(Sender: TObject);
 7 var
 8   s:string;
 9 begin
10   s:=edt1.Text;
11   edt1.text:='';
12   mypro(s);
13   edt1.Text:=s;
14 end;

       （三）、常量参数

               1、怎么定义常量参数

                   

               2、代码：

 1 procedure  Tform1.mypro(const str:string);
 2 begin
 3 str:='学习编程';      //编译时出现错误，不允许在过程中对参数进行修改
 4 showmessage(str);
 5 end;
 6 procedure TForm1.btn1Click(Sender: TObject);
 7 var
 8   s:string;
 9 begin
10   s:=edt1.Text;
11   edt1.text:='';
12   mypro(s);
13   edt1.Text:=s;
14 end;

三、说明：不管哪种定义都要在函数头中进行声明：

          

四、源代码下载：

https://yanglu-115.lanzouq.com/i0QDQ1cn7scj