VPF::Структурировать массив - Форум программистов

maestro2k

Дата 30.10.2007, 20:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как в делфи сделать сие: Есть указатель (pointer) на массив данных и есть структура. Как так оригинально оформить чтоб типизиированая переменная указывала на этот массив.

Код


//непример:
//массив: 01,02,03 

//структура: 
type
TStr = packed record
  A: byte;
  B:word;
end;

var
  Str: TStr; //чтоб данные были доступны из этой переменной

MetalFan

Дата 30.10.2007, 21:11 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

сам то понял что написал?

Добавлено через 4 минуты и 15 секунд

Код


var
  lPStr: ^TStr;
begin
  lPStr := SomePointer;
  lPStr^.A := 10;
  lPStr^.B := 100;

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

There are always someone smarter than you...

maestro2k

Дата 30.10.2007, 21:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

все там нормально написано.
MetalFan, сенкс.

bems

Дата 30.10.2007, 21:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Код


var
  Str: TStr absolute MyArray

Добавлено через 1 минуту и 5 секунд
сори, тут MyArray не указатель, а сам массив

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

Обижено школьников: 8

maestro2k

Дата 11.11.2007, 14:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

Немного не то..
Есть структура, и динамический массив.

Код


ТMyStruct = packed record
  A : BYTE;
  B : BYTE;
  C : BYTE;
end;

var
  MyArray: Array of TMyStruct;
  P: Pointer;

Количество елементов в массиве нужно создавать во время выполнения кода. После создания нужной мне "структуры" ее нужно положить на участок памяти по адресу P.
Тоесть типа такого...

Код


MyArray:= P;

Как это сделать подскажите люди добрые! smile

VICTAR

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

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

Загрузка ...

Эксперт

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

Репутация: 10
Всего: 80

Если я тебя правильно понял, то тебе лучше использовать TList он как раз предназначен для работы с указателями

Alexeis

Дата 11.11.2007, 16:22 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Цитата(maestro2k @ 30.10.2007, 20:35

)

Как так оригинально оформить чтоб типизиированая переменная указывала на этот массив.

Переменная это переменная, а указатель это указатель. Можно только что чтобы типизированный указатель указывал на массив.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

stab

Дата 11.11.2007, 16:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 1
Всего: 48

Например вот так:

Код


type
  ТMyStruct = packed record
    A : BYTE;
    B : BYTE;
    C : BYTE;
  end;

  TMyArray = array[0..1023] of ТMyStruct;
  PMyArray = ^TMyArray;

var
  myStruct: ТMyStruct;
  myArray: PMyArray;

begin
  myArray := @myStruct;
  myArray[0].A := 100;

  // осторожно!
  myArray[100].A := 100;
end;

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

6, 6, 6 - the number of the beast.

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