Главная страница
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.015 c
3-27393
T2
2003-09-17 20:03
2003.10.09
Удаление записей через AdoTable1


1-27467
meirman
2003-09-24 17:31
2003.10.09
Schema Object Model


1-27471
Relaxxx
2003-09-30 11:31
2003.10.09
Поиск в строке???


1-27465
LexaVV
2003-09-26 10:16
2003.10.09
Перестановки


3-27395
diokant
2003-09-18 15:05
2003.10.09
Как в MS SQL в триггере получить имя этой таблицы.