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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите разобратся с масивом 
:(
    Опции темы
andrewr
Дата 30.9.2007, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



привет, нужна помощь есть:

var
mass: array [1..4] of byte;
i:integer;
begin
i:=$11223344;

как мне сделать чтобы:

mass[1]:=$11;
mass[2]:=$22;
mass[3]:=$33;
mass[4]:=$44;

просто надо числа заносить в масиве динамически - тоесть i будет менятся.
Зарание спасибо!

--
будет чтото типа етого:

for i:=$11223344 to $22334455 do
begin
mass[1]:=
mass[1]:=
mass[1]:=
end

Это сообщение отредактировал(а) andrewr - 30.9.2007, 22:33
PM MAIL   Вверх
BaD_SeCt0R
Дата 1.10.2007, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


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

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



Используй shl и shr для вытаскивания нужного байта из хекса.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Shaggy
Дата 1.10.2007, 01:14 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

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



старый способ:
Код

Var
  I:Integer;
  Mass: Array [1..4] Of Byte Absolute I;
Begin
  I:=...
  WriteLn(Mass[1]);
  WriteLn(Mass[2]);
  WriteLn(Mass[3]);
  WriteLn(Mass[4]);
End;


или LongRec(I).Bytes[0] etc
PM MAIL ICQ   Вверх
andrewr
Дата 1.10.2007, 01:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Shaggy Спасибаsmile
PM MAIL   Вверх
ivan219
  Дата 1.10.2007, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



А что делать если массив из 9 байт:
Код

Mass: Array [1..9] Of Byte Absolute I;

Какой тип переменной I использовать.
Или дуругой способ есть???

Цитата(BaD_SeCt0R @  1.10.2007,  00:43 Найти цитируемый пост)
Используй shl и shr для вытаскивания нужного байта из хекса.

Можно пример???
PM MAIL ICQ   Вверх
Alexeis
Дата 1.10.2007, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

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



ivan219, если массив больше чем на 8 байт, то такое представление i:=$11223344; и не возможно, разве что только как строку.


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
  Дата 1.10.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Цитата(Alexeis @  1.10.2007,  14:53 Найти цитируемый пост)
 то такое представление i:=$11223344; и не возможно

Это я понял Int64 имеет 8 байт а как строку я реализовал просто думал по другому получится.
А по поводу shl и shr что???
PM MAIL ICQ   Вверх
Alexeis
Дата 1.10.2007, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

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



Цитата(ivan219 @  1.10.2007,  15:20 Найти цитируемый пост)
А по поводу shl и shr что??? 

  ну с ними все просто если из Ворда нужно вытащить например младший байт, то делаем операцию and c $00FF, если старший то shr 8, т.е. сдвиг всех бит вправо на 8 бит, значит старший станет младшим, а вместо старшего будут нули, аналогично для двойного слова можно делать и т.д.


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
andrewr
Дата 9.10.2007, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



for i:=1 to 4 do
test[i]:=amss_adress shr (32-(8*i));

сделал   smile 



M
Alexeis
Модератор: если в теме нет ответов, не нужно ее дублировать. Лучше через некоторое время еще раз попробуйте подробней пояснить чем не устраивают приведенные решения или саму задачу.

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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