Problem mit CustomSort in Listview

[kaiser1401]

Hallo Leute,

ich habe ein kleines Problem: Ich möchte eine Aufgabenverwaltung für mehrere Benutzer schreiben. Diese Aufgaben sollen auch auf einer Übersicht Sortiert nach benutzer und Priorität sortiert werden.

Ich habe mir für die Listview eine Sortierroutine geschrieben die aber nicht so arbeitet wie ich das gerne hätte und ich weis ncith wieso:-(

Die Routine:

Delphi-Quellcode:

 function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall;
   var prio1,prio2:integer;
  begin
    if Item1.Caption <> Item2.Caption then
     Result:=CompareText(Item1.Caption,Item2.Caption)
    else
     begin
      prio1:=strtoint(item1.SubItems[0]);
      prio2:=strtoint(item2.SubItems[0]);
      result:=prio2-prio1;
     end;
    if data = 1 then Result := -Result;
  end;

Der Aufruf:

Delphi-Quellcode:

ListView1.CustomSort(@AuswertungSortProc, 0);
   aufg := Listview1.Items.Add;
   aufg.Caption:=user;
   aufg.SubItems.Add(prio);
   aufg.SubItems.Add(text);

Das Ergebnis sieht dann so aus:

Benutzer | Prio | Text
user1 | 1200 | aufgabe abce...
user1 | 200 | aufgabe 123
user1 | 100 | aufgabe 345
user2 | 120 | aufgebe 876
user1 | 200 | aufgabe cde

sollte aber so aussehen:

Benutzer | Prio | Text
user1 | 1200 | aufgabe abce...
user1 | 200 | aufgabe 123
user1 | 200 | aufgabe cde
user1 | 100 | aufgabe 345
user2 | 120 | aufgebe 876


Kann mir jemand sagen was ich falsch mache??

Ich weis, dass es schon viele Beiträge zum sortieren gibt, aber irgendiwe finde ich da keine Lösung auf mein Problem:-(

dank schon mal im vorraus

-Kaiser

[SnuffMaster23]

Hi Kaiser1401,

ich hab deinen Code zwar nicht so genau gelesen (du mögest mir doch bitte verzeihen, kann mit fremdem Code meist wenig anfangen :) ) und bin auch nicht so vertraut mit TListView, aber ich würde sagen, sortier erstmal nur nach User und dann jeden User-Block für sich nach Priorität.

Snuffi

[shmia]

Delphi-Quellcode:

function ComparePrio(a,b:integer);
begin
   if a > b then
      result := 1
   else if a = b then
      result := 0
   else
      Result := -1;
end;

function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall; 
   var prio1,prio2:integer; 
begin 
   Result:=CompareText(Item1.Caption,Item2.Caption) 
   if Result = 0 then
      Result := ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]));
//    if data = 1 then Result := -Result;  // das würde ich erst mal auskommentieren, sicher ist sicher
end;

[kaiser1401]

Danke schonmal. Werd es nachher mal ausprobieren.

[alzaimar]

Das mit Deinem Aufruf ist doch falsch. Die Customsortmethode sortiert nur den Inhalt einer Listview. Du musst doch nach jedem 'Add' die Liste neu sortieren. Oder, wenn Du mehrere Items einfügen willst, am Ende des Einfügevorganges.

[kaiser1401]

Mh, ich hab es jetzt mal mit dem source von shmia ausprobiert. das ergebnis ist zwar etwas anders, aber richtig ist es noch nciht.

@alzaimar: Auch wennn ich die CustomSort nach jedem Punkt den ich einfüge aufrufe bekomme ich kein richtiges Ergebnis. :-(

hat noch jemand eine idee? weiß nämlich absolut nicht warum das so nicht funktioniert.

[Luckie]

Zitat:

Zitat von kaiser1401

Mh, ich hab es jetzt mal mit dem source von shmia ausprobiert. das ergebnis ist zwar etwas anders, aber richtig ist es noch nciht.

Wenn du jetzt sio nett wärst und zu sagen, was nicht richtig ist, dann könnte man dir eventuell sogar helfen.

Zitat:

hat noch jemand eine idee? weiß nämlich absolut nicht warum das so nicht funktioniert.

Siehe oben.

[kaiser1401]

Zitat:

Zitat von kaiser1401

Das Ergebnis sieht dann so aus:

Benutzer | Prio | Text
user1 | 1200 | aufgabe abce...
user1 | 200 | aufgabe 123
user1 | 100 | aufgabe 345
user2 | 120 | aufgebe 876
user1 | 200 | aufgabe cde

sollte aber so aussehen:

Benutzer | Prio | Text
user1 | 1200 | aufgabe abce...
user1 | 200 | aufgabe 123
user1 | 200 | aufgabe cde
user1 | 100 | aufgabe 345
user2 | 120 | aufgebe 876

Das was sich jetzt geändert hat ist, das im Ergebnis (oberer block) Zeile 3 und 4 getauscht sind. Also user2 mittig einsortiert wird.

Ich habe es mal versucht jeweils eine sortierung im source auszuommentieren.

=> Sortierung nur nach user funktioniert einwandfrei
=> Sortierung nur nach prio funktioniert einwandfrei

Aber warum klappt das nicht zusammen :?

[alzaimar]

Mach es so:
Schreibe ein Beispielprojekt, das nicht so funktioniert, wie Du es Dir vorstellst und poste das hier. Dann finden wir den Fehler. Garantiert.

[Luckie]

Die Sortierung müsste so aussehen:

Delphi-Quellcode:

function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall;
   var prio1,prio2:integer;
var
  res: Integer;
begin
   res := CompareText(Item1.Caption,Item2.Caption)
   if (res = 0) and (ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]) > 0) then
      Result := ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]))
   else
     Result := res;
end;

[alzaimar]

Sehr geehrter Herr Kaiser,

also bei mir funktionierts....

Delphi-Quellcode:

Function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall;
Var
  prio1, prio2: integer;

Begin
  If Item1.Caption <> Item2.Caption Then
    Result := CompareText(Item1.Caption, Item2.Caption)
  Else Begin
    prio1 := strtoint(item1.SubItems[0]);
    prio2 := strtoint(item2.SubItems[0]);
    result := prio2 - prio1;
  End;
  If data = 1 Then Result := -Result;
End;

Procedure TForm1.btClick(Sender: TObject);

  Procedure _Add(aUser, aprio, aAufgabe: String);
  Begin
    With lvTest.Items.Add Do Begin
      Caption := aUser;
      SubItems.Add(aPrio);
      SubItems.Add(aAufgabe);
    End;
  End;

Begin
  _Add('user2', '120', 'aufgebe 876');
  _Add('user1', '1200', 'aufgabe abce...');
  _Add('user1', '200', 'aufgabe 123');
  _Add('user1', '100', 'aufgabe 345');
  _Add('user1', '200', 'aufgabe cde');
  lvTest.CustomSort(@AuswertungSortProc, 0);
End;

Nach user aufsteigend, nach Prio absteigend. Wo ist jetzt Dein Problem?

[edit] Code verhübscht [/edit]

[kaiser1401]

siht eigentlich nciht viel anders aus als bei mir würd ich sagen.
Ich hab hier mal einen beispiel source der nciht das tut was er soll:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function ComparePrio(a,b:integer):integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var aufg : TListItem;

 function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall;
   var prio1,prio2:integer;
 begin
   Result:=CompareText(Item1.Caption,Item2.Caption);
   result:= 0;
   if Result = 0 then
    prio1:=strtoint(item1.SubItems[0]);
    prio2:=strtoint(item2.SubItems[0]);
    Result := -Form1.ComparePrio(prio1,prio2);
    //if data = 1 then Result := -Result;
  end;

begin
  // Das hier ist eigentlich eine schleife, aber im Beispiel schreibe ich es mal hard rein:
  ListView1.CustomSort(@AuswertungSortProc, 0);
  aufg := Listview1.Items.Add;
  aufg.Caption:='user1';
  aufg.SubItems.Add('200');
  aufg.SubItems.Add('text1234');
  ListView1.Refresh;
  // Schleifenende
    ListView1.CustomSort(@AuswertungSortProc, 0);
  aufg := Listview1.Items.Add;
  aufg.Caption:='user1';
  aufg.SubItems.Add('1200');
  aufg.SubItems.Add('text1234');
  ListView1.Refresh;

  ListView1.CustomSort(@AuswertungSortProc, 0);
  aufg := Listview1.Items.Add;
  aufg.Caption:='user1';
  aufg.SubItems.Add('100');
  aufg.SubItems.Add('text1234');
  ListView1.Refresh;

  ListView1.CustomSort(@AuswertungSortProc, 0);
  aufg := Listview1.Items.Add;
  aufg.Caption:='user2';
  aufg.SubItems.Add('120');
  aufg.SubItems.Add('text1234');
  ListView1.Refresh;

  ListView1.CustomSort(@AuswertungSortProc, 0);
  aufg := Listview1.Items.Add;
  aufg.Caption:='user1';
  aufg.SubItems.Add('200');
  aufg.SubItems.Add('text1234');
  ListView1.Refresh;

end;

function TForm1.ComparePrio(a,b:integer):integer;
begin
   if a > b then
      result := 1
   else if a = b then
      result := 0
   else
      Result := -1;
end;

end.

[xaromz]

Hallo,

schau Dir mal Zeile 35 an. Dann schmeiss diese weg.

Gruß
xaromz

[kaiser1401]

sorry, hatte ich vergessen wieder rauszunehmen, funktioniert aber immer noch nicht:

user2 | 120
user1 | 1200
user1 | 200
user1 | 100
user1 | 200

werd aber mal eben das von Luckie ausprobieren. hatte ich grade nicht gesehen :oops:

[kaiser1401]

*freu* :-D Das von Luckie hat funktioniert. Dank euch allen für die bemühungen.

bis dann
Kaiser

[alzaimar]

Zitat:

Zitat von kaiser1401

siht eigentlich nciht viel anders aus als bei mir würd ich sagen.

Doch, denn Du fügst user2 ein, sortierst anschließend aber nicht...