Скачать: CL | DM;

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

← →
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 должна быть не методом класса

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c