Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Gde vziat self??? Vopros skoree po Object Pascal.   Найти похожие ветки 

 
yaJohn   (2002-01-17 11:50) [0]

Pishetsia komponent soderjashiy TList.

TOnCompareEvent = procedure(Item1, Item2: Pointer; var Res: Integer) of object;

TMyComp = class (TComponent)
private
FOnCompare: TOnCompareEvent;
List: TList;
public
constructor Create
procedure Sort;
published
OnCompare: TOnCompareEvent read FOnCompare write FOnCompare;
...
end;

....


TMyComp.Create
begin
List:=TList.Create;
end;

A teper hotim List otsortirovat. Logichno usat" List.Sort. No ey nujna TListSortCompare = function (Item1, Item2: Pointer): Integer; prichem ona doljna bit globalnoy. A iz nee nujno vizivat OnCompare. No OnCompare priviazana k ekzempliaru TMyComp, o kotorom v globalnoy procedure i slichat ne slichali (i eto pravilno :).
Variant hranenia ssilki na TMyComp v kajdom iteme iz List ne prohodit (itemi v obshem sluchae chujie, naprimer standartnie komponenti).
I kak bit"? Gde vziat Self v globalnoy procedure???


 
Johnny Smith   (2002-01-17 13:43) [1]

Очень просто: где-нибудь в Item объявить ссылку на Self


 
yaJohn   (2002-01-17 14:49) [2]

2 Johnny Smith
Eshe raz: Variant hranenia ssilki na TMyComp v kajdom iteme iz List ne prohodit. Itemi sozdautsia i dobavliautsia ne mnoy.


 
vuk   (2002-01-17 14:56) [3]

Постройте своего наследника от TList, напишите в нем сортировку такую, как Вам нужно и не мучайтесь. Делов-то на 5 минут. :o)


 
Набережных С.   (2002-01-17 17:35) [4]

В секции implementation объявить
threadvar MyComp: TMyComp;
а List.Sort вызывать так:
procedure Sort
begin
MyComp:=self;
List.Sort(SortFunction);
end;
И еще: в TOnCompareEvent не помешает добавить Sender: TObject или типа того.


 
yaJohn   (2002-01-17 18:19) [5]

2 Набережных С
Vek jivi vek uchis"..... Ne znal pro threadvar. A ved" kakraz to chto nujno!!! Spasibo!


 
vuk   (2002-01-17 18:31) [6]

>A ved" kakraz to chto nujno!!! Spasibo!
Не совсем то (imho). Как это будет вести себя если у Вас будет несколько экземпляров? Да и мало ли что выполняется в SortFunctio...
Написание своего метода сортировки надежнее хотя бы потому, что не нужно помнить о различных переменных вне класса. Опять же imho.



 
Набережных С.   (2002-01-17 20:49) [7]

Сбой будет только в одном случае: если в обработчике OnCompare будет вызван метод Sort другого экземпляра данного класса. Вероятность невелика, но и не нулевая. Приемлимость зависит от назначения компонента - для конкретной задачи или для широких масс, но более безопасного способа получить Self в глобальной процедуре предопределенного типа(а это и спрашивалось) не существует. А переписать TList.Sort действительно не сложно,
или вообще отказаться от него, реализовав сортировку в методе
самого компонента.


 
vuk   (2002-01-17 21:21) [8]

>Сбой будет только в одном случае: если в обработчике OnCompare
>будет вызван метод Sort другого экземпляра данного класса
Я именно этот случай и имел в виду.

>Приемлимость зависит от назначения компонента - для конкретной
>задачи или для широких масс,
То есть себе любимому не возбраняется и свинью подложить? :o)



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

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.004 c
1-8932
Станислав
2002-01-16 15:36
2002.02.04
Большие числа


1-8824
MJH
2002-01-19 18:17
2002.02.04
AnimatedMenus2000


1-8945
kserg@ukr.net
2002-01-18 13:12
2002.02.04
Как программно перевести фокус в ячейку StringGrid.Cells


3-8794
Godfather
2002-01-08 14:13
2002.02.04
Кодировка 1251 в BDE


1-8864
Ольга
2002-01-18 12:39
2002.02.04
ListBox-ы и Edit-ы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский