ISBN 10 / 13 Prüfen

[GhostOne]

Nein nur weiß ich nicht wenn ich ein MaskEdit Feld nehme wie ich dann mein ersten Quelltext
einbaue den der ist ja auf mehreren Edit Feldern aufgebaut.
Wenn MaskEdit Feld könnte ich auch locker Punkt 2 und 4 machen denn dann:
code=MaskEdit
if lenght(code) <> 13 oder 10 dann schreibe in Edit14.text Nicht Korrekt .....
else if lenght(code)= 13 or 10 dann schreibe in Edit14.text ISBN Korrekt.

Weiß ich denke komisch ^^

Punkt 1 ( funktioniert ) aber der Ansatz mit dem ganzen einzelnen Edit Feldern ist Wahrscheinlich mein Problem.
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);

[fkerber]

Hi,

Zitat von GhostOne:

Update: Biete 25 € für eine fertige Lösung wo die 4 Punkte eingebunden sind mit einer Form Maske.

dir ist schon klar, dass du hier öffentlich dazu aufrufst, dass dir jemand beim Betrügen (Erschleichen einer Prüfungsleistung) hilft und du auch noch Geld dafür bietest?


LG, Frederic

[GhostOne]

....

[fkerber]

Hi,

nur um das nachträgliche Editieren klarzustellen:
Zum Zeitpunkt meines Postings war mein Zitat vollständig - da fehlte der 2. Satz mit Teamviewer noch.

So oder so bin ich nicht der Meinung, dass dein Aufruf mit der Suche nach Nachhilfe vergleichbar ist, sondern du bietest Geld für das fertige Produkt.
Also eine gekaufte Prüfungsleistung.

LG, Frederic

[GhostOne]

.....

[GhostOne]

bitte um thread löschung danke

[Sir Rufo]

Zitat von GhostOne:

bitte um thread löschung danke

Warum?