Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
7. Mär 2006
Die Sortierung müsste so aussehen:
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), strtoint(item2.SubItems) > 0) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
7. Mär 2006
Wenn du jetzt sio nett wärst und zu sagen, was nicht richtig ist, dann könnte man dir eventuell sogar helfen.
Siehe oben.