Question

delphi一个procedure1怎么用procedure2的数据

procedure TForm1.CTPTrade(ASender: TObject; OrderID: Integer;
const InstrumentID: WideString; IsBuy, IsOpen, ThisTradeVolume: Integer;
ThisTradePrice: Double; const TradeTime: WideString);
begin
starttrade（）；
end；

procedure tform1.starttrade();
Var
thistradeprice:double;
begin
test.caption:=floattostr(thistradeprice);
end;

怎么样在这种情况下，starttrade中的thistradeprice就是CTPTrade中的thistradeprice
求大侠指教啊！！

Answer 1

你CTPTrade中的ThisTradePrice是个参数，starttrade中的thistradeprice也可以算是个参数，你为什么要纠结两个参数的值怎么共用呢？
你前一个参数是从哪获取的，后一个参数就照样从哪获取啊
或者你声明一个全局变量，就可以共用了

Answer 2

procedure tform1.starttrade();
这个过程可以定义参数改成函数嘛。调用的时候，传给它一个参数

追问

菜鸟，对函数还不是很了解，求具体的代码，加送50分哦！！！

追答

定义函数和定义过程差不多，可以这样：
function tform1.starttrade(thistradeprice:double);
begin
test.caption:=floattostr(thistradeprice);
end;

调用的时候就是这样：
starttrade(ThisTradePrice);