这是一个小号大号没分了没办法各位帮办忙
一个edit一个按钮一个memo 再edit里面输入数据点击按钮把数据插入到memo里面,进行一个判断是否memo里面已经有了如果有就不插入如果没有就插入。第一次用memo这个控件。希望详细点。

解决方案 »

  1.   

    如果是看有没有一行与edit的文本重复,使用
    memo.lines.indexof( edit.txt )
    看看memo的帮助就知道了,他的lines是一个strings
      

  2.   

    memo的帮助是英文的看不懂
    有相关的事例嘛?
      

  3.   

    上面都说了:
    一行行加入的,用memo1.lines.indexof(s)判断是不是已有
    一行里追加的,用pos来判断是不是已有
      

  4.   

    按钮事件内容, 就可以了。
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if Pos(edit1.Text,memo1.Text) = 0 then //判断edit1内容有没有在memo里面, 没有的话, 就添加。
      begin
        Memo1.Lines.Add(edit1.Text);
      end;
    end;
      

  5.   

    你是想一行行加入,然后一行行的判断是吗:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if memo.lines.indexof( edit.txt ) = -1 then //判断edit1内容有没有在memo里面, 没有的话, 就添加。
        Memo1.Lines.Add(edit1.Text)
      else
        showmessage('已经有此行');
    end;
      

  6.   

     if memo.lines.indexof( Trim(edit.txt) )