Forum: Multimedia
Delphi
by gammatester,
27. Aug 2009
Die Bedingung der While-Schleife lautet nicht "<=" sondern "<" und es macht BUMM! wie in meinem Kommentar beschrieben. Aber natürlich nur wenn Rangecheck eingeschaltet ist (was bei der leider mal wieder nicht der Fall ist).
Gammatester
PS: Scheint so, als wenn der "Schrott in Quicksort" notwendig ist, weil Du eine ungewöhnliche Implementation hats, die vor der While-Schleife i := l-1; und...
Forum: Multimedia
Delphi
by gammatester,
26. Aug 2009
Hallo, gut daß Du Dich gemeldet hast. p80286's Beitrag hat bei mir schon fast ein schlechtes Gewissen erzeugt :wink:
Allerdings hat sich Dein Programmier- und Posting-Stil nicht geändert. Was ist so schwierig daran, .pas + .dfm + .dpr in ein ZIP zu packen :?: Ich befürchte fast, daß das wieder mal nicht der eigentliche Code ist. Aber um etwas guten Willen zu zeigen, gleich ohne Umschweife...
Forum: Multimedia
Delphi
by gammatester,
26. Aug 2009
Das glaube ich nicht. Diese Art von "Diskussion" haben wir schon in mindestens zwei weiteren Threads gehabt. Außerdem sind ja jetzt auch konkrete Hinweise auf die Bugs vorhanden. Leider erhält man manchmal kein Rückmeldung, ob die Probleme beseitigt sind, obwohl ich das in diesem Fall bezweifele.
Gruß Gammatester
Forum: Multimedia
Delphi
by gammatester,
25. Aug 2009
Hast Du eigentlich irgendeinen Plan? Oder 'ne Ahnung, was das bedeuten würde? (Siehe Punkt 2 unten).
So langsam fühle ich mich verarscht! Das ist doch fast wieder der gleiche Unsinnscode wie aus Deinem ersten Beitrag. Was hast Du uns denn in der Zwischenzeit gezeigt?
Und selbstverständlich erhalte ich einen Rangecheckfehler beim Aufruf von quicksort(1,length(wb)) in Zeile 113.
Wie in...
Forum: Multimedia
Delphi
by gammatester,
24. Aug 2009
Nein! Der ist in auch Quicksort:PROCEDURE tform1.Quicksort (l,r: longint);
VAR pivot,b,i,j : longint; sowie in der von mit gezeigten Zeile. Und vermutlich völlig falsch - kein Wunder wenn er 'einfach so' von Bubblesort herrührt!
Nein! Hast Du Debugging eingeschaltet? Sind blaue Punkte neben den Sourcecodezeilen? Hast Du Rangecheck eingeschaltet? Hast "Stop on Delphi Execptions" in den...
Forum: Multimedia
Delphi
by gammatester,
24. Aug 2009
Polemik beiseite: Wenn man den nicht übersetzbaren Code entfernt, die StrToInt-Problematik mit fixen Werten (zB 1000 für max, und setlength(ar,10) umschifft, RangeCheck und Debugging einschaltet und compiliert, gibt's als ersten eine Warnung:
Unit1.pas: Variable 'b' might not have been initialized
ar:=ar;
ar:=b;
Was soll das? Willst Du da noch mal tauschen und hast eine Zeile...
Forum: Multimedia
Delphi
by gammatester,
24. Aug 2009
Vielleicht solltest Du den Code (wie oben schon 'mal frech vorgeschlagen wurde) erst einmal so schreiben, daß man ihn compilieren kann. Wenn Du ihn nur selbst benutzt, mußt Du ihn ja auch nicht vernünftig formatieren (ist nur was für Schwächlinge). Dann kanst Du auch den Debugger benutzen und feststellen, was die Zugriffsverletzungen erzeugt. Kleiner Hinweis: ein Fehler in einer Prozedur kann...
Forum: Multimedia
Delphi
by gammatester,
21. Aug 2009
Das sollte sich eigentlich von selbst verstehen: Benutzte den Debugger und schalte alle Checks ein, insbesondere Rangecheck, Overflowcheck.
Ich hätte mindestens drei offensichtliche Bugs/Anmerkungen, aber nach dem CRT/RSA-Desaster warte ich lieber erst mal ab, ob überhaupt Fortschritte sichtbar sind.
Gammatester