|
Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
Delphi 10.4 Sydney
|
AW: ISBN 10 / 13 Prüfen
15. Jun 2011, 20:43
Hallo,
baue Dir doch verschieden Funktionen.
Eine zur Berechnung der Prüfsumme:
Function calcChecksum(ISBN: AnsiString): Byte;
Eine zu Überprüfung der Gültigkeit:
Function isCheckSumOK(ISBN: AnsiString): Boolean;
In isCheckSumOK kannst Du calcCheckSum aufrufen und den ermittelten Wert
mit dem der übergebenen ISBN vergleichen.
Die Berechnung ob 10 stellig oder 13 stellig kannst Du ja abhänging
von der Länge der übergebenen ISBN machen.
Grüße
Klaus
Klaus
|