StringList no Delphi
08/01/2019
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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 ....
Jucélio Silva
Responder
Mais Posts
09/01/2019
Tiago Souza
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
Responder
09/01/2019
Flavio Silva
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)