TList.Sort

[Bjoerk]

Geht das nicht mehr mit dem as casten? Ich finde die richtige Syntax nicht (mehr).

TItem ist ein Record

Delphi-Quellcode:

type
  TItem = Record
    FileName: string;
    FileSize: integer;
  end;

Delphi-Quellcode:

function FileSizeCompare (Item1, Item2: Pointer): integer;
begin
  Result:= 0;
  if (Item1 as TItem).FileSize > (Item2 as TItem).FileSize then
    Result:= 1
  else
    if (Item1 as TItem).FileSize < (Item2 as TItem).FileSize then
      Result:= -1
end;


function FileNameCompare (Item1, Item2: Pointer): integer;
begin
  Result:= 0;
  if (Item1 as TItem).FileName > (Item2 as TItem).FileName then
    Result:= 1
  else
    if (Item1 as TItem).FileName < (Item2 as TItem).FileName then
      Result:= -1
end;

  List1.Sort(FileNameCompare);