Emerson, vou explicar o que fiz.
Quero gerar um relatório no Quickreport na seguinte forma
SOBRENOME + ',' + NOME, até aí tudo bem já entendido.
existe duas coisas que não entendi no seu código:
Nome2 := NomeSobrenome := Copy(Nome, 1, 8) + Sobrenome; e
Copy(Nome, 1, 8) porque até a 8ª posição
Para seu exemplo da certo:
Suponhamos que o campo Nome tenha
"Natanael Santos" e o campo sobrenome "Santos".
A quantidade de caracteres em nome é 15 e em sobrenome é 6, então 15 - 6 = 9.
Dai fica Nome = "Natanael " + "Santos".
Agora com nome com 10 caracteres ficariam os dois ultimos caracteres de fora.
Peço desculpas por encomoda-lo, mas preciso dessa ajuda.
Muito obrigado.
PAULO FERNANDES
----- Original Message -----
From: Emerson Moreno
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 04, 2005 4:55 PM
Subject: Re: [delphi-br] Contagem
Sim meu amigo eu sei, veja o exemplo abaixo.
Var
Nome, Sobrenome, Nome2, NomeSobrenome : String;
Sobra : Integer;
Begin
sobra := 0;
Nome := Trim(EdtNome.text);
Sobrenome := Trim(EdtSobrenome.text);
Sobra := Length(Nome) - Length(Sobrenome);
Nome2 := NomeSobrenome := Copy(Nome, 1, 8) + Sobrenome;
end;
Como ficara a rotina acima. Suponhamos que o campo Nome tenha
"Natanael Santos" e o campo sobrenome "Santos". A quantidade de
caracteres em nome é 15 e em sobrenome é 6, então 15 - 6 = 9. Dai fica
Nome = "Natanael " + "Santos".
Pense direito que da certo. Espero ter ajudado.
Em 04/07/05, Info Desenvolvimento<[EMAIL PROTECTED]> escreveu:
> pensei nisso mais vai variar demais usando o copy.
> NOME tem tamanho 40, só que tem nome que usa 28 posições
> SOBRENOME Tamanho 15, e sobrenome que usa 12 posições.
>
> São 3 mil registros.
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou
> [EMAIL PROTECTED]
>
>
>
> ________________________________
> Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
> Yahoo!.
--
[]'s
Emerson Moreno
O grande sábio aprende por ensinar!
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
