Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.09;
Скачать: 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 вся ветка

Текущий архив: 2003.10.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-27356
gal
2003-09-19 08:32
2003.10.09
работа с БД


4-27784
AGGRESSOR
2003-08-04 12:49
2003.10.09
VK_ problem


1-27520
R
2003-09-30 02:00
2003.10.09
Какое сообщение посылает Win и посылает ли вообще при


3-27343
MJ
2003-09-19 23:18
2003.10.09
динамический запрос


14-27700
hawkins
2003-09-22 06:48
2003.10.09
почему у меня в Delphi6 в help-е предметный указатель пустой?