ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Loop no Memo

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
programadorcimples
Novato
Novato


Registrado: Quarta-Feira, 17 de Mai de 2017
Mensagens: 47
MensagemEnviada: Qui Dez 22, 2022 10:46 am    Assunto: Loop no Memo Responder com Citação
BOM DIA

Preciso pegar cada linha do memo e jogar em uma tabela

dando um loop no memo

exemplo

no meu memo tem estes registros


00000090632212202206570108240576598104
00000090732212202206590126561360930b44
00000090832212202207002066322312590cbd
0000009093221220220755020085780035fa53
0000009103221220220759020104355063373b

preciso pegar so a data e hora de cada linha e jogar numa tabela
como posso fazer??

alguem tem uma ideia ai??
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT
MensagemEnviada: Qua Dez 28, 2022 9:49 am    Assunto: Responder com Citação
so fazer um for e um copy

Código:
procedure ...
var x: Integer;
  s, d: String;
begin
  for x := 0 to Memo1.Lines.Count-1 do
  begin
    s := Memo1.Lines[x];
    d := Copy(s, 11, 2) + '/' + Copy(s, 13, 2) + '/' + Copy(s, 15, 4);
    Query1Data.Value := StrToDate(d);
  end;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB