delphi中如何定义过程与函数,请帮我各写一行带参数与不带参数的例子,

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure a;
    procedure b(var s: string);
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  s : string;implementation{$R *.dfm}procedure TForm1.a;
begin
  showmessage('没有参数');
end;procedure TForm1.b(var s: string);
begin
  showmessage(s);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
 a;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
 s:= '带参数';
 b(s);
end;end.

Answer 1

对楼上进行补充，楼上定义的是一个类的函数。如果是 unit中的函数
var
  Form1: TForm1;
  s : string;implementation{$R *.dfm}procedure a;
begin
  showmessage('没有参数');
end;
如果要将他定义成全局函数，要在var后面加上procedure a;
有参数的
procedure b(s:string);
begin
  showmessage(s);
end;
另外参数有const ,var 等前缀，表示const 表示参数在过程中值不变化。var是以地址传递参数。还有其他一些复杂用法。