delphi_数组重复数据.docx

var strList: Tstringlist; isIn :boolean; begin for i:=low(Array) to High(Array) do begin isIn ;= false; for j:= 0 to strList.Count-1 do begin if Arrar[i]= strList[j] then isIn ;= true; if not isIn then strList.Add(Arrar[i]); ned; end;对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：CHM版《DELPHI全掌握》制作完毕！[散点分]zhouzhouzhou(人生程序)等　级：#2楼得分：20回复于：2004-04-08 09:15:11var strList: Tstringlist; isIn :boolean; begin strList:= Tstringlist.Create; for i:=low(Array) to High(Array) do begin isIn := false; for j:= 0 to strList.Count-1 do begin if Arrar[i]= strList[j] then isIn := true; if not isIn then strList.Add(Arrar[i]); ned; end; 对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：Sql Server 2000 导入Sql Server 2000wnhoo(虚数空间)等　级：#3楼得分：20回复于：2004-04-08 09:29:06procedure TForm1.Button1Click(Sender: TObject); var str,str1:array of string; i,j,k:integer; begin setlength(str,memo1.Lines.Count); setlength(str1,memo1.Lines.Count); for i:=low(str) to high(str) do begin str[i]:=memo1.Lines.Strings[i]; end; str1:=str; for j:=low(str1) to high(str1) do begin k:=0; for i:=low(str) to high(str) do begin if str1[j]= then break; if str1[j]=str[i] then inc(k); if k =2 then str1[j]:= ; end; end; memo2.Clear ; for i:=low(str1) to high(str1) do begin if str1[i]= then continue; memo2.Lines.Add(str1[i]); end; end;对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：足让你打吃一惊：一小段奇异的代码wnhoo(虚数空间)等　级：#4楼得分：20回复于：2004-04-08 09:32:09memo1中放入您任意多lines的数据，并且有重复的！memo2中将会显示您筛选后的无重复的数据! 您稍微改一下，就可以做一个通用的筛选函数了。呵呵：）对我有用[0]丢个板砖[0]引用举报管理TOP精华推荐：本人自创的图像填充浮雕效果，欢迎提出改进意见nicolas2003(落花含情，流水有意)等　级：#5楼得分：20回复于：2004-04-08 09:40:57如果现在要出去重复记录，楼上已经给出参考代码。以后在数组中添加记录的时候可首先用一个循环判断将要添加记录是否和数组中的某条记录相同，if 相同 then else ...