TEST DE VALIDITÉ EAN13

Commentaire de f0xi le 19/10/2012 15:23:06 administrateur CS

Pas mal, mais ta fonction devrais être complété avec un status bien spécifique pour chaque cas : n'est pas un EAN13, est un EAN13, est un EAN13 strict (clé valide).

voici une possible correction : qui renvois 3 status différent : Invalide (esInvalid), ok EAN13 (esLike), ok EAN13 clé valide (esStrict)

type
  TEAN13STATUS = (
    esInvalid,
    esLike,
    esStrict
  );

Function EAN13Check(aInput:string): TEAN13STATUS;
Var
  X, KeyCalc:integer;
  int_extract: array[0..12] of integer;
begin
  result := esInvalid;
  // Test : longueur = 13 caractères
  if length(aInput) <> 13 then
    exit;

  // Test : tout les caractères sont des chiffres
  for X := 1 to 13 do
  begin
    if not tryStrToInt(aInput[X], int_extract[X-1]) then
      exit;
  end;

  result  := esLike;

  // calcul de la clé
  keycalc := 0;
  for x := 0 to 11 do
  begin
  if (X and 1) = 1 then
    keycalc := keycalc + int_extract[x]*3
  else
    keycalc := keycalc + int_extract[x];
  end;
  keycalc := 10 - (keycalc mod 10);

  // Test : clé valide = EAN13 strict
  if int_extract[12] = keycalc then
    result := esStrict;
end;