Array of tstringlist per quicksort sortieren

[Jan]

Hallo DP,
mein Problem schildert sich wie folgt:
Ich habe ein 2-dimensionales dynamisches array, welches so definiert ist:

Code:

workarray : array of tstringlist;

Und nun will ich anhand eines Kriteriums in den stringlists meinen array (z.B. workarray[i][2]) sortieren, undzwar per quicksort.
Ich sortiere also nicht einfach nur array[i] sondern ich sortiere array[i] anhand von dem was in array[i][2] steht.

Ich habe dazu den Code aus der DP-Code library für quicksort umgeschrieben, und erhalte dies:

Code:

Procedure tform1.QuickSort( l,r : Integer );
var i : Integer;
Begin
  If (r > l) Then
  Begin
    i:= Partition( l, r);
    QuickSort( l, i-1 );
    QuickSort( i+1, r );
  End;
End;

Function tform1.Partition( l,r : Integer ) : Integer;
var i,j : Integer;
    v     : string;
    t     : tstringlist;
Begin
  t:=tstringlist.Create;
  v:= workarray[r][1];
  i:= l-1;
  j:= r;
  Repeat
    Repeat inc( i ); Until (workarray[i][1] >= v);
    Repeat dec( j ); Until (workarray[j][1] <= v);
    t:= workarray[i]; workarray[i]:= workarray[j]; workarray[j]:= t;
  Until (j<=i);

  workarray[j]:= workarray[i]; workarray[i]:= workarray[r]; workarray[r]:= t;
  Result:= i;
  t.free;
End;

Im Moment bekomme ich einen Fehler, der so heisst:

"Listenindex überschreitet das Maximum (1)".

könnte mir vielleicht jemand sagen woher das kommt? Und wenn ich das weiss, koennte mir dann vielleicht auch noch jemand sagen, ob das so, wie ich das da geschrieben habe überhaupt klappen kann?

Gruß
Jan

[nailor]

Ich bin zu faul nachzuschauen, ob sich der Fehler nicht schon so klären liese, aber es wäre auf jeden Fall nett zu wissen, wo der Fehler GENAU auftritt, und was für eine Stringlist du als Input gibst.

[Jan]

Hallo Nailor,
also ich habe keine Ahnung wo der Fehler auftritt, weil mir mein Delphi das nur bei jedem 10. Error anzeigt.

Und bezüglich der Eingabe:

workarray : array of tstringlist;

das sind mehrere stringlists, die jeweils 9 einträge haben, und ich will die stringlists anhand dessen, was bei jeder stringlist an einer bestimmten stelle steht sortieren.
Gruß
Jan

[Jan]

ich muss mich korrigieren,
der fehler tritt hier auf:

Code:

Repeat dec( j ); Until (workarray[j][1] <= v);

komischerweise aber nicht in der zeile direkt da drüber, obwohl die ja eigentlich genau das gleiche nur andersrum macht.

der Fehler heisst jetzt ausserdem noch: "zugriffsverletzung bei der addresse blablabla"

Greetz
Jan

[nailor]

Willst du eigentlich Strings/eine Stringlist sortieren, oder wirklich einen

Delphi-Quellcode:

var workarray: array of TStringList ???

[Jan]

ich will den array sortieren, der die stringlists beinhaltet.

[nailor]

wa, mein Beitrag grade war so falsch, dass ich ihn mal lieber weggemacht habe, um nicht Verwirrung zu stiften.

---

neuer, sinvoller Beitrag: und welche Stringlist soll am weitesten nach vorne? Beschreib mal in Worten.

[Jan]

Hallöchen,
weiss da keiner eine Antwort drauf, oder habt ihr einfach alle keine Lust? :[
brauche da echt Hilfe, weil ohne selbige steige ich da nicht im geringsten durch.
Danke
Jan

[Luckie]

Na, irgendwo stimmt was mit deinen Indizes nicht. Überprüf die noch mal. Geh mal mit F7 durch dein QuickSort durch.

[Jan]

so, ich bin jetzt die ganzen for-schleifen mal mit f7 durchgegangen und er bleibt immernoch bei:

Code:

Repeat dec( j ); Until (workarray[j][1] <= v);

stehen.
mit einer access violation.
Ich glaube auch nicht´, dass da ein echter Code-fehler drin ist, schliesslich kann ich das Programm ja auch kompilieren und alles, aber ich würde gerne wissen, ob man das so, wie ich das gecode habe überhaupt machen kann, dazu muesste mal jemand den code lesen wenn er zeit hat, und mir dann seine ergebnisse mitteilen. Wäre echt net das.
Gruß
Jan