TObjectList

[Taladan]

So nu hab ich folgendes gemacht, aber ich mach wohl irgendwas falsch

Delphi-Quellcode:

function CompareID(Item1, Item2: Pointer): Integer;
begin
   Result := CompareText((Item1 as TName).Name, (Item2 as TName).Name);
end;

procedure TNamenBox.HeaderControl1SectionClick(HeaderControl: THeaderControl;
  Section: THeaderSection);
begin
  case Section.ID of
  0: begin
        NamenList.Sort(@CompareID);
     end;
  end;
end;