delphi判断Memo里面的值不重复

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to Memo1.Lines.Count - 1 do
begin
if Memo1.Lines[i]=Edit1.Text then
exit;
end;
Memo1.Lines.Add(Edit1.Text);
end;

至于你的只显示两行，你是不是设置什么maxlength之类的属性了？
如果你插入数据超出设置的maxlength之后就加不进去了。
别的好像没什么影响了。

//这个是Edit的文字跟memo中每行比较的写法
if mmo1.Lines.IndexOf(‘Edit字符串’) = -1 then
begin
//不重复
end
else
begin
//有重复的
end;
----------------------------
不知道最后一句你说什么的是什么意思。

检查重复：for 循还，一行一行检查，如果你添加的时候就没有换行，那么可以通过分隔符来实现，也利于检查，如果你添加的时候也没有分隔符，那就没办法了。
memo为什么一次只显示两行怎么样使他显示多几行：
添加的时候应该是memo.lines.add(),还有检查添加之前是否有memo.clear等动作。

贴出代码