Fórum Inserir Dados no ListView. #192558

procedure TF_Principal.ToolBar1Click(Sender: TObject);
var
  col1, col2, col3: string;
begin
  with ListView1.Items.Add do
  begin
    Caption := ´Texto coluna 1´;
    SubItems.Append(´Texto coluna 2´);
    SubItems.Append(´Texto coluna 3´);
  end;


  with ListView1.Selected do
  begin
    Col1 := Caption;
    Col2 := SubItems.Strings[0];
    Col3 := SubItems.Strings[1];
  end;
end;