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.