Brauche ein Prüfziffer-berechner.. :-/

[Olek]

Hallo Miteinander !

Folgendes Problem: Ich brauche in den nächsten tagen ein Programm.
Dieses Programm soll aus 6 beliebigen Ziffern (also edit-feldern)
, mithilfe eines bestimmten Verfahrens, eine siebte Ziffer errechnet.

...klingt also zimlich simpel. (..ist es ja auch..)
Doch da ich mich in Delphi nicht besonders auskenne, (mir alles selbst beigebracht habe, was ich kann) ist es für mich dann doch nicht so simpel..

Das große Problem liegt dabei, die Edit-Felder richtig einzustellen. Dass heisst, dass man keine Buchstaben eingeben kann, nur eine Ziffer eingeben kann, Fehlermeldungen erscheinen wenn man's doch macht, und dass natürlich diese siebte Ziffer daraus errechnet wird...
Da stoße ich mit meinen Kenntnissen leider an meine Grenzen :oops:

Sonstige Sachen wie zurücksetzen der Felder, programm beenden, design usw. ist für mich wiederrum "pipifax" :wink:
doch wie ich das "Herz" des Programms programmiere, das weiß ich, wie gesagt, überhaupt nicht.. :pale:

Was die Berechnung der siebten Zahl betrifft:

Die erste Zahl soll mit 1 multipliziert werden,
die zweite mit 3,
die dritte mit 1,
die vierte mit 7,
die fünfte mit 3,
die sechste mit 9.

Diese Zahlen sollen addiert werden und bilden die Prüfsumme. Die 7. Ziffer wird dann errechnet indem man die Prüfsumme durch 10 teilt, und dann 10- den rest der teilung.
Also zum Beispiel: prüfsumme= 83. dann 83:10= 8 und als Rest bleibt 3. also 10-3= [die siebte Ziffer]

Etwas besser beschrieben ist das unter folgendem link: http://www.pruefziffernberechnung.de/S/Sedol.shtml


..ich hoffe dass ihr euch daheim jetzt nicht über mein unwissen kaputt-lacht, und dass sich jemand bereiterklärt diesen rechenblock für mich, in einem Delphi-projekt, zu programmieren. :| :?

Ich wäre dir für immer Dankbar!! :kiss: :spin: :love:

Frohe Weihnachten! :wink:

[Matze]

2 Hinweise: Nur Zahlen lässt man im Edit so zu (hättest du auch übr die Suche gefunden):

Delphi-Quellcode:

procedure TFormSettings.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57, #8]) then
    key := #0;
end;

Im Objektinspector siehst du, dass ein Edit die Eigenschaft MaxLength besitzt, die die maximale Anzahl der Zeichen festlegt, die eingegeben werden können. Stellst du das auf 1, wird nur 1 Zeichen zugelassen.


Nachtrag: herzlich willkommen :)

[Ultimator]

Delphi-Quellcode:

//angenommen, du hast die ersten 6 Prüfziffern schon in einem string (strziffern)
endziffer: integer;

begin
  endziffer := StrToInt(strziffern[1]) +
              (StrToInt(strziffern[2]) * 3) +
              StrToInt(strziffern[3]) +
              (StrToInt(strziffern[4]) * 7) +
              (StrToInt(strziffern[5]) * 3) +
               (StrToInt(strziffern[6]) * 9);
  endziffer := 10 - (endziffer mod 10);
end;

Is ungetestet, müsste aber funzen.

[Olek]

Jo, danke erstmal!

Also das mit der einen Ziffer habe ich gerade auch entdeckt.
Das andere war mir neu, und hilft mir erstmal weiter.. denke ich.. :)

Bleibt ja "nurnoch" die Rechnung, und das mit den Fehlermeldungen... :?


PS: Danke, Danke! ich hoffe demnächst kann ich anderen helfen, anstatt euch mit meinen Problemen zu nerven :wink:

[Ultimator]

Schau mal meinen vorherigen Beitrgg an, ich hab ihn nochmal editiert, es funzt jetzt ;)

[Olek]

öhm.. danke.

Aber du hattest da vorher doch was mit "mod 10" stehen, oder?

So weit ich weiß, fehlt das da doch jetzt.. :?:

Denn jetzt fehlt ja das 'Geteilt durch 10' und '10-Rest' ...

[Ultimator]

Argh, wenn man nicht alles doppelt und dreifach kontrolliert :wall: :mrgreen:
Jetzt müsste aber alles oben stehen ;)

[Olek]

achja.. die Sache mit dem "string"..
Das wär' der nächste Brocken, der mir im Weg steht.. :|
..ich dachte man kann das irgendwie umgehen..?! :?:

naja.. also ehrlich gesagt, wäre es mir jetzt am liebsten, wenn du das grad machen könntest..? :| :?:

Hätte ich mehr Zeit jetzt, und somit mehr Geduld, würde ich bis zur kompletten Verzweiflung daran sitzen...
..aber es sollte eigentlich morgen fertig sein, daher habe ich den verzweiflungs-Punkt schnon erreicht, wenn du verstehst was ich mein' :oops:

[Ultimator]

Was meinst du denn mit "die Sache mit dem String"?
Meinst du, dass die ersten 6 Prüfziffern schon in nem String stehen?
Erklär mal etwas genauer ;)

[Olek]

Ach.. ne, da hatte ich etwas verwächselt.

Mit dem 'gestringe' gibt's kein Problem, und mein Programm ist auch schon fast fertig!! :spin2:

Danke! Ihr habt mir echt weitergeholfen!!! :hello: :kiss: :-D