AJUDA COM LISTVIEW NO DELPHI!
17/08/2020
0
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
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.
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
Mais Posts
Clique aqui para fazer login e interagir na Comunidade :)