StringList no Delphi
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 :)
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
Curtidas 0
Melhor post
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 ....
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
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
https://stackoverflow.com/questions/2625707/split-a-string-into-an-array-of-strings-based-on-a-delimiter
GOSTEI 0
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;
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