procedure TForm1.Button1Click(Sender: TObject); begin With ListView1.Items.Add do begin Caption :='Item'; SubItems.Add('SubItem1'); SubItems.Add('SubItem2'); end; end;
with listview.items.inert(0) do begin caption = ''; subitems[0] := ''; subitems[1] := ''; end;
begin
With ListView1.Items.Add do
begin
Caption :='Item';
SubItems.Add('SubItem1');
SubItems.Add('SubItem2');
end;
end;
begin
caption = '';
subitems[0] := '';
subitems[1] := '';
end;