重复取值。

Question

如何去除重复数据呢，比如：
memo1.Lines.Add('aaa');
Memo1.Lines.Add('bbb');
每次按下按钮都会增加aaabbb的数据
aaa
bbb
aaa
bbb
我要的效果是：
aaa
bbb
有新数据的话就显示
aaa
bbb
ccc
相同的话就不显示
谢谢。

Answer 1

用memo.line.indexof()来判断是否存在相同的 line

Answer 2

可以使用For循环,遍历整个Memo.将重复的数据删除

Answer 3

如果是每次都加所有，就象你程序中的，先写上一条语句：Memo1.Lines.Clear;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  if memo1.Lines.IndexOf('bbb') = -1 then
    Memo1.Lines.Add('bbb') ;
end;