Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.03.21;
Скачать: CL | DM;

Вниз

Приведение типов   Найти похожие ветки 

 
webpauk ©   (2010-01-19 14:37) [0]

Могую ли я в конструкцию TStringList.AddObject("Text", fObj) как-то запихнуть fObj=Pointer(Point(x, y))?


 
Игорь Шевченко ©   (2010-01-19 14:45) [1]

не можешь


 
webpauk ©   (2010-01-19 14:46) [2]

спсб


 
Юрий Зотов ©   (2010-01-19 14:55) [3]

Но если использовать PointToSmallPoint, то может и получиться.


 
oxffff ©   (2010-01-19 14:59) [4]


> webpauk ©   (19.01.10 14:37)  
> Могую ли я в конструкцию TStringList.AddObject("Text", fObj)
> как-то запихнуть fObj=Pointer(Point(x, y))?


Не понятно, что ты хочешь запихнуть указатель или значение.
В любом случае можно. Используй аналог boxing из .NET с детерминированным освобождением.


 
Jeer ©   (2010-01-19 15:31) [5]


> AddObject("Text", fObj)


Сюда можно "запихнуть" любое 32-х разрядное число.
Чем оно будет являться - решать тебе.
Это может быть указатель, это может быть композитная структура, например 16-ти разрядные координаты, это может быть число в плавающем формате и т.п.


 
Демо ©   (2010-01-19 17:45) [6]


> webpauk ©   (19.01.10 14:37) 
> Могую ли я в конструкцию TStringList.AddObject("Text", fObj)
> как-то запихнуть fObj=Pointer(Point(x, y))?


TPoint - обычная структура, поэтому после небольших изменений в описании и методах работы с ним можно. Почему нет?

PPoint=^TPoint
var
 pp: PPoint;
begin
 New(pp);
 StringList.AddObject("Text", pp);
//Работаем

//Здесь освобождаем память:

 Dispose(PPoint(StringList.Data[i]));



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
15-1262069352
БарЛог
2009-12-29 09:49
2010.03.21
пример.испытание


15-1262122484
Dmytry2010
2009-12-30 00:34
2010.03.21
Работа с сокетами TCP на Pascale под MS DOS


3-1236243330
ford
2009-03-05 11:55
2010.03.21
проблемма с вычиткой BLOB полей из базы данных


15-1261956446
KilkennyCat
2009-12-28 02:27
2010.03.21
Забавный Уota-сервис


2-1263902707
12345
2010-01-19 15:05
2010.03.21
Рабата с Canvas TImage