Como converter String para Integer?
É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils;
Função do Delphi: StrToInt(String)
Retorno: Integer;
Exemplos de uso
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
var
vTexto : String;
vNumero : Integer;
begin
{ Pode-se converter o conteúdo de uma variável. }
vTexto := '1458';
vNumero := StrToInt(vTexto);
ShowMessage(IntToStr(vNumero));
{ Pode-se também converter uma string estática }
vNumero := StrToInt('548');
ShowMessage(IntToStr(vNumero));
end; |
procedure TForm1.Button1Click(Sender: TObject);
var
vTexto : String;
vNumero : Integer;
begin
{ Pode-se converter o conteúdo de uma variável. }
vTexto := '1458';
vNumero := StrToInt(vTexto);
ShowMessage(IntToStr(vNumero));
{ Pode-se também converter uma string estática }
vNumero := StrToInt('548');
ShowMessage(IntToStr(vNumero));
end;
Abaixo segue o link de como converter Integer para String
http://showdelphi.com.br/dica-como-converter-integer-para-string-delphi/
Existem funções estendidas desta função que podem tratar erros
de conversão e trazer valores por padrão no caso de erro.
Link para função que testa se deu certo a conversão de String para Integer.
http://showdelphi.com.br/dica-funcao-que-testa-a-conversao-de-string-para-integer-delphi/
Link para função que trás valores default no caso de erro na conversão.
http://showdelphi.com.br/dica-como-converter-string-para-integer-com-valores-default-no-caso-de-erro-delphi/
-
InfusTec
-
18.008 views
- 0 comentários
- 27 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo