Fórum Substring #235155
30/05/2004
0
Olá pessoal...
Tenho uma variável chamada Nome. Ela contém nos ULTIMOS UM OU DOIS dígitos uma numeração. Presiso pegar apenas esta numeração final testando logicamente se são numéricos o último ou os dois últimos dígitos para pegar apenas os números.
Sabe como fazer?
Obrigado
Reginaldo
Tenho uma variável chamada Nome. Ela contém nos ULTIMOS UM OU DOIS dígitos uma numeração. Presiso pegar apenas esta numeração final testando logicamente se são numéricos o último ou os dois últimos dígitos para pegar apenas os números.
Sabe como fazer?
Obrigado
Reginaldo
Rezum
Curtir tópico
+ 0
Responder
Posts
30/05/2004
Fabio.hc
Tente assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (NOME[length(NOME)] in [´0´..´9´]) then
ShowMessage(´Último é numero´)
else
if (NOME[length(NOME)-1] in [´0´..´9´]) then
ShowMessage(´Penúltimo é numero´);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)