16,747
社区成员




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;