在函数中怎么得到一个过程中的一个参数的值.

Question

procedure TForm1.icmponreply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);要得到areplystatus.ReplyStatusType的值应该怎么写.

Answer 1

>>  在函数中怎么得到一个过程中的一个参数的值.  不知道你在说什么

Answer 2

看上面的例子呀.
有一个过程procedure TForm1.icmponreply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
其中areplystatus 是过程中的返回值.我想在一个函数function test 中得到areplystatus.ReplyStatusType的值应该怎么写.

Answer 3

function test 
var AReplyStatus: TReplyStatusbegin
  ...
  icmponreply( self, AReplyStatus);  ...
  AReplyStatus.XXX  直接操作

Answer 4

icmponreply(Form1, AReplyStatus);
>>Undeclared identifier: 'icmponreply'
找不到声明的地方啊，你那里搞错了？？

Answer 5

那你过程里不要定义成const啊，换成var

Answer 6

晕到，const怎么会返回值呢？是var才对吧。

Answer 7

const是传值调用，var是传址调用function TForm1.test; 
var AReplyStatus: TReplyStatus;
begin
  ...
  icmponreply(self, AReplyStatus);
  ...
  AReplyStatus.XXX
  直接操作
end;

Answer 8

procedure木有返回值,
function倒是有

Answer 9

procedure 是没有返回值的，你要返回值就用function吧。呵呵~你上个问题还没有结贴子哦。。
 whbo(王红波（年轻人，要有所作为）说的不错哦。

Answer 10

procedure TForm1.icmponreply(ASender: TComponent;const AReplyStatus: TReplyStatus);////////////////////////////声明一个变量:
var
  AReplyStatus:TReplyStatus在函数里不管你是否执行了这个过程,你都可以直接操作AReplyStatus.ReplyStatusType,因为这个过程并不能影响AReplyStatus的值