Question

delphi 用了两个stringlist ,取其中1个stringlist中的一条数据，

在另一个stringlist中查找，if FList.IndexOf(FList3.Strings[I])>=0，(两个Stringlist是相同的)，但结果显示查不到，请高手指点

Answer 1

仔细看看你那两个StringList里面的Strings是否一样。（看你语句应该是Flist和Flist3）
procedure TForm1.Button1Click(Sender: TObject);
s1:=TstringList.Create;
s2:=TstringList.Create ;
for i:=1 to 10 do begin
s1.Append(intTostr(i)+'A');
s2.Append(intTostr(i)+'A');end;
for i:=1 to 10 do
if s2.IndexOf(s1.Strings[I-1])>=0 then
showmessage('Find in '+inttostr(i));
end;end;