Livio Neiva Postado Setembro 5, 2007 Denunciar Share Postado Setembro 5, 2007 Eu criei essa unit não vinculada ou formse apareceu a menssagem de erro sobre o camando StrToIntlinha de comandod1 := 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;interfaceFunction CPF (xCPF : String) : Boolean;implementationFunction CPF (xCPF : String) : Boolean;Var d1 ,d4 ,xx ,nCount, resto, digito1, digito2 : integer;check : String;Begind1 := 0;d4 := 0;xx := 1;For nCount := 1 to length (xCPF) - 2 dobeginif Pos (copy(xCPF, nCount, 1), '/-.') = 0 thenbegind1 := d1 + (11 - xx) * StrToInt (Copy(xCPF, nCount, 1)); -------------> errod4 := d4 + (12 - xx) * StrToInt (Copy(xCPF, nCount, 1));end;end;end;end.como resolvo esse problema???Obrigado pela atenção de todos Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Setembro 5, 2007 Denunciar Share Postado Setembro 5, 2007 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.