Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Trabalhando Com Strtoint


Livio Neiva

Pergunta

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

  • 0

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

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...