Enviei a resposta dessa sua dúvida ontem, como pode ver na msg copiada.
De: Eduardo RC Neto
Data: 07/11/05 13:28:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Dividir caracter
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;
Fora outros colegas que também mandaram....
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/12/05 10:06:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Caracter
Ola!!!
gente estou levando um coro......
tenho um edit....so q tenho q pegar a ultima letra digitada...
??????????????
[As partes desta mensagem que não continham texto foram removidas]
--
[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
