smblec
Novato
Registrado: Sexta-Feira, 31 de Agosto de 2018
Mensagens: 37
|
 Enviada: Sex Ago 31, 2018 4:19 pm Assunto: Insert c/ valores de edit separados por virgula |
 |
|
Boa tarde, Pessoal
Preciso armazenar todos os valores contidos em um edit, separados por virgula em variaveis distintas, e após isso, fazer um insert de cada um desses valores.
Por exemplo, no edit1 tenho o seguinte valor: 12548,45769,85479,123412,48779,12467,59852
Preciso fazer um insert para cada valor entre as virgulas, no banco de dados, conforme exemplo abaixo.
insert1 12548;
insert2 45769;
insert3 85479;
insert4 123412;
insert5 48779;
insert6 12467;
insert7 59852;
Um detalhe também é que a quantidade de valores dentro do edit pode variar, dessa forma como iria criar essas variaveis ?
Se alguem puder ajudar fico grato.
Abraços. |
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Ago 31, 2018 4:47 pm Assunto: |
|
|
Bem vindo ao fórum!
Use uma Stringlist para armazenar cada valor do Edit em uma linha diferente.
Depois é só fazer um loop nesta lista dando um insert para cada linha.
Exemplo:
| Código: | var
lista: TStringList;
i: Integer;
valorAtual: string;
begin
lista := TStringList.Create;
try
// Cada valor do Edit1 ficará em uma linha da lista
lista.StrictDelimiter;
lista.DelimitedText := Edit1.Text;
// Loop na lista fazendo um insert para cada valor
for I := 0 to lista.Count - 1 do
begin
valorAtual:= lista[i];
// Use a variável valorAtual no código do Insert aqui...
end;
finally
lista.Free;
end;
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
