Memofeld sortieren, brache hilfe!

[eClips2k]

Hey,

Ich versuche den Inhalt eines Memefeldes zu sortieren, hier ein Besipiel des Inhalts:

1;Belletristik;Kempowski, Walter;Uns gehts ja noch gold;München;;dtv
2;Jugend;Pressler, Mirjam;Novemberkatzen;Weinheim;1986;Beltz & Gelberg

Nun mein Problem, ich möchte diese Liste nach Titeln sortieren. Mein bisheriger Code sieht so aus:

SQL-Code:

procedure TfMain.Image9Click(Sender: TObject);
var
   i   : Integer;
   sortiert,x,y   : String;
begin
  For i:=0 to Memo1.Lines.Count-1 do begin
     x:=Memo1.Lines[i];
     y:=Memo1.Lines[i+1];
      If x > y then
        begin
        sortiert:=Memo1.Lines[i];
        Memo1.Lines[i]:=Memo1.Lines[i+1];
        Memo1.Lines[i+1]:=sortiert;
        end;
      end;
end;

Das Problem ist so greift er nur auf die am Begin stehenden Zahlen zu, wie komm ich an dem an 4ter Stelle stehenden Titel ran?
Würde mich über schnelle Hilfe freuen

Gruß eCLips

[freak4fun]

Ich halte das Memo für die falsche Komponente. Geeigneter wären ein Stringgrid / eine Listview.

[mkinzler]

Das Problem ist so greift er nur auf die am Begin stehenden Zahlen zu, wie komm ich an dem an 4ter Stelle stehenden Titel ran? Für einen Bubblesortstimmt zudem die Richtung nicht. (Blase von unten nach oben).

[eClips2k]

Mein Problem ist das er auf die am Anfang stehende Zahl zugreift 1;.... somit soritiert er nur nach Zahlen.
Ich möchte aber gerne nach Titel sortieren der an 4ter stelle in einer Memo.Lines[1] sagen wir mal steht.

Somit bräuchte ich etwas wie x:=Memo1.Lines[i],pos(Titel); so ca.^^

hoffe einer von euch weiß wies geht... danke schonmal

[mkinzler]

Dann musst du diesen Teil aus dem String extrahieren und jeweils den extrahierten Teil vergleichen.