for ... (数据循环) do
begin
if (DataCount mod 4)=0 then
begin
anItem := ListView1.Items.Add;
anItem.Caption := 数据;
end
else
anItem.SubItems.Add( 数据 );
end;
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;