Forum: Sonstige Fragen zu Delphi
Delphi
by TUX_der_Pinguin,
23. Apr 2009
Ich habe jetzt 2 Versuche gestartet der erste schlägt mit einer Zugriffsverletztung fehl.
//Dateien sortieren
countTo := Length(Files); //Änderung
k := countTo div 2;
while (k > 0) do begin
for i := 0 To countTo - k do begin
j := i;
Forum: Sonstige Fragen zu Delphi
Delphi
by TUX_der_Pinguin,
23. Apr 2009
Okay das mag ja alles sein, nur ging es mir anfangs ja darum ob der Sortieralgorythmus nun funktioniert bzw. wie muß der
lauten damit Shell-Sort egal bei der Anzahl von Elementen funktioniert.
Forum: Sonstige Fragen zu Delphi
Delphi
by TUX_der_Pinguin,
23. Apr 2009
Naja nur die halbe Anzahl also "Length(Files) div 2" bringt nichts, den dann tritt ein Fehler auf und das Programm bricht ab,
soweit ist die Routine schon korrekt das sie mit "High(Files) div 2" arbeitet. Vorraussetzung ist Index 0 im Array.
Und ob jetzt die Schrittweitenfolge suboptimal oder nicht ist, ist soweit ja Vernachlässigbar solange der Quellcode generell funktioniert.
Forum: Sonstige Fragen zu Delphi
Delphi
by TUX_der_Pinguin,
23. Apr 2009
Ich habe aus dem Delphi Buch (Delphi 5 - Grundlagen und Profiwissen, Amazon) die Sortierung Shell-Sort gefunden und die bereits für mehre Projekte verwendet.
Jedoch bin ich jetzt auf ein Problem gestoßen, alle Arrays die sortiert werden fangen bei 0 an, soweit scheint es mit der
Sortierung zu klappen, jedoch habe ich einen Fall das ein Array nur 2 Elemente enthält und jetzt stellt sich raus...