16,748
社区成员
发帖
与我相关
我的任务
分享
var
str:Tstrings;
begin
str:=TStringList.Create;
str.Clear;
for j:=0 to i
begin
if (arr[j]=a) and (str.indexof(a)=-1) then//a就是要判断的值
begin
str.add(a);
//存储到数据库的处理
end;
if (arr[j]=b) and (str.indexof(b)=-1) then//b就是要判断的值
begin
str.add(b);
//存储到数据库的处理
end;
end;
end;