var 形参疑问！ ( 积分: 50 )

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
Report: array of Byte;
procedure test(var report;msg:string);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure Tform1.test(var report;msg:string);
begin
//在这监视Report的值 我这一直显示no value 如何才能有数据呢？
showmessage(msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
a:array [0..3] of byte;
B:array [0..8] of byte;
begin
a[0]:=5;
test(a,'a');
b[7]:=5;
test(b,'b');
end;

end.

你的程序有很多问题。
首先程序定义有问题。procedure test(var report;msg:string);
还是就是:
Report: array of Byte;
procedure test(var report;msg:string);
你的参数是：report，本身又有一个属性是Report，这样你自己都可能会搞混了。
虽然程序是可以区分开，但你自己可能就区分不开发。

我用了一个HID控件 它的源码里都是这种形式传递参数的！

我上面写的代码只不过是一个演示 我想知道 这种方式的 参数如何传递参数