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 

Preencher edits [REWSOLVIDO]

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


Registrado: Quinta-Feira, 31 de Outubro de 2019
Mensagens: 37
Localização: São Paulo

MensagemEnviada: Sex Fev 21, 2020 2:06 pm    Assunto: Preencher edits [REWSOLVIDO] Responder com Citação

Boa tarde pessoal,
No meu cadastro de endereços, o usuário digita o CEP e o sistema preenche normalmente os EDITS com os dados do endereço. Antes de salvar eu concateno todas essa informações e mando para o banco de dados. Queria saber se existe a possibilidade de quando eu quiser editar esses dados no banco é possível pegar esses valores concatenados no banco e preencher os EDITS (CEP, descrição, número, complemento, bairro e cidade) SEPARADOS para o usuário poder editar.


Editado pela última vez por RefPina em Qua Mar 11, 2020 3:34 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 2963
Localização: Belo Horizonte - MG

MensagemEnviada: Sex Fev 21, 2020 2:13 pm    Assunto: Responder com Citação

Você usa algum separador entre os dados? Hifen, barra, etc?

Se sim, é possível.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
RefPina
Novato
Novato


Registrado: Quinta-Feira, 31 de Outubro de 2019
Mensagens: 37
Localização: São Paulo

MensagemEnviada: Sex Fev 21, 2020 3:57 pm    Assunto: Responder com Citação

Agradeço a resposta natanbh1. Uso hífen como separador. Se não for te pedir muito e se puder pode me dar um exemplo de como faço isto por favor?
Obrigado mais uma vez.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 2963
Localização: Belo Horizonte - MG

MensagemEnviada: Sex Fev 21, 2020 4:11 pm    Assunto: Responder com Citação

Segue um exemplo, usando Stringlist para separar os dados:

Código:
var
  strLinha: String;
  Parte: TStringList;
begin
  strLinha := 'CEP-DESCRICAO-NUMERO-COMPLEMENTO-BAIRRO-CIDADE';

  Parte := TStringList.Create;
  try
    Parte.Clear;
    Parte.StrictDelimiter := True;
    Parte.Delimiter := '-';
    Parte.DelimitedText := strLinha;

    CEP.Text := Parte[0];
    DESCRICAO.Text := Parte[1];
    NUMERO.Text := Parte[2];
    COMPLEMENTO.Text := Parte[3];
    BAIRRO.Text := Parte[4];
    CIDADE.Text := Parte[5];
  finally
    Parte.Free;
  end;
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
RefPina
Novato
Novato


Registrado: Quinta-Feira, 31 de Outubro de 2019
Mensagens: 37
Localização: São Paulo

MensagemEnviada: Qua Mar 11, 2020 3:05 pm    Assunto: Responder com Citação

Desculpe a demora para responder e colocar como resolvido.
Muito obrigado pela força. Funcionou perfeitamente.
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