Desculpe a correção, mas do jeito passado no mail anterior,

edit2.text := copy(edit1.text,length(edit1.text),length(edit1.text));

 a função "copy"  irá devolver o mesmo valor passado no Edit1.

O Certo seria:

edit2.text := copy(edit1.text,length(edit1.text),1);

Abraços,
 
Eduardo RC Neto
Desenvolvimento de Sistemas
-------------------------------------------------------
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
MSN: [EMAIL PROTECTED]

-------Mensagem original-------
 
De: Anderson
Data: 07/11/05 14:43:03
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Dividir caracter
 
Para saber o ultimo caracter digitado:

edit2.text := copy(edit1.text,length(edit1.text),length(edit1.text));

Anderson
  ----- Original Message ----- 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 11, 2005 9:41 AM
  Subject: [delphi-br] Dividir caracter


  Estou precisando de criar em um edit, algum q o usuario apos digitar e
sair do mesmo (onexit) ele fara uma soma da seguinte forma.....
  se o cliente digitou no final do numero "%"....ele ira fazer uma
porcetagem....
  senão ele fara uma subtração.....

  para isso vou ter q separa o fina do numero....como faço isso?

  [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

    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 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

 


Responder a