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

Вниз

как реализовать Обращению к объекту?   Найти похожие ветки 

 
Junior   (2004-11-22 13:48) [0]

Сдравствуйте!
Подскажите как быть!
1) создаю объект типа точка с координатами х,у

type
 TPoint = class
 private
 public
   X,Y : real;
end;

var
 P1, P2, PP1, PP2, PP3, PP4 : TPoint;

2) В приложении необходимо обращаться к одной из точек, заранее не известно к какой. При использовании компонент используется FindComponent, что делать в этом случае? Как я понял тут нужно другая функция. Если можно, с примером. Спасибо!


 
Александр Иванов ©   (2004-11-22 13:57) [1]

Массив точек сооруди.
var P : array[1..n] of TPoint.
Там и ищи.
Можно использовать TList, если неизвестно количество точек.


 
Skier ©   (2004-11-22 13:59) [2]

>Junior   (22.11.04 13:48)  
На мой вкус не за чем из-за двух полей создавать объект. Вполне хватит и записи...


 
begin...end ©   (2004-11-22 13:59) [3]


> [1] Александр Иванов ©   (22.11.04 13:57)


> Можно использовать TList, если неизвестно количество точек.

...или TObjectList.

Хотя пока не ясно, зачем этот TPoint делать классом.


 
begin...end ©   (2004-11-22 14:06) [4]


> [2] Skier ©   (22.11.04 13:59)


> На мой вкус не за чем из-за двух полей создавать объект.
> Вполне хватит и записи...

На мой - тоже. Помнится, тут как-то была дискуссия про динамически создаваемые record"ы и их хранение в TList. Там один товарищ высказался в таком духе: чем мучиться с New/Dispose, давайте лучше из record"а сделаем класс, а его экземпляры будем засовывать в TObjectList; аргументируя это тем, что в TObjectList можно не заботиться об освобождении объекта при удалении из списка. :-)


 
Junior   (2004-11-22 14:23) [5]

> На мой вкус не за чем из-за двух полей создавать объект.

Вопрос принципиальный, количество полей может вырасти, хотелось узнать как вообще делается в таких случаях.

Всем спасибо за внимание! :-)


 
Skier ©   (2004-11-22 14:25) [6]

>Junior   (22.11.04 14:23) [5]

> Вопрос принципиальный, количество полей может вырасти,

На сколько ?


 
Junior   (2004-11-22 14:27) [7]

> Хотя пока не ясно, зачем этот TPoint делать классом.

Вопрос в догонку,когда целесообразно использовать классы

Спасибо!


 
begin...end ©   (2004-11-22 14:29) [8]


> [7] Junior   (22.11.04 14:27)


> Вопрос в догонку,когда целесообразно использовать классы

Как минимум - когда в классе будут ещё и методы, работающие с данными, находящимися в полях.


 
Мастер ©   (2004-11-22 14:30) [9]

Junior   (22.11.04 14:27) [7]

Если приведешь пример, как ты их используешь, то и ответы будут.


 
Junior   (2004-11-22 14:31) [10]

2 Skier
> На сколько ?
в данном примере до 5, а вообще я на стадии обучения :-)


 
Skier ©   (2004-11-22 14:35) [11]

>Junior   (22.11.04 14:31) [10]
Обрати внимание на [8]



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

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

Наверх




Память: 0.46 MB
Время: 0.079 c
3-1099857662
DimDim
2004-11-07 23:01
2004.12.05
Запрос на изменение структуры таблицы


6-1096296123
The X
2004-09-27 18:42
2004.12.05
Как убрать стандартные сообщения NMSMTP и NMPOP3 об ошибках?


1-1101228371
n-neo
2004-11-23 19:46
2004.12.05
Работа с буфером обмена...


14-1100534104
KilkennyCat
2004-11-15 18:55
2004.12.05
Завтра в Петербургском СКК начинают работать несколько выставок.


1-1101271504
DDDeN
2004-11-24 07:45
2004.12.05
Получить строку из TStringGrid





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский