操，是Delphi笨还是我笨！请各位一定给我帮忙！

Question

报什么错？还是没反映？
Memo1.Lines.Add(StoredProc1.Params[1].Value);参数是‘1’不是‘0’

Answer 1

StoredProc_pub.Params.Clear;
  StoredProc_pub.StoredProcName := '';
  StoredProc_pub.StoredProcName := 'SP_PXQKHZ';
  with StoredProc_pub.Params.CreateParam(ftstring, 'vl_ksrq', ptInput) do
    Asstring := Input[0];
  with StoredProc_pub.Params.CreateParam(ftstring, 'vl_zzrq', ptInput) do
    Asstring := Input[1];
  StoredProc_pub.ExecProc;
  StoredProc_pub.Params.Clear;
  StoredProc_pub.StoredProcName := '';

Answer 2

StoredProc1.Params.Clear;
  StoredProc1.StoredProcName := '';
  StoredProc1.StoredProcName := 'YOUR_SP_NAME';
  with StoredProc1.Params.CreateParam(ftString, 'VL_IN_PARAM', ptInput) do
    AsString := VL_NAME;
  StoredProc1.Params.CreateParam(ftString, 'VL_OUT_OUT', ptOutput);
  with StoredProc1.Params.CreateParam(ftInteger, 'VL_IN_LEN', ptInput) do
    AsInteger := VL_LEN;
  StoredProc1.ExecProc;
  Result := StoredProc1.ParamByName('VL_OUT_OUT').AsString;