[resolvido] Trabalhando Com Strtoint

[Livio Neiva]

Eu criei essa unit não vinculada ou forms

e apareceu a menssagem de erro sobre o camando StrToInt

linha de comando

d1 := d1 + (11 - xx) * StrToInt (Copy(xCPF, nCount, 1));

menssagem de erro

[Error] UfunProGeral.pas(19): Undeclared identifier: 'StrToInt'

abaixo esta todo o procedimento;

unit UfunProGeral;

interface

Function CPF (xCPF : String) : Boolean;

implementation

Function CPF (xCPF : String) : Boolean;

Var d1 ,d4 ,xx ,nCount, resto, digito1, digito2 : integer;

check : String;

Begin

d1 := 0;

d4 := 0;

xx := 1;

For nCount := 1 to length (xCPF) - 2 do

begin

if Pos (copy(xCPF, nCount, 1), '/-.') = 0 then

begin

d1 := d1 + (11 - xx) * StrToInt (Copy(xCPF, nCount, 1)); -------------> erro

d4 := d4 + (12 - xx) * StrToInt (Copy(xCPF, nCount, 1));

end;

end;

end;

end.

como resolvo esse problema???

Obrigado pela atenção de todos

[Micheus]

Principalmente quando você cria units, é conveniente lembrar que devem ser introduzidas as units conforme necessário.

Neste caso a função StrToInt está declarada na unit SysUtils, devendo esta ser adicionada na cláusula uses da sua unit.

Na dúvida, coloque o cursor sobre a função e tecle F1 (ajuda), serão mostrados da função bem como em que unit ela está declarada.

Abraços