delphi listview 查询

Question

procedure TForm1.Button1Click(Sender: TObject);   //查询
var
  i:integer;
  newitem:TListItem;
begin
   for i:=0 to ListView1.Items.count-1 do      //在listview里查找账号
     if listview1.Items[0].Caption=edit1.Text then
      begin
      if listview1.Items.Count>0 then
        begin
          memo1.Lines.Add('账号已经存在，不能添加');
          end
          else
          begin
              newitem:=ListView1.Items.insert(ListView1.Items.count);
              newitem.caption:=edit1.Text;
              newitem.SubItems.Add(edit1.Text);
              memo1.Lines.add(newitem.caption+'添加成功');
           end;
        end;
end;procedure TForm1.Button2Click(Sender: TObject); //手动添加
var
  newitem:TListItem;
begin
  newitem:=ListView1.Items.insert(ListView1.Items.count);
  newitem.caption:=edit1.Text;
  newitem.SubItems.Add(edit2.Text);
  memo1.Lines.add(newitem.caption+'添加成功');
end;点击 查询没反应，手动添加，再点查询可以显示，但是提示重复

Answer 1

 newitem:=ListView1.Items.Add;

Answer 2

回 feiba7288 

Answer 3

 if listview1.Items[0].Caption=edit1.Text then这句有问题，一开始不等于，所以查不到，不运行到下面过程了

Answer 4

  for i:=0 to ListView1.Items.count-1 do      //在listview里查找账号
   begin
      if listview1.items[i].caption == edti1.text then
      begin
          memo1.Lines.Add('账号已经存在，不能添加');
          exit;
      end;
   end;   newitem:=ListView1.Items.insert(ListView1.Items.count);
   newitem.caption:=edit1.Text;
   newitem.SubItems.Add(edit1.Text);
   memo1.Lines.add(newitem.caption+'添加成功');
  这样看行不行，手打，未调试。