Tenho um arquivo txt
com vários registros dentro, preciso de algo que na hora que a função for adicionar para o ListView
esses registros, não deixem adicionar itens repetidos. Para fazer isso, ele poderia usar uma determinada coluna e comparar. Dentro do txt o delimitador que eu uso e um @.
Código:
var
Linhas: TStringList;
Colunas: TStringList;
i,l: integer;
Item: TListItem;
begin
Linhas := TStringList.Create;
Colunas := TStringlist.Create;
Linhas.LoadFromFile('c:\clientes.txt');
for i := 0 to Linhas.Count-1 do
begin
Colunas.Text := StringReplace(Linhas[i],'@',Char(13)+Char(10),[rfReplaceAll]);
Item := Form1.LV.Items.Add;
l := l + 1;
Item.Caption := inttostr(l);
Item.SubItems.Add(Colunas[1]);
Item.SubItems.Add(Colunas[0]);
Item.SubItems.Add(Colunas[7]);
Item.SubItems.Add(Colunas[2]);
end;
end;