É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils;
Função do Delphi: TryStrToInt(Texto, variável inteira)
Retorno: Integer;
Exemplos de uso.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | procedure TForm1.Button1Click(Sender: TObject); var vTexto : String; vNumero : Integer; begin { Exemplo 1 - Sucesso } vTexto := '14589'; if TryStrToInt(vTexto, vNumero) then ShowMessage('Conversão efetuada com sucesso! Valor: ' + IntToStr(VNumero)) else ShowMessage('Não foi possível converter ' + vTexto + ' em inteiro'); { Exemplo 2 - Erro } vTexto := 'KL1524.369'; if TryStrToInt(vTexto, vNumero) then ShowMessage('Conversão efetuada com sucesso! Valor: ' + IntToStr(VNumero)) else ShowMessage('Não foi possível converter ' + vTexto + ' em inteiro'); end; |
