Faz assim:
var iTamanho : integer
sUltimoCaracter : string;
Begin
iTamanho := Length(trim(edit1.text);
SUltimoCaracter := copy(edit1.text,iTamanho,1);
if sUltimoCaracter = '%' then begin
// FAZ A PORCENTEAGEM
end else begin
// FAZ A SUBTRAÇÃO
end;
end;
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: Hudson
Data: 07/11/05 10:34:03
Para: delphi-br@yahoogrupos.com.br
Assunto: [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
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
