Home Information PDF Documents EULANDA Handbooks Training Book's corner Download Contact us Table of Contents About us

Glossary

Password needed Newsgroup

Remote Support system

EAN8 (Pascal-Script)

Back | Level back

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