Capturar iniciais do nome
Olá galera, preciso de uma ajudinha aqui...
eu tenho no meu banco de dados um campo para o cara cadastrar o nome do cliente,,
eu gostaria de capturar as iniciais do nome, exemplo:
Cliente: Almir de Jesus Gaspar
capturar apenas 'AJG'
alguém sabe como?
eu tenho no meu banco de dados um campo para o cara cadastrar o nome do cliente,,
eu gostaria de capturar as iniciais do nome, exemplo:
Cliente: Almir de Jesus Gaspar
capturar apenas 'AJG'
alguém sabe como?
Jeferson Araujo
Curtidas 0
Respostas
William
08/10/2012
Colega qual banco vc está usando?
Não posso afirmar que todos os SGBDs aceitam, mas vc pode montar uma condição assim:
Não posso afirmar que todos os SGBDs aceitam, mas vc pode montar uma condição assim:
SELECT * FROM CLIENTE WHERE NOME LIKE 'A%J%G%'
GOSTEI 0
Jeferson Araujo
08/10/2012
bom não seria isso que eu queria...
é que assim tem o nome do cliente, 'Almir de Jesus Gaspar' e tem o código '35'
quero que ele mande para uma variável 'AJG/35'
no caso as iniciais + / + cli_codigo
mas não sei como capturar as inicias... esse novo código no caso no meu cadastro seria pego automático, o usuário não poderia editar
é que assim tem o nome do cliente, 'Almir de Jesus Gaspar' e tem o código '35'
quero que ele mande para uma variável 'AJG/35'
no caso as iniciais + / + cli_codigo
mas não sei como capturar as inicias... esse novo código no caso no meu cadastro seria pego automático, o usuário não poderia editar
GOSTEI 0
Jeferson Araujo
08/10/2012
o banco é o Access mesmo
GOSTEI 0
Jeferson Araujo
08/10/2012
ñ precisa mais galera... já consegui..
se alguém quiser está aqui o código
se alguém quiser está aqui o código
function TFrmParcelasClientes.PegarInicias(Valor: String): String;
Var
I: integer;
begin
for I := 1 to Length(Valor) do
begin
if (Length(Trim(Valor[I - 1])) = 0) then
Result := Result + copy(Valor, I, 1);
end;
end;GOSTEI 0
Alisson Santos
08/10/2012
Estou fechando o tópico qualquer duvida nos informar.
GOSTEI 0