Как отсортировать список?

← →
siriusP (2004-04-14 12:34) [0]

Подскажите алгоритм как отсортировать список, в котором лежит структура TRec.
Нужно, чтобы елементы шли по порядку
[0,0][1,0][0,1][1,1][0,2][1,2]...:
type
TRec = class
aCol: integer;
aRow: integer;
...
end;

TMyClass = class
FRec: TList;
...
Sort();
end;
...

Такая ф-ия неверная, в ней явно не хватает:
function CompareRec(Item1, Item2: Pointer): Integer;
begin
result:= CompareValue(TRec(Item1).aCol, TRec(Item2).aCol);
end;

procedure TMyClass.Sort();
begin
FRec.Sort(@CompareRec);
end;

Прошу помочь. Спасибо.

← →
Семен Сорокин © (2004-04-14 12:38) [1]

type
PRec = ^TRec;

function CompareRec(Item1, Item2: Pointer): Integer;
begin
result:= CompareValue(PRec(Item1)^.aCol, PRec(Item2)^.aCol);
end;

← →
Семен Сорокин © (2004-04-14 12:41) [2]

сорри,
вот так:
function CompareRec(Item1, Item2: Pointer): Integer; begin Result := CompareValue(PRec(Item1)^.aCol, PRec(Item2)^.aCol); if Result = 0 then Result := CompareValue(PRec(Item1)^.aRow, PRec(Item2)^.aRow) end;

← →
Курдль © (2004-04-14 12:43) [3]

function CompareRec(Item1, Item2: Pointer): Integer; begin result:= CompareValue(TRec(Item1).aCol, TRec(Item2).aCol); end; function CompareRec(Item1, Item2: Pointer): Integer; var ItPtr1, ItPtr2: ^TRec; begin ItPtr1 := Item1; ItPtr2 := Item2; if ItPtr1.Col > ItPtr2.Col then Result := 1 else if ItPtr1.Col = ItPtr2.Col then begin if ItPtr1.Row > ItPtr2.Row then Result := 1 else if ItPtr1.Row = ItPtr2.Row then Result := 0 else Result := -1; end else Result := -1; end; procedure TMyClass.Sort(); begin FRec.Sort(CompareRec); end;

← →
siriusP (2004-04-14 14:17) [4]

Премного благодарен.

Как отсортировать список? Найти похожие ветки