Forum: Programmieren allgemein
by Ultimator,
29. Nov 2005
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 ;)
Forum: Programmieren allgemein
by Ultimator,
29. Nov 2005
Argh, wenn man nicht alles doppelt und dreifach kontrolliert :wall: :mrgreen:
Jetzt müsste aber alles oben stehen ;)
Forum: Programmieren allgemein
by Ultimator,
29. Nov 2005
Schau mal meinen vorherigen Beitrgg an, ich hab ihn nochmal editiert, es funzt jetzt ;)
Forum: Programmieren allgemein
by Ultimator,
29. Nov 2005
//angenommen, du hast die ersten 6 Prüfziffern schon in einem string (strziffern)
endziffer: integer;
begin
endziffer := StrToInt(strziffern) +
(StrToInt(strziffern) * 3) +
StrToInt(strziffern) +
(StrToInt(strziffern) * 7) +
(StrToInt(strziffern) * 3) +
(StrToInt(strziffern) * 9);