F�rum Integer n�o aceita n�mero grande e n�o pode aparecer pontos e letras! #592846

30/04/2018

Estou fazendo a seguinte fun��o comentada para pegar o resultado de uma opera��o matem�tica( Com o n�mero do CNPJ ), preciso pegar esse valor e somar pelo n�mero da matr�cula, o resultado n�o pode conter letras ou v�rgulas, e pelo fato de o n�mero ser muito grande o Integer n�o aceita, e o float o n�mero aparece com letras e v�rgulas, oque n�o pode acontecer... Segue print mostrando c�digo....

Print: http://prntscr.com/jc1k7y ( A fun��o que estou utilizando est� comentada! );

Gilberto Moura

Curtir t�pico

+ 0

Responder

Posts

03/05/2018

Venancio Alves

Ol� Gil!

J� tentou utilizar o tipo Long?

Responder

Gostei + 0

04/05/2018

Emerson Nascimento

voc� pode criar uma fun��o que retorne apenas n�meros:

function SoNumeros( str: string );
var retorno : string;
    i: integer;
begin
  retorno := '';
  For i := 1 to Lenght( str ) do
    if (str[i] in ['0'..'9']) then retorno := concat(retorno, str[i]);
  result := retorno;
end;

depois, pode utiliz�-la no seu c�digo (podendo ainda reduzi-lo):

x2 := SoNumeros( x2 ); // somente numeros
x4 := '';
For i := 1 to Lenght( x2 ) do
  x4 := concat(x4, IntToStr( StrToInt( x2[i] ) * Math.IfThen(i < 10, i, i - 10) ) )

nsoma := StrToInt64( x4 ) + StrToInt64( trim( matricula.Text ) );
x4 := IntToStr( nsoma )

lblSerial.Caption := x4

Responder

Gostei + 0