Somar string: � poss�vel?

Question

Tenho um campo string com 12 caracteres(String num�rica). Tentei transformar para Integer e Double, mas sempre dava erro. O Haroldo Zanela me passou uma rotina mas n�o funcionou. A pergunta �: Como in...

Evandro Massini · Answer

Amigo,antes de mais nada devo lembra-lo que o c�digo EAN13 � gerado por um algor�tmo, por tanto n�o basta acicionar um n�mero a mais no c�digo anterior. Fazendo isto provavelmente o leitor de c�digo de barras n�o far� a leitura. Consulte a p�gina da EAN para ter acesso ao algoritmo. Quanto ao fato de tentar transformar o string em integer, provavelmente seria porque o n�mero gerado seria muito grande para um campo integer. Tente transforma-lo em um LongInt.At� mais......

E_gama · Answer

Supondo que o codigo que vc quer incrementar sao os 5 ultimos digitos (numa string de tamanho 12), vc pode utilizar a funcao abaixo, passando seu codigo de 12 digitos como parametro:

function IncrementaCodigo(strCodigo: string): string;
var strFixa: string;
    Codigo : Integer;

begin
  strFixa := Copy(strCodigo, 1, 7); // O que nao se altera
  Codigo  := StrToInt(Trim(Copy(strCodigo, 8, 5))) + 1;

  Result := strFixa + Format(��5.5d�, [Codigo]); // Codigo incrementado
end;

Depois disso, basta calcular o digito verificador...

Paulo · Answer

Valeu e_gama, ainda n�o usei mas creio q vai dar certo. Evandro, este c�digo � s� para gerar uma barra para controle interno, n�o � necess�rio usar algor�tmos para c�lculos das barras. � para tirar um produto do almoxarifado e mandar para linha de produ��o. � tudo interno. Ele pode ser assim:
000000000001
000000000002
000000000003 and so on. Por isso a d�vida de como incrementar 1 em uma string.

F�rum Somar string: � poss�vel? #151165