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

合集 - delphi7(10)

1.小甲鱼delphi学习作业20《浅谈过程与函数01》2023-10-21

2.小甲鱼delphi学习作业20《浅谈过程与函数02》2023-10-23

3.delphi小知识2023-10-264.小甲鱼delphi学习作业24《围观窗体与组件02》2023-10-265.Delphi做记事本2023-10-296.34课笔记2023-11-147.35文本文件的读写2023-11-188.delphi 时间格式化，动态显示时间，显示最新时间2023-11-239.Delphi获取当前系统时间（使用API函数GetSystemTime）2023-11-2310.Delphi模拟鼠标点击2023-11-25

收起

一、本节重点：

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

二、三种传递方法

      （一)、传值

              1、软件效果

                  

               2、代码：

                  

procedure  Tform1.mypro(str:string);       //传值过程定义
begin
str:='学习编程';
showmessage(str);
end;
procedure TForm1.btn1Click(Sender: TObject);      //调用
var
  s:string;
begin
  s:=edt1.Text;
  edt1.text:='';
  mypro(s);
  edt1.Text:=s;
end;

        （二）、传址

                 什么是传址： 

                    

               2、代码：

procedure  Tform1.mypro(var str:string);
begin
str:='学习编程';
showmessage(str);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  s:string;
begin
  s:=edt1.Text;
  edt1.text:='';
  mypro(s);
  edt1.Text:=s;
end;

       （三）、常量参数

               1、怎么定义常量参数

                   

               2、代码：

procedure  Tform1.mypro(const str:string);
begin
str:='学习编程';      //编译时出现错误，不允许在过程中对参数进行修改
showmessage(str);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  s:string;
begin
  s:=edt1.Text;
  edt1.text:='';
  mypro(s);
  edt1.Text:=s;
end;

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

          

四、源代码下载：

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