Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
9. Aug 2011
*kopftisch*
hallo nochmal, habe den fehler gefunden
E2:= $10001; // =65 537
weiß nich wie ich auf 17 kam :(
hatte wohl 10001 als binärzahl gelesen^^
aber jetzt stimmt alles auch mit den gegenrechnungen
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
7. Aug 2011
hi
mein M ist auch 260 028 769 878 777 751 903 615 575 484 893 318 522 593 549 153
019 384 765 768 600 715 250 637 538 242 820 610 196 714 257 624 672 142 345 623 388 195
472 124 085 266 520 618 486 358 499 643 220 155 021 998 155 787 987 974 232 053 029 994
462 731 025 282 635 023 609 141 860 748 194 134 800 494 453 084 807 627 828 351 442 483
638 107 586 760 292 651 456 892 855 464 402...
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
24. Okt 2004
hi Hagen :)
das war ja nur ein test mit dem IString
die normalen strings sind natürlich um vieles besser
ich sags mal so:
nicht IString selber war mein ziel, sondern der weg zu IString und dem verstehen warum/wie es geht war das ziel
also der weg war das ziel.....
das ich strings als testopfer genommen habe war einfach eine entscheidung
irgendeinen sinn mußte ich der...
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
23. Okt 2004
Hi Hagen,
ich bins nochmal ;)
nun habe ich mir frustriert ein bier aufgemacht weil ich an einer stelle hing die mir wirklich aussichtslos erschien (die parameterübergabe).... ich habe mich echt geärgert das der mir das self dazwischenmogelt und ich den "begin" der funktion wo er den refzähler des string erhöht nicht verhintern kann.... naja, wärend ich gemütlich das bier schlürfe hats klick...
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
21. Okt 2004
Hi Hagen :)
die beiden links sind gold wert :)
nach ein paar gemütlichen stunden mit dem debugger (*ironie*^^) habe ich erstmal die ganze genialität der sache regestriert^^
alles habe ich noch nicht raus....aber kommt noch ;)
ich versuch es mal zusammenzufassen:
(ich hoffe du korrigierst mich falls ich irgendwas falsch interpretiere^^)
im grunde nutzen wir nur ein verhalten vom...
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
17. Okt 2004
hi Hagen
hab mal ein paar fragen ;)
// division with remainder, Q = A div B & R = A rem B
procedure NDivRem(var Q,R: IInteger; const A,B: IInteger); overload;
// division with modular remainder, Q = A div B, R = A mod B
procedure NDivMod(var Q,R: IInteger; const A,B: IInteger); overload;
beides ist eine restberechnung
wo ist nun der genaue unterschied zwischen MOD und REM ?
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
9. Okt 2004
hi Hagen :)
sorry das die antwort so lange warten ließ, aber das RL fordert meine ganze zeit
also:
ich habe mal fix ein demoprogramm gemacht wo einmal mit
function NRoot(var A,R: IInteger; const B: IInteger; E: Integer): Boolean; overload;
die wurzel + rest gebildet wird und dann eine gegenrechnung zur prüfung
das ist alles was mit "1." im memo erscheint
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
2. Okt 2004
Hi Hagen
danke,danke,danke :)
ich hab jetzt ne lösung mit der ich gut zurecht komme ;)
also danke ich dir für deine hilfe :)
nun hätte ich noch eine andere frage
function NRoot(var A,R: IInteger; const B: IInteger; E: Integer): Boolean; overload; // 1.)
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
23. Sep 2004
hi Hagen,
jup, mit ähnlich meinte ich das die zahlen immer zwischen einer 2er potenz sind
also bei NRnd(Zahl,16); sind sie immer zwischen 32 000 und 65 000....
die zufallszahlen haben nichts mit verschlüsselung zu tun, sind nur für mathematische versuche ;)
habe aber einen weg gefunden :)
ich lösche einfach das erste bit in der IInteger mit NCut
dann kommen ganz gute ergebnisse^^
Forum: Object-Pascal / Delphi-Language
Delphi
by Dano,
23. Sep 2004
hi Hagen
ich habe mal bissel gebastelt^^
und brauche zufallszahlen
die funktion NRnd liefert aber immer zahlen die ähnlich sind :(
man kann der funktion noch ein TRandom übergeben.... aber was ist das und wie benutze ich das?
oder wie kann ich am besten echt gute zufallszahlen bei IInteger erstellen?
mfg Dano