Substring

Delphi

30/05/2004

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


Rezum

Rezum

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

30/05/2004

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;



GOSTEI 0
POSTAR