Question

Delphi 自定义过程中形参怎么使用集合类型啊？？！！

如题

Answer 1

unit Unit1;

interface

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

type
TRec=record
Int: Integer;
Str: string;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Rec: TRec;
public
{ Public declarations }
procedure test(const aRec: TRec);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.test(const aRec: TRec);
begin
ShowMessage(IntToStr(aRec.Int)+':'+aRec.Str);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Rec.Int:=8;
Rec.Str:='test';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test(Rec);
end;

end.