VPF::Работа с указателями - Форум программистов

Keeper89

Дата 17.8.2010, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Доброго времени суток.

Имеется следующие переменные:

Код


FDantzigProblem: TDantzigProblem;
FSimplexProblems: TObjectList<TSimplexProblem>;
FSolutionProblem: ^TLPProblem;

где TLPProblem - общий предок для TDantzigProblem и TSimplexProblem.

Каким образом можно "забить" в указатель FSolutionProblem ссылку на FDantzigProblem или один из FSimplexProblems? И как потом обратится через него к методам задачи?

Спасибо.

Это сообщение отредактировал(а) Keeper89 - 17.8.2010, 14:52

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Frees

Дата 17.8.2010, 15:14 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Код


FDantzigProblem: TDantzigProblem;
FSimplexProblems: TObjectList<TSimplexProblem>;
FSolutionProblem: TLPProblem;


FSolutionProblem := FDantzigProblem; //"забиваем" ссылку
// FSolutionProblem := FSimplexProblems[n];

//обращаемся

  if FSolutionProblem is TDantzigProblem then
    TDantzigProblem(FSolutionProblem).DantzigProblemText := 'text'
    else
    if FSolutionProblem is TSimplexProblem then
        TSimplexProblem(FSolutionProblem).SimplexProblemText := 'text';

Добавлено через 3 минуты и 49 секунд
если нужен строго

Код


FSolutionProblem: ^TLPProblem;

то

Код


FSolutionProblem := Pointer(FDantzigProblem); //"забиваем" ссылку
// FSolutionProblem := Pointer(FSimplexProblems[n]);

//обращаемся

  if TLPProblem(FSolutionProblem) is TDantzigProblem then
    TDantzigProblem(FSolutionProblem).DantzigProblemText := 'text'
    else
    if TLPProblem(FSolutionProblem) is TSimplexProblem then
        TSimplexProblem(FSolutionProblem).SimplexProblemText := 'text';

Это сообщение отредактировал(а) Frees - 17.8.2010, 15:16

--------------------

Кольцов Виктор Владимирович

Keeper89

Дата 17.8.2010, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Frees, а что будет экономичнее в смысле расходования памяти:

Код


FSolutionProblem: ^TLPProblem;

или

Код


FSolutionProblem: TLPProblem;

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Frees

Дата 17.8.2010, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

мне кажется одинаково
FSolutionProblem: TLPProblem; - тоже ссылка

Добавлено через 29 секунд
FSolutionProblem: ^TLPProblem; - 4 байта
FSolutionProblem: TLPProblem; - 4 байта

--------------------

Кольцов Виктор Владимирович

Keeper89

Дата 17.8.2010, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

ОК, спасибо!

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Snowy

Дата 18.8.2010, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

^TLPProblem - указатель на указатель.
так что можно и напрямую использовать.
а то, что работает одинаково - дельфи сама указатель переволит в объект.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »