787454545454545645454544 ist kein gültiger integerwert

[himitsu]

Warum kommst du da nicht weiter?

Der letzte Link vom Michael, ist doch voller Informationen und vieler Links zu dp-externen Big-Num-Libraries.
Dabei haben wir sogar mehrere Libs hier in der DP.

'ne "Einfache" hab sogar ich zu bieten
http://www.delphipraxis.net/internal...t.php?t=159592

[Muchacho]

Nun bin ich einem Link von Michael mit BigInt (Jahrgang 2003) gefolgt und implementiert (ohne Fehler).

Jetzt wollte ich mit dieser wunder Unit rechnen und siehe da: Exception ohne Ende.

Schade

Danke Himitsu, aber leider weiß ich mit Dateien *. 7z nichts anzufangen.

Können Deine Units überhaupt mein Problem lösen?

Habe auch Fragen in anderen Foren gesehen mit gleichem Ergebnis wie diese hier: Nichts

Falls irgendjemand etwas für mich hätte wäre ich sehr dankbar

Muchacho

[mimi]

*.7z ist ein Packformat was mit dem 7zip Entpackt werden kann. Das ist ein Kostenlosen Tool was es für Windows und Linux gibt.
http://www.7-zip.org/

Poste doch mal den Code, wie du es gemacht hast....

[Muchacho]

Michael, :-D

danke für Dein Interesse.

Habe natürlich alles richtig gemacht. Die besagte Units ist bei einer interner Routine mit Zugriffsverletzung zusammengebrochen (habe im Source nachverfolgt).

Jetzt überlege ich die ganze Zeit wie kann ich solche Zahl (eher STRING) durch eine Zahl wie 49 dividieren (MOD).

Vielleicht lässt sich so was auf kleinere Schritte verteilen (z.B. String teilen).

Ich weiß noch nicht, aber irgendwie muss ich es schaffen.

Muchacho

[mimi]

Es wird höchstwahrscheinlich eine Funktion in der Unit dafür geben. Such mal nach Dividieren in der Unit vielleicht auch Div oder Divi oder sowas....

[himitsu]

Zitat:

Zitat von Muchacho

Jetzt überlege ich die ganze Zeit wie kann ich solche Zahl (eher STRING) durch eine Zahl wie 49 dividieren (MOD).

Meine Lib rechnet nur mit "Strings" ... drum auch der Name.
(daduch ist sie zwar nicht die Schnellste im Rechnen, aber 0,0015 Sekunden sollte für dich wohl ausreichen)

Delphi-Quellcode:

Können Deine Units überhaupt mein Problem lösen?

Im Anhang ein Bild der Demo aus diesem Thread (diese hättest du auch ohne 7Zip7z testen können)

[Muchacho]

hahaha

Danke Himitsu,

wolte gerade selbst was schreiben. :gruebel:

Ich probiere es aus und sage hier Bescheid

Muchacho

[alzaimar]

Zitat:

Zitat von Muchacho

Bin erstaunt, da solche Zahlen werden auch z.B. bei IBAN Berechnungen erzeugt
und anschließend mit modulo 97 behandelt, also offensichtlich keine Zauberei.

Zitat:

Zitat von Dax

(a + b) mod x = ((a mod x) + (b mod x)) mod x

Dann geht das ohne große Zahlen.

Delphi-Quellcode:

Function Modulo (VerdammtGrosseZahl : String; Modulo : Integer) : Integer;
Var
  Zahl : Integer;
  i : integer;

Begin
  Zahl := 0;
  for i:=1 to length (VerdammtGrosseZahl) do 
    // Zahl := (Zahl*10 + Ord(VerdammtGrosseZahl[i]) - 10) mod Modulo;
    Zahl := (Zahl*10 + Ord(VerdammtGrosseZahl[i]) - Ord('0')) mod Modulo;
End;

[edit] Code verbessert [/edit]

[Muchacho]

Hi Alzaimar :-D



In Deiner Funktion ist noch etwas nicht in Ordnung:

'700901001234567890131400' mod 97 muss gleich 90 sein

Muchacho

[himitsu]

@alzaimar: meinst du nicht -Ord('0') statt -10 ?


http://www.delphitricks.com/source-c...e_an_iban.html