F�rum AJUDA COM LISTVIEW NO DELPHI! #612481

17/08/2020

Boa noite, estou com seguinte problema!
sei que � uma coisa simples mas estou iniciando agora na programa��o e estou com uma d�vida no componente LISTVIEW!
Recebo uma linha com v�rios dados e preciso adicionar cada dados deste mesmo em diferentes colunas do listview, por�m tenho um filtro nas linhas em que recebo.
Exemplo:
Linha: [Materiais-TIJOLO][Hor�rio-14:39][Vendedor-Anderson][Local-Brasil][Rua-Adanilta]
- Preciso adicionar no listview na coluna MATERIAIS o "TIJOLO" e por ai em diante...
Por�m preciso retirar esses dados da linha citada acima!.
Exemplo:
MATERIAIS HORARIO Vendedor
TIJOLO 14:39 Anderson

Jose

Curtir t�pico

+ 0

Responder

Post mais votado

17/08/2020

criei um ListView, alterei sua propriedade ViewStyle para vsReport.
o exemplo abaixo tem um stringlist lstLinhas. ele existe porque eu n�o sei de onde voc� obt�m as linhas.
h� tamb�m a cria��o das colunas. as colunas podem ser criadas em tempo de projeto; n�o precisa ser em tempo de execu��o, como no exemplo.

var
  lstLinhas: TStringList;
  lstLinha: TStringList;
  lstConteudo: TStringList;
  iLinha, i: integer;
begin
  lstLinhas := TStringList.Create;
  lstLinhas.Add('[Materiais-TIJOLO][Hor�rio-14:39][Vendedor-Anderson][Local-Brasil][Rua-Adanilta]');
  lstLinhas.Add('[Materiais-TELHA][Hor�rio-13:39][Vendedor-Maur�cio][Local-Brasil][Rua-Sem nome]');
  lstLinhas.Add('[Materiais-CAL][Hor�rio-11:39][Vendedor-S�rgio][Local-Brasil][Rua-Com nome]');

  lstLinha := TStringList.Create;
  lstLinha.Delimiter := ',';
  lstLinha.StrictDelimiter := True;

  lstConteudo := TStringList.Create;
  lstConteudo.Delimiter := '-';
  lstConteudo.StrictDelimiter := True;

  ListView1.Columns.Clear;
  ListView1.Columns.Add.Caption := 'Material';
  ListView1.Columns.Add.Caption := 'Hor�rio';
  ListView1.Columns.Add.Caption := 'Vendedor';
  ListView1.Columns.Add.Caption := 'Local';
  ListView1.Columns.Add.Caption := 'Rua';

  ListView1.Items.Clear;

  for iLinha := 0 to lstLinhas.Count-1 do
  begin
    lstLinha.DelimitedText := StringReplace(lstLinhas[iLinha],'][','],[',[rfReplaceAll]);
    lstConteudo.DelimitedText := StringReplace(StringReplace(lstLinha[0],'[','',[]),']','',[]);

    ListView1.Items.Add.Caption := lstConteudo[1];

    for i := 1 to lstLinha.Count-1 do
    begin
      lstConteudo.DelimitedText := StringReplace(StringReplace(lstLinha[i],'[','',[]),']','',[]);
      ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add( lstConteudo[1] );
    end;
  end;
end;

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

19/03/2021

Jose

MUITO OBRIGADO AJUDOU MUITO!!!!

Responder

Gostei + 0