 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
rogerioclaro2
Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013
Mensagens: 404
|
 Enviada: Qua Jul 16, 2014 9:53 am Assunto: Dividir 1 campo em 2 |
 |
|
Bom dia a todos...
Estou com algumas dúvidas, porém... vou resolver de uma a uma rsss.. vamos lá
a 1 e a seguinte.. estou puxando as informações de um sistema par outro. porém no cadastro de cliente do banco de origem, o nome do cliente é um campo, (nome) e no de origem são dois campos, (nome,sobrenome), até o presente momento não consegui, gostaria de saber dos amigos do AD se há alguma possibilidade para fazer o processo. segue o que já fiz.
criei uma qry com as tabelas, e criei uma var
Linha := Linha + '''' + SQLQuery1NOME.AsString + ''',';
ele puxa o nome completo.. mas preciso que seja dividido em dois, 1 e segundo nome exemplo joão da silva para nome joão e sobrenome da silva
obrigado |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qua Jul 16, 2014 10:36 am Assunto: |
|
|
Utilize variáveis e as funções Copy e Pos.
Exemplo:
| Código: |
procedure TForm1.Button1Click(Sender: TObject);
var
NomeCompleto, Nome, Sobrenome: string;
begin
NomeCompleto:= 'João da Silva';
Nome:= copy(NomeCompleto, 1, (Pos(' ', NomeCompleto)- 1));
Sobrenome:= copy(NomeCompleto, (Pos(' ', NomeCompleto) + 1), Length(NomeCompleto));
ShowMessage(Nome);
ShowMessage(Sobrenome);
end;
|
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
rogerioclaro2
Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013
Mensagens: 404
|
| Enviada: Qua Jul 16, 2014 1:29 pm Assunto: |
|
|
| natanbh1 escreveu: | Utilize variáveis e as funções Copy e Pos.
Exemplo:
| Código: |
procedure TForm1.Button1Click(Sender: TObject);
var
NomeCompleto, Nome, Sobrenome: string;
begin
NomeCompleto:= 'João da Silva';
Nome:= copy(NomeCompleto, 1, (Pos(' ', NomeCompleto)- 1));
Sobrenome:= copy(NomeCompleto, (Pos(' ', NomeCompleto) + 1), Length(NomeCompleto));
ShowMessage(Nome);
ShowMessage(Sobrenome);
end;
|
|
certo.. no meu caso eu não tenho o primeiro nome... vou fuxar vários do banco... |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qua Jul 16, 2014 2:36 pm Assunto: |
|
|
No que eu passei foi só um exemplo. Tem adaptar para seu caso.
Pelo que vi no seu caso, ficaria mais ou menos assim:
| Código: |
var
NomeCompleto, Nome, Sobrenome: string;
begin
NomeCompleto:= SQLQuery1NOME.AsString;
Nome:= copy(NomeCompleto, 1, (Pos(' ', NomeCompleto)- 1));
Sobrenome:= copy(NomeCompleto, (Pos(' ', NomeCompleto) + 1), Length(NomeCompleto));
Linha := Linha + '''' + Nome + ''',';
Linha := Linha + '''' + Sobrenome + ''',';
ShowMessage(Nome);
ShowMessage(Sobrenome);
end;
|
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
rogerioclaro2
Experiente
Registrado: Quinta-Feira, 17 de Outubro de 2013
Mensagens: 404
|
| Enviada: Qui Jul 17, 2014 2:46 pm Assunto: |
|
|
| natanbh1 escreveu: | No que eu passei foi só um exemplo. Tem adaptar para seu caso.
Pelo que vi no seu caso, ficaria mais ou menos assim:
| Código: |
var
NomeCompleto, Nome, Sobrenome: string;
begin
NomeCompleto:= SQLQuery1NOME.AsString;
Nome:= copy(NomeCompleto, 1, (Pos(' ', NomeCompleto)- 1));
Sobrenome:= copy(NomeCompleto, (Pos(' ', NomeCompleto) + 1), Length(NomeCompleto));
Linha := Linha + '''' + Nome + ''',';
Linha := Linha + '''' + Sobrenome + ''',';
ShowMessage(Nome);
ShowMessage(Sobrenome);
end;
|
|
vALEU MESMO DEU CERTO!!! |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
