Mathe mit Strings (die deutsche StringMatheLib ._. )

[himitsu]

Zitat von gammatester:

Noch ein schwerer Bug in PotenzModulo ...

ups, das hatte ich mal so und hatte es dann wohl "zeroptimiert"

Aber hier hat sich schonmal ein Vorteil der "Einfachheit" gezeigt ... nicht viel unverständlicher Code, dann noch fast vollkommen unkommentiert und dennoch ist der Fehler schnell gefunden
(ich möcht mal nicht wissen, wieviele Zeilen Code Hagens DEC allein in solch einer Funktion drinnen hat)

Nja, auf die Geschwindigkeit hatte ich ja schon hingewiesen ... probiert einfach mal eine Potenz, mit den voreingetragenen Standardwerten

[qwertz543221]

sry ich finde die angebene zeile nicht

kannst du mir mal die zeilennummer geben

[himitsu]

Zeile 520 in StringMatheLib.pas ... und die Dateien im Post #1 sind auch schon korrigiert

[qwertz543221]

wie stelle ich folgendes dar

Delphi-Quellcode:

if (x>y) 
  then ...

[himitsu]

Delphi-Quellcode:

// über das TMathe-Objekt

If Mathe.Vergleich(x, y) > 0 Then ...
// die Vergleiche des Funktions-Ergebnisses gegen 0 verhalten sich genauso, wie x gegen y
// ..) > 0       x > y
// ..) < 0       x < y
// ..) = 0       x = y
// ..) >= 0      x >= y
// ...

If Mathe.Vergleich(x, y, vGroesser) Then ...

// über die Operatoren aus StringMatheRec.pas

If x > y Then ...

PS: falls es richtig rechnet, gibt es nun auch einen Festkommatypen (siehe Demo 3)

[qwertz543221]

hallo, danke - ich kann das jetzt gut einbauen.

hast du vlt auch eine random funktion für deine stringzahlen? - oder eine idee, die ich mal - ausnahmsweise - selbst mache

[mkinzler]

Zitat:

hast du vlt auch eine random funktion für deine stringzahlen? - oder eine idee, die ich mal - ausnahmsweise - selbst mache

Das würde zumindest dem Gedanken von OpenSource entsprechen

[R2009]

Hi,

Aus deinem Titel und aus den Beiträgen hatte ich den Eindruck du wolltest ausschliesslich mit Strings rechnen!
Dass es hier um sehr grosse Zahlen geht kann man nur ganz am Rande im ersten Beitrag erahnen.

Viel grüsse

[toms]

Die Unit läuft fast unter Delphi 5.

Folgende Punkte müssten noch bereinigt werden:

1. unit types entfernen

2. TValueRelationship und Konstanten von unit types deklarieren

Delphi-Quellcode:

type
  TValueRelationship = -1..1;
const
 (** Equals for extended comparisons. *)
  EqualsValue = 0;
  (** Less than for extended comparisons. *)
  LessThanValue = Low(TValueRelationship);
  (** Greater than for extended comparisons. *)
  GreaterThanValue = High(TValueRelationship);

3. "$IF not" ist unter D5 eine ungültige Compiler Directive.

{$IF not Declared(Trim)} -> [Error] StringMatheLib.pas(107): Invalid compiler directive: 'IF'
{$IF not Declared(Max)} -> [Error] StringMatheLib.pas(123): Invalid compiler directive: 'IF'


4. Delphi 5 kennt System.Error nicht

[himitsu]

1-3 sind kein Problem

4: wie hieß das denn früher, bzw. gibt es da zumindestens System.RunError?