EAN13 (Pascalscript) #

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