How I can load values in parameter cParam
Delphi
with dmMain.qdfTmp do begin
SQL.Add('begin');
SQL.Add(' sun.pac_adm.setanal_t5(:cLogin,''T5'',''T5'',:cParam);');
SQL.Add('end;');
ParamByName('cParam').Table:=True;
ParamByName('cParam').Length:=frmUser.lstAnal_T5.Items.Count;
for i:=0 to frmUser.lstAnal_T5.Items.Count-1 do
ParamByName('cParam').ItemAsString[i+1]:=AnsiLeftStr(frmUser.lstAnal_T5.Items.Strings, 3);
ParamByName('cLogin').AsString:=cLogin;
ExecSQL;
SQL.Clear;
end;
Oracle
Package
type arr_varchar is table of varchar(15);
procedure SetAnal_T5(cLogin IN varchar2, cAppName IN varchar2,
cParameter IN varchar2, cAnal_T5 IN arr_varchar);
procedure SetAnal_T5(cLogin IN varchar2, cAppName IN varchar2,
cParameter IN varchar2,
cAnal_T5 IN arr_varchar)is
i number;
begin
for i in 1..cAnal_T5.count loop
insert into sun.adm_setups values (cLogin, cAppName, cParameter, cAnal_T5(i));
end loop;
end;