Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Pointer & Function, передача через функцию адреса 
:(
    Опции темы
gesper
Дата 4.11.2010, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


Профиль
Группа: Участник
Сообщений: 183
Регистрация: 23.2.2005

Репутация: 1
Всего: 2
Нужна помощь, две функции есть.
Если делаю все по справке, то ничего не работает, а через задницу, работает но плохо.....

вобщем:

первая функция получает указатель на переменну типа TMyItem
и передает его другой функции
Код

PMyItem=^TMyItem;


Ptr:PMyItem;
Ptr:=MyItem.GetSelfAdress;

Myfunction2(Ptr);

Showmessage(Ptr.text); // работает!!! напишет значение



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

....
другой пример:
Код

procedure TForm.AddItemToVST(ParentNode: PVirtualNode;PItem: pointer);
....
AddItemToVST(vstGroups.RootNode, addr(tree.Items[i]));  - не работает
AddItemToVST(vstGroups.RootNode, tree.Items[i]);  -  работает



хотя по мануалу Addr() должен возвращать адрес, т.е. pointer

как мне взять адрес переменной item из списка items[i]..... и передавать его в функциях??


Это сообщение отредактировал(а) gesper - 5.11.2010, 00:26
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
CodeMonkey
Дата 5.11.2010, 09:52 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 29
Всего: 89
О боже.

Срочно читать мат-часть.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
gesper
Дата 6.11.2010, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


Профиль
Группа: Участник
Сообщений: 183
Регистрация: 23.2.2005

Репутация: 1
Всего: 2
Цитата(CodeMonkey @ 5.11.2010,  09:52)
О боже.

Срочно читать мат-часть.

Спасиб за статейку, кое что новое нашел там.

PS: Из богов мены выперли, так что приходится зарабатывать на хлеб...
"... указатели повсюду, даже если вы их не видите."
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
gesper
Дата 6.11.2010, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Shарфик"
*


Профиль
Группа: Участник
Сообщений: 183
Регистрация: 23.2.2005

Репутация: 1
Всего: 2
хм.. прочитал статью. вроде стало понятно, только вот компилятор посылает нафиг....

Код

procedure SetBit(var Int: Integer; Bit: Integer);
begin
  ...
end;
 
...
 
var
  Int: Integer;
  Ptr: PInteger;
  Arr: array of Integer;
begin
  // Инициализация Int, Ptr и Arr не показана...
  SetBit(Ptr^, 3);    // Передаётся сам Ptr
  SetBit(Arr[2], 11); // Передаётся @Arr[2]
  SetBit(Int, 7);     // Передаётся @Int


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

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

Это сообщение отредактировал(а) gesper - 6.11.2010, 15:57
--------------------
...И приколется обломившийся и oбломится приколовшийся...
PM MAIL   Вверх
RomanEEP
Дата 6.11.2010, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 1
Всего: 8
Что здесь не компилится или не работает.. Подозреваю, что инициализация Ptr. Рекомендую пользоваться отладчиком, в этом конкретном случае Evaluate\Modify - сразу многие вопросы опадают - где фигня содержится и где не фигня.


--------------------
Электронные экзамены
PM MAIL   Вверх
CodeMonkey
Дата 6.11.2010, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 29
Всего: 89
(вздох)

Цитата(gesper @  6.11.2010,  16:47 Найти цитируемый пост)
отказываеца компилировать


Сообщение об ошибке является военной тайной?

Цитата(gesper @  6.11.2010,  16:47 Найти цитируемый пост)
либо данные читаются не с того адреса


Ваша вера в наши телепатические способности помогает скорейшему решению вашей проблемы.

Цитата(gesper @  6.11.2010,  16:47 Найти цитируемый пост)
только вот компилятор посылает нафиг


Ага, точно.

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


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.