如何在Delphi中获得存储过程的返回变量值?

Question

例如:
create proc name
@a int input,
@b varchar(10) output
as
begin
..........
end 
在Delphi中如何获得这个存储过程的b变量呢?
本人初学,请写详细些,谢谢啦

Answer 1

Adostoredproc.parameters.Parameterbyname(XXXXXX).value
例：
function TFData.TransferToPurchase(OrderNo:integer):integer;
begin
 with DataM.ADOCommand do  //生成采购单，用通用的TADOCommand
  Begin
    CommandText:='TranferToPurchase;1';
    Parameters.Clear;
    Parameters.CreateParameter('@OrderSeq',ftInteger,pdInput,0,0);
    Parameters.CreateParameter('@ErrorType',ftInteger,pdInputOutput,0,0);
    Parameters.ParamByName('@OrderSeq').Value:=OrderNo;
    Execute;
    Result:=Parameters.ParamByName('@ErrorType').Value;
  end;
end;