ISBN 10 / 13 Prüfen

[GhostOne]

Die ganzen Seiten kenne ich schon ( weiß ja wie man es berechnet ),
nur wie schreib ich dazu ein einfachen Quelltext.

Beispiel: Mein Quelltext zum Punkt 1 ISBN 10 Prüfziffer.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
X, zahl1, zahl2, zahl3, zahl4, zahl5,
zahl6, zahl7, zahl8, zahl9, zahl10, ergebnis, ziffer: Integer;
begin
zahl1 := StrToInt(Edit1.Text)*1;
zahl2 := StrToInt(Edit2.Text)*2;
zahl3 := StrToInt(Edit3.Text)*3;
zahl4 := StrToInt(Edit4.Text)*4;
zahl5 := StrToInt(Edit5.Text)*5;
zahl6 := StrToInt(Edit6.Text)*6;
zahl7 := StrToInt(Edit7.Text)*7;
zahl8 := StrToInt(Edit8.Text)*8;
zahl9 := StrToInt(Edit9.Text)*9;
ergebnis := zahl1 + zahl2 + zahl3 + zahl4+ zahl5 + zahl6 +
zahl7 + zahl8 + zahl9;
ziffer := ergebnis div 11;
zahl10 := ergebnis - ziffer * 11;
if zahl10 = 10 then zahl10:= X;
Edit14.Text := IntToStr(zahl10);
end;

dazu sollte man aber euch meine Form sehen um es zu verstehen, dass liegt alles oben im Anhang.

[RWarnecke]

Für Punkt 2 ist das die gleiche Procedure wie Button1Click nur umgekehrt und eine Zeile mehr, wo Du den Rest berechnest.

Edit: Ein bisschen Suche hätte Dir diesen Link gebracht.

[himitsu]

Wo hängt es jetzt ewigentlich genau?

Zitat:

1. ISBN 10 Prüfziffer berechnen ( erledigt )
2. ISBN 10 Auf gültigkeit prüfen

Die 2 sollte ja einfach sein.
Einfach die Prüfziffer versuchen zu berechnen und mit der vorhandenen vergleichen.

Tipp:
- ganz oben recht ist die Forensuche zu finden
- dort kann man "ISBN" + Enter eingeben
- in den funden verstecken sich passende Threads, ABER
- über dem ersten Suchergebnis gibt es ein kleines Kästchen, da steht "Code-Library (1)" ... eventuell hilft ja dieser Teil des Suchergebnisses

PS: Das Ord(S[i]) - Ord('0') entspricht quasi einem StrToInt für eine Ziffer.

[Klaus01]

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

[GhostOne]

Danke an alle aber guck bitte erst meine Form an ^^ und die Quelltexte wie schon oben erwähnt ( kenne ich )hab ja schon gegoogelt, sind alles function keine proceduren...

Punkt 2. ISBN gültig wenn 10 stellige zahl / um es kurz und simpel zu fassen.
Da schreibe ich grade den Quelltext ( aber etwas anders ).
Quelltext von mir:

Rechne Alle Ziffern zusammen,wenn Ergebnis kleiner als 10 dann schreib in
Edit14.Text....ISBN korrekt. Ist aber schwachsin.... Mein Quelltext.

[himitsu]

Den Code einer funktion kann man auch in eine Prozedur packen.

Ob mn das Ergebnis nun als Result zurückgibt oder z.B. in ein Edit kopiert, ist vollkommen egal.

[mkinzler]

Sauberer wäre als Rückgabewert

[BUG]

Zitat von himitsu:

Den Code einer funktion kann man auch in eine Prozedur packen.

Oder besser: man kann die Funktionen in einer Prozedur aufrufen

[GhostOne]

Ja ich weiß das es bei euch komisch rüber kommt liegt wahrscheinlich an meine Form.
http://s1.directupload.net/images/11...p/2ckg3svz.jpg
durch meine einzelnen Edit Felder.

[mkinzler]

Könntest du den Screenshot nochmal in einer Größe, in der man was erkennen kann, posten?