LISTVIEW控件使用问题

Question

       i := ListView1.Items.Count;
       with ListView1 do
       begin
         ListItem:=Items.Add;
         ListItem.Caption:= IntToStr(i);
         ListItem.SubItems.Add('内容');
为什么增加的内容错行，而不是在一行里？另外，SUBLIST: TLISTITEM除了这个声明，还需要添加什么内容？为什么只是在VAR里添加无法编译通过？

Answer 1

with  ListView1.Items.Add  do
begin
Caption:=   IntToStr(i);
SubItems.Add('内容');
end;

Answer 2

var
  btime,etime:string;
  ListItem:TListItem;
begin
  self.bsSkinListView1.Items.Clear;
  self.QueryPro.Connection:=FrmWbEmailProjNew.conn;
//  btime:=Datetostr(trunc(self.DateTimePicker1.Date));//+frac(self.DateTimePicker2.Time));
//  etime:=Datetostr(trunc(self.DateTimePicker3.Date));// +frac(self.DateTimePicker4.Time));
  with self.QueryPro do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Wb_EmSendingProjLog where (CreateTime between #'+formatDatetime('mm/dd/yyyy',DateTimePicker1.Time)+'# and #'+formatdatetime('mm/dd/yyyy',datetimepicker3.time)+'#) and (EditorName=:ename) order by id desc');
//    sql.Add('select * from Wb_EmSendingProjLog where (CreateTime between #'+formatDatetime('yyyy-mm-dd hh:mm:ss',DateTimePicker1.DateTime)+'# and #'+formatdatetime('yyyy-mm-dd hh:mm:ss',datetimepicker3.DateTime)+'#) and (EditorName=:ename) order by id desc');
    parameters.ParamByName('ename').Value:=frmMain.m_SysManager.UserObj.UserInfo.DisplayName;
//    sql.SaveToFile('d:\1.sql');
    open;
    while not eof do
    begin
      listItem:=self.bsSkinListView1.Items.Add;
      listItem.Caption:=fieldbyname('Id').AsString;
      listItem.SubItems.Add(fieldbyname('ComID').AsString);
      listItem.SubItems.Add(fieldbyname('RecvCnt').AsString);
      listItem.SubItems.Add('标准群发');
      case fieldbyname('Status').AsInteger of
        0:begin
          listItem.SubItems.Add('草稿');
        end;
        1:begin
          listItem.SubItems.Add('正在发送');
        end;
        2:begin
          listItem.SubItems.Add('发送完成');
        end;
      end;
      listItem.SubItems.Add(fieldbyname('EmailTitle').AsString);
      listItem.SubItems.Add(fieldbyname('SendTime').AsString);
      listItem.SubItems.Add(fieldbyname('EditorName').AsString);
      next;
    end;
    close;
  end;
  if self.bsSkinListView1.Items.Count>0 then
  begin
    self.bsSkinListView1.SetFocus;
    self.bsSkinListView1.Items[0].Selected:=true;
  end;
end;

Answer 3

              i   :=   ListView1.Items.Count; 
              with   ListView1   do 
              begin 
                  ListItem:=Items.Add;
              end;
              ListItem.Caption:=   IntToStr(i); 
              ListItem.SubItems.Add('内容');