Hallo zusammen,
der Fehler steckt wohl hier:
Delphi-Quellcode:
case tabelle_ParityEAN13[LK,i] of
'A' : for j:= 1 to 4 do
result := result + tabelle_EAN_A[tmp[i], j] ;
'B' : for j:= 1 to 4 do
result := result + tabelle_EAN_B[tmp[i], j] ; // <<<<<<<<<
'C' : for j:= 1 to 4 do
result := result + tabelle_EAN_C[tmp[i], j] ;
end;
da wird eine #0 zurück geliefert. Auch wenn j von 4 nach 1 gezählt wird, sollten zumindestens keine #0 zurückgegeben werden.
Edith: Ich nehme beinahe alles zurück. Da fehlen eine Menge formale Prüfungen. So sollte es z.B. nicht möglich sein mit einem 5stelligem Code zu versuchen eine EAN13 zu erzeugen. Das geht schief!
Gruß
K-H