Documentazione
Torna al sito web >

EAN13 (Pascalscript)

Descrizione

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

Sintassi

function EAN13(const S: String): Integer;

Argomenti

La stringa S con un numero di codice a barre lungo 12 o 13 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:='659556182335';
  i:=EAN13(S1);
  S2:=IntToStr(i);
  ShowMessage(S2);
end;

Le regole per comprendere lo script possono essere trovate qui.

Il testo "659556182335" è assegnato alla variabile di stringa S1. La funzione EAN13 costituisce la cifra di controllo e la assegna 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 spettacoli: 8