浅谈Delphi过程与函数03 - 零基础入门学习Delphi022

冬雪雪冬

本课讲函数，它有返回值，而过程没有。

function 函数名(形参表):返回值类型;

Var

//声明常量、变量、过程、函数

Begin

//程序体

End;

返回值通过给函数名赋值或给result赋值来实现，看来最好在命名一般变量时最好别用result，以免混淆。函数体内至少要给其赋值一次，否则出错。

函数的调用可以嵌套，过程也一样。

习题是使用过程交换两个edit的内容。其实题目非常简单，主要程序如下:

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3.   x, y:string;
   
4. begin
   
5.   x:= edit1.Text;
   
6.   y:= edit2.Text;
   
7.   Swap_Fun(x, y);
   
8.   edit1.Text:= x;
   
9.   edit2.Text:= y;
   
10. end;
    
11. 
    
12. procedure TForm1.Swap_Fun(var str1, str2: string);
    
13. var
    
14.   temp: string;
    
15. begin
    
16.   temp:= str1;
    
17.   str1:= str2;
    
18.   str2:= temp;
    
19. end;
    

复制代码

不多太少

看不懂了

君非夜

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function Swap_Fun(var str1, str2: string):String;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  x, y:string;
begin
  x:= edit1.Text;
  y:= edit2.Text;
  Swap_Fun(x, y);
  edit1.Text:= x;
  edit2.Text:= y;
end;

function TForm1.Swap_Fun(var str1, str2: string):String;
var
  temp: string;
begin
  temp:= str1;
  str1:= str2;
  str2:= temp;
end;

end.

13328593595

懵懵懂懂的感觉