ISBN 10 / 13 Prüfen

[GhostOne]

Guten Tag liebes Delphi Forum,

ich habe vor 3 Jahren mal Delphi und Turbo Pascal geschrieben...
das ist leider schon lange her und ich hab fast alles vergessen.

Ich bin nun in Berufsschule und muss ein Programm schreiben was:

1. ISBN 10 Prüfziffer berechnen ( erledigt )
2. ISBN 10 Auf gültigkeit prüfen ( in bearbeitung )
3. ISBN 13 Prüfziffer berechnen ( erledigt )
4. ISBN 14 Auf gültigkeit prüfen ( in bearbeitung )

Brauche nun Hilfe diese Aufgabe zu erledigen.


Im Anhang liegt mein bis jetz gemachtes Projekt.

Bitte Anhang downloaden (FORM) um mein Problem zu verstehen da ich mit mehreren Edit Feldern arbeite...danke

[fkerber]

Hi,

ich sehe keinen Anhang

zu 2.
Wann ist eine ISBN denn gültig?

zu 3.
Hast du schon die Berechnungsmethode mal auf nem Blatt Papier gemacht?

zu 4.
siehe 2 (unter der Annhame, dass du ISBN-13 meinst)


LG, Frederic

[GhostOne]

anhang jetz drinne hat gedauert der upload sry.
Ich weiß wie alles geht hab mich damit schon gut beschäftigt,
nur weiß ich leider nicht wie ich den quell code einbinden / schreiben kann.
Es gibt ja schon Quell-Texte hier nur sind das function und keine proceduren.
Wie man was berechnet steht hier Perfekt drinne ( http://www.arndt-bruenner.de/mathe/scripts/pruefziffern ),
daraus habe ich ja Punkt 1 ISBN 10 Prüfziffer erledigt.

[borncrush]

Prüfziffer testen
Auf "Berechnen starten" klicken, dann wird Dir der Rechenweg dargestellt

[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.