Menü

EAN13 (Pascal-Script)

Zurück | Ebene zurück

Beschreibung

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

Syntax

function EAN13(const S: String): Integer;

Argumente

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

Beispiel

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

Regeln zum Nachvollziehen des Scripts finden Sie hier.

Der String-Variablen S1 wird der Text '659556182335' zugewiesen. Über die Funktion EAN13 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: 8