EAN8 (Pascalscript) #

Beschreibung #

EAN8 bildet die Prüfziffer zu einem EAN8-Barcode.

Syntax #

function EAN8(const S: String): Integer;

Argumente #

Als Argument wird der String S mit einer 7 oder 8 Zeichen langen Barcodezahl übergeben. Die EAN-Prüfziffer 0-9 wird als Ergebnis geliefert.

Beispiel #

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

Regeln zum Nachvollziehen des Scripts finden Sie hier.

Der String-Variablen S1 wird der Text ‘4711081’ zugewiesen. Über die Funktion EAN8 wird die Prüfziffer gebildet und der Variablen i zugewiesen. Über IntToStr wird der Integerwert i in einen anzeigbaren Text S2 gewandelt.

Die Prüfziffern-Funktion verarbeitet Strings mit und ohne vorhandener Prüfziffer.

ShowMessage zeigt: 6