如何控制ListView的换行？

Question

大概如下：redNo=3
ListView1.Items.Clear;
           for i:=0 to redNo-1 do begin
               ListView1.Items.Add;
               ListView1.Items[i].Caption := xxxx;
               ListView1.Items[i].SubItems.Add('');
               ListView1.Items[i].SubItems.Add(xxxx);
           end;具体数据自己控制

Answer 1

关键是怎么使ListView每行显示我想要的数据数目～
例如～让它每行只能显示４个数据～如果多于４个～就自动换行～

Answer 2

用一个计数器嘛，DataCounterDataCounter := 0;
anItem := nil;for ... (数据循环) do
begin
  if (DataCount mod 4)=0 then
  begin
   anItem := ListView1.Items.Add;
   anItem.Caption := 数据;
  end
  else
    anItem.SubItems.Add( 数据 );
end;

Answer 3

忘了，在后面加上：  Inc( DataCounter );