Documentazione
torna al sito web >

EAN8 (Pascalscript)

Descrizione

EAN8 è la cifra di controllo per un codice a barre EAN8.

Sintassi

function EAN8(const S: String): Integer;

Argomenti

La stringa S con un numero di codice a barre lungo 7 o 8 caratteri viene passata come argomento. Come risultato viene fornita la cifra di controllo EAN 0-9.

Esempio

var
  S1: String;
  i : Integer;
  S2: String;
begin
  S1:='4711081';
  i:=EAN8(S1);
  S2:=IntToStr(i);
  ShowMessage(S2);
end;

Le regole per comprendere lo script possono essere trovate qui.

Alla variabile di stringa S1 è assegnato il testo "4711081". La cifra di controllo viene formata con la funzione EAN8 e assegnata alla variabile i. IntToStr converte il valore intero i in un testo S2 visualizzabile.

La funzione cifra di controllo elabora le stringhe con e senza cifre di controllo.

ShowMessage mostra: 6