Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с указателями на переменные, структуры. Извлечение данных по ссылке. / 3 сообщений из 3, страница 1 из 1
08.09.2009, 11:43
    #36183589
aspi
aspi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с указателями на переменные, структуры. Извлечение данных по ссылке.
Добрый день.

Стала необходимость написать код на VBA для Excel, а вернее попвтка переписать существующий на Delphi.

Как на VBA реализовать работу с указателями на объекты и записи?

Пример Delphi, который хочется напистаь на VBA Excel.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
PMTEMsg = ^TMTEMsg;
TMTEMsg = record
  DataLen: Integer;  // Длина следующих далее данных
  Data: record end;  // Данные переменной длины
end;



var
  Data: PMTEMsg;

Err := MTEStructure(Idx, Data);


И дальше как вытянуть данные из @Data.Data.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2009, 12:12
    #36183699
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с указателями на переменные, структуры. Извлечение данных по ссылке.
aspi,
А искать в форуме по слову MTEStructure не пробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.09.2009, 13:18
    #36183954
aspi
aspi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с указателями на переменные, структуры. Извлечение данных по ссылке.
Бенедиктaspi,
А искать в форуме по слову MTEStructure не пробовали?

Бенедикт, огромное спасибо.
Не думал, что разработки для MTE* так популярны :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с указателями на переменные, структуры. Извлечение данных по ссылке. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]