以下是具体的实现方法 function Add_ItemType(var aryArray:Olevariant):WideString; var strXml:WideString; i:integer; LowBound,HighBound:integer; begin LowBound:=0; HighBound:=0; strXml:='<?xml version="1.0" encoding="gb2312"?>'; strXml:=strXml+'<Infomation>'; Result:=''; try //确定数组的上限和下限 LowBound:=varArrayLowBound(aryArray,1); HighBound:=varArrayHighBound(aryArray,1);
//解析数组 for i:=LowBound to HighBound do //对参数赋值 DM.aQuery.Parameters[i].Value:=aryArray[i];
try //执行Sql语句 DM.aQuery.Close; DM.aQuery.ExecSQL; strXml:=strXml+'<Success>类型添加成功!</Success>'; except //除错处理 on E:Exception do begin strXml:=strXml+'<Error>数据添加失败!</Error>'; //处理错误信息 strXml:=strXml+'<Description>'+E.Message+'</Description>'; end; end; except //除错处理 on E:Exception do begin strXml:=strXml+'<LowBound>'+inttoStr(LowBound)+'</LowBound>'; strXml:=strXml+'<HighBound>'+inttostr(HighBound)+'</HighBound>'; strXml:=strXml+'<Error>错误的参数类型</Error>'; //处理错误信息 strXml:=strXml+'<Description>'+E.Message+'</Description>'; end; end ;
<?xml version="1.0" encoding="gb2312" ?>
<Infomation>
<LowBound>0</LowBound>
<HighBound>0</HighBound>
<Error>错误的参数类型</Error>
<Description>Invalid argument</Description>
</Infomation>
function Add_ItemType(var aryArray:Olevariant):WideString;
var
strXml:WideString;
i:integer;
LowBound,HighBound:integer;
begin
LowBound:=0;
HighBound:=0;
strXml:='<?xml version="1.0" encoding="gb2312"?>';
strXml:=strXml+'<Infomation>';
Result:='';
try
//确定数组的上限和下限
LowBound:=varArrayLowBound(aryArray,1);
HighBound:=varArrayHighBound(aryArray,1);
//解析数组
for i:=LowBound to HighBound do //对参数赋值
DM.aQuery.Parameters[i].Value:=aryArray[i];
try //执行Sql语句
DM.aQuery.Close;
DM.aQuery.ExecSQL;
strXml:=strXml+'<Success>类型添加成功!</Success>';
except //除错处理
on E:Exception do
begin
strXml:=strXml+'<Error>数据添加失败!</Error>'; //处理错误信息
strXml:=strXml+'<Description>'+E.Message+'</Description>';
end;
end; except //除错处理
on E:Exception do
begin
strXml:=strXml+'<LowBound>'+inttoStr(LowBound)+'</LowBound>';
strXml:=strXml+'<HighBound>'+inttostr(HighBound)+'</HighBound>';
strXml:=strXml+'<Error>错误的参数类型</Error>'; //处理错误信息
strXml:=strXml+'<Description>'+E.Message+'</Description>';
end;
end ;
strXml:=strXml+'</Infomation>';
Result:=strXml;
end;