StringList no Delphi

Delphi

08/01/2019

Boa tarde, gente!
Tenho um arquivo txt com várias informações de um cliente, como marca, número, fabricação, potência, TS, entre outras informações, como no exemplo abaixo.

Cliente Marca No Fabricação Potência
Elétrica Poligonal ITB 923158 10/14 45
Método Projetos e Construções Elétricas ITB 924045 11/14 45

Minha intenção é fazer um stringlist para cada item (um para cliente, outro para a marca...), entretanto, não estou conseguindo obter êxito. Tem pouco tempo que iniciei no delphi e ficarei bastante contente se alguém puder me ajudar. Obrigada :)
Cibelly

Cibelly

Curtidas 0

Melhor post

Jucélio Silva

Jucélio Silva

09/01/2019

E ae Cybelly, tudo bem ?

Posta a estrutura de um desses caras ai, fala como quer pegar os dados que tento montar algo para te ajudar. Quanto mais informação passar mais fácil será acerta o que precisa XD ....
GOSTEI 1

Mais Respostas

Tiago Souza

Tiago Souza

08/01/2019

Cibelly, dá uma olhada nesse link. Isso deve te ajudar:
https://stackoverflow.com/questions/2625707/split-a-string-into-an-array-of-strings-based-on-a-delimiter
GOSTEI 0
Flavio Silva

Flavio Silva

08/01/2019

Você pode adicionar os atributos separados por ponto e vírgula, é meio complicado de fazer, mas tem como:
var
base_marca, base_cliente, cliente, marca: TStringList;
begin
marca := TStringList.create;
cliente := TStringList.create;
base_cliente := TStringList.create;
base_marca := TStringList.create;

marca.delimiter := ';';
marca.delimitedText := 'Poligonal;ITB;923158;10/14;45';

cliente.delimiter := ';';
cliente.delimitedText := 'Elétrica Poligonal';

base_cliente.add(cliente.text);
base_marca.add(marca.text);
// pode salvar os dados com base_cliente.saveToFile('c:\\tmp.txt');

base_marca.free;
base_cliente.free;
cliente.free;
marca.free;

end;
GOSTEI 0
POSTAR