DIV and MOD

[dajuhsa]

Guuuuuten Tag!

ich habe seit gestern ein wenig mit den Ausdrücken DIV und MOD experimentiert und heraus kam eine dll.
sie hat zwar wenig nutzen weil man das alles auch mit strings machen könnte aber trotzdem erklär ich mal ein paar methoden:
-GetDig -> sucht eine Ziffer in einem Integer
-GetLastDig -> gibt die letzte Ziffer zurück
-ChangeDig -> ändert Ziffer a in Zahl b zu Ziffer c um
-TrimDeg -> versucht einen Winkel möglichst klein zu machen:

Delphi-Quellcode:

begin
X := 850;   // X = 850
TrimDeg(X); // X = 130
end;

-TrimRad -> Das gleiche

Delphi-Quellcode:

begin
X := 5.2;   // X = 5.2
TrimRad(X); // X = 1.2

ihr seht ja schon, dass das ganze hauptsächlich irgendwas mit ziffern macht
Bitte guckt es euch an und sagt mir, wenn ihr Fehler entdeckt.
Bittedankeschön

[edit=Luckie]Thread-Titel korrigiert, als ein Wort findet man das ja in der Suche nie. Mfg, Luckie[/edit]

[semo]

wenn du die sysutils noch raus kickst aus der uses section,
dann sparst du noch mal 8 kb, also insgesamt dann 80 kb.

du musst dann halt nur noch die funktion inttostr aus den sysutils in deine dll kopieren...

[CalganX]

Warum eigentlich eine DLL? Eine normale Unit würde es doch auch tun. Und wenn du den Quellcode nicht herausgeben willst, kannst du ja auch immer noch nur die DCU herausgeben. Ich finde eine DLL für sowas, was eigentlich nur Spielerei ist, total übertrieben.

Christopher

[semo]

spielerei, darum geht es ihm ja denke auch.
jeder fängt mal klein an oder?

[dajuhsa]

Zitat von CalganX:

Warum eigentlich eine DLL? Eine normale Unit würde es doch auch tun. Und wenn du den Quellcode nicht herausgeben willst, kannst du ja auch immer noch nur die DCU herausgeben. Ich finde eine DLL für sowas, was eigentlich nur Spielerei ist, total übertrieben.

Christopher

is halt meine erste dll und ich glaub auch nicht dass die jemals ernsthaft eingesetzt wird, deshalb auch kein ernsthaftes format.
mein code is ja dabei und eigentlich wollt ich nur mal sehen ob das bei mir als dll überhaupt klappt

[sirius]

Du darfst nicht nur die Funktionen ergänzen, sondern musst auch die Unist aus der uses-Liste entfernen. Die tauchen in deiner DLL noch auf.
Ich hatte es unter 20kb.
Wobei der Vorteil noch dadurch vergrößert wird, dass nicht unnötig Klassen (z.B. Exception) durch die Units instanziert werden.

[Khabarakh]

Zitat von sirius:

-da power bei dir nur mit natürlichen zahlen rechnet, kannst du auch math rausschmeissen und power durch eine forschleife o.ä. ersetzen

Power lässt sich ohne Math-Unit durch Exp() und Ln() ersetzen:
a^b = (e^ln a)^b = e^(b * ln a)

[sirius]

Zitat von Khabarakh:

Zitat von sirius:

-da power bei dir nur mit natürlichen zahlen rechnet, kannst du auch math rausschmeissen und power durch eine forschleife o.ä. ersetzen

Power lässt sich ohne Math-Unit durch Exp() und Ln() ersetzen:
a^b = (e^ln a)^b = e^(b * ln a)

Ja, das ist zwar richtig, aber weist du wie lange die FPU rattert, eh sie etwas mit der eulerschen Zahl zustande gebracht hat. Da ist (wie gesagt: natürliche Zahlen!) eine for schleife bedeutend schneller.

[dajuhsa]

@Khabarakh: Aha!! - Das versteh ich nicht...
@sirius: ich glaub ich lass es jetzt einfach is auch egal

[sirius]

Ich dachte du wolltest dazulernen , dafür sind wir doch hier

Was K. gemeint hat, kommt aus den Logarithmengesetzen. Ist keine Zauberei. (und wenn du 13 bist, dann hab Geduld, das kommt noch in der Schule).
So macht es auch die Unit math. Bzw. so hat man es früher selber implemtiert als man noch keine Unit math hatte. Damit kann man quasi x^y für alle reellen Zahlen (mit x>0) rechnen. günstiger für die FPU wäre IMHO x^y = 2^(x*lb(a)). Aber für deine Anwendung ist das alles overkill. Vermeide Fleißkommazahlen (single,double,real,extended) solange es geht!

[dajuhsa]

ja ich will auch lernen aber ich finde die sysutils.pas nicht^^
außerdem fällt mir nichts mehr ein was ich noch machen könnte weil auf optimierung hab ich keine lust wenn es nur ums lernen geht^^
nochwas:
meinst du nicht Fließkommazahl?
was ist schneller? Mein ChangeDig oder irgendwas mit strings und inttostr?