重复取值。

hellsb 2010-10-24 03:52:11
如何去除重复数据呢,比如:
memo1.Lines.Add('aaa');
Memo1.Lines.Add('bbb');
每次按下按钮都会增加aaabbb的数据
aaa
bbb
aaa
bbb
我要的效果是:
aaa
bbb
有新数据的话就显示
aaa
bbb
ccc
相同的话就不显示
谢谢。
...全文
71 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
bdmh 2010-10-25
  • 打赏
  • 举报
回复
用一楼和4楼的方法
kaixindzl 2010-10-24
  • 打赏
  • 举报
回复

procedure TForm1.Button1Click(Sender: TObject);
begin
if memo1.Lines.IndexOf('bbb') = -1 then
Memo1.Lines.Add('bbb') ;
end;
Oraclers 2010-10-24
  • 打赏
  • 举报
回复
如果是每次都加所有,就象你程序中的,先写上一条语句:Memo1.Lines.Clear;
Mit1208 2010-10-24
  • 打赏
  • 举报
回复
可以使用For循环,遍历整个Memo.将重复的数据删除
Frank.WU 2010-10-24
  • 打赏
  • 举报
回复
用memo.line.indexof()来判断是否存在相同的 line

16,749

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧