至今还没有看到解决的问题 -----存储过程返回值
var mynode:ttreenode;
mylabel:tlabel;
sp:tadostoredproc;
sp_rt,sp_prm,sp_prm_out:tparameter;
begin
sp:=tadostoredproc.Create(self);
sp.Connection:=dm_mis.miscon;
sp.ProcedureName:= 'pr_delclass ';
sp_rt:=sp.Parameters.CreateParameter( '@RETURN_VALUE ',ftInteger,pdReturnValue,4,0);
sp_prm:=sp.Parameters.CreateParameter( '@iid ', ftString,pdinput,10,iid);

sp_prm_out:=sp.Parameters.CreateParameter( '@rst ', ftString,pdInputOutput,10, '9999 ');

sp.Prepared;
sp.ExecProc;
showmessage(sp_prm_out.Value);//错误提示sp_prm_out为空值

end;


[解决办法]
--用这个看看
with self.ADOCommand1 do
begin
Connection:=Adoconnection1;
CommandType:=cmdStoredProc;
CommandText:= 'pr_delclass ';
Parameters.CreateParameter( '@iid ',ftString,pdInput,10, '1111 ');
Parameters.CreateParameter( '@rst ',ftString,pdOutput,10, '999 ');
Execute;
showmessage( Parameters[1].Value );
end;