É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils;
Função do Delphi: StrToIntDef(vTexto, Valor Default Inteiro)
Retorno: Integer
Exemplos de uso
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | procedure TForm1.Button1Click(Sender: TObject); var vTexto : String; vNumero : Integer; begin { Exemplo 1 - Sucesso } vTexto := '14589'; vNumero := StrToIntDef(vTexto, -1); ShowMessage('vNumero = ' + IntToStr(vNumero)); { Exemplo 2 - No caso de erro, vai o valor default. } vTexto := 'KL1524.369'; vNumero := StrToIntDef(vTexto, -1); ShowMessage('vNumero = ' + IntToStr(vNumero)); end; |
