TListView Gruppen Problem (XP)

[tschinkes]

Füllen tu ich die Listview vorerst so:

Delphi-Quellcode:

// Create Group1
for i := 1 to table1.RecordCount do
  begin 
    ListItem := ListView1.Items.Add;
    ListItem.SubItems.Add(qr1.FieldbyName('Artist').asString);
    ListItem.SubItems.Add(qr1.FieldbyName('Titel').asString);
    ListItem.SubItems.Add(qr1.FieldbyName('Datum').asString);
  end;
  Randomize;

  SendMessage(ListView1.Handle, LVM_ENABLEGROUPVIEW, 1, 0);
for z1 := 1 to Table1.recordcount do
 Begin
  Gruppe := StringToOleStr(Qr1['Vollname']);
  FillChar(LvGroup, SizeOf(TLVGROUP), 0); 
  with LvGroup do 
  begin 
    cbSize := SizeOf(TLVGROUP); 
    mask := LVGF_HEADER or LVGF_ALIGN or LVGF_GROUPID;
    pszHeader := Gruppe;
    cchHeader := Length(LvGroup.pszHeader);
    iGroupIdL := J;
    uAlign := LVGA_HEADER_LEFT; 
  end; 
  SendMessage(ListView1.Handle, LVM_INSERTGROUP, j, Longint(@LvGroup));
 end;

  for I := 0 to ListView1.Items.Count - 1 do 
  begin 
    with LvItemA do 
    begin 
      FillChar(LvItemA, SizeOf(TLvItemA), 0); 
      mask := LVIF_GROUPID; 
      iItem := I; 
      iGroupId := J; 
    end; 
    SendMessage(ListView1.Handle, LVM_SETITEM, 0, Longint(@LvItemA)) 
  end;

Also sehr spotanisch nach Tutorial alla http://www.swissdelphicenter.ch/de/showcode.php?id=1782.

hab mir auch schon ein bissl aus dem MovieList Tutorial rausgesaugt, abber ich weiß einfach nicht wie ich es schaffe, die namen so in eine Schleife zu packen damit sie richtig angezeigt werden, und ich hab Probleme mit dem sotieren.
Dein genanntes Tutorial hab ich auch schon angeschaut, abber das ist vorerst mal ein bischen heftig viel für mich! Ich wüßte jetzt nicht wie ich da etwas für mich nutzen könnte, mit verbindung zu meiner datenbank.