Классы

← →
IgorKuz (2003-09-29 13:18) [0]

type
TMyClass1= class(TList)
...
end;
TMyClass2 = class
property DD : TMyClass1;
procedure MySort;
function ForSort(Item1,Item2 : pointer):integer;
end;
implementation

procedure TMyClass2.MySort;
begin
DD.Sort(ForSort); // так не работает в принципе понятно почему // а как сделать чтоб работало ?
end;

← →
Skier (2003-09-29 13:24) [1]

function ForSort(Item1, Item2: Pointer): Integer; //не метод !
begin
//..............
end;

procedure TMyClass2.MySort;
begin
DD.Sort(@ForSort);
end;

← →
HolACost! (2003-09-29 13:25) [2]

TMyClass1= class(TList) ... end; TMyClass2 = class private FDD:TMyClass1; public constructor Create(..); override; property DD : TMyClass1 read FDD write FDD; // это надо немного переделать procedure MySort; function ForSort(Item1,Item2 : pointer):integer; end; implementation constructor TMyClass2.Create(...) begin inherited Create(..); FDD:=TMyClass1.Create(..); end; destructor TMyClass2.Destroy(); begin FDD.Free; end; procedure TMyClass2.MySort; begin DD.Sort(ForSort); // так не работает в принципе понятно почему // а как сделать чтоб работало ? end;

← →
Игорь Шевченко (2003-09-29 13:25) [3]

А...процедура Sort должна быть не методом класса.

← →
HolACost! (2003-09-29 13:26) [4]

да-да! @

← →
Игорь Шевченко (2003-09-29 13:32) [5]

Ошибся, не Sort, а функция ListSortCompare должна быть не методом класса

Классы Найти похожие ветки