VPF::преобразование array of byte(word) в string

Joker07

Дата 12.11.2008, 20:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ, есть у меня значения типа array[1..8] of Byte и packed array[0..3] of Word. Как преобразовывать это в string?

Alexeis

Дата 12.11.2008, 21:14 (ссылка)

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

Загрузка ...

Амеба

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

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

Скопировать smile

Удобно при помощи функции Move

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

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

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

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

Joker07

Дата 13.11.2008, 00:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Alexeis @ 12.11.2008, 21:14)

Скопировать smile

Удобно при помощи функции Move

Непонял. Это такая шутка или что. Причем тут функция Move?

Virtuals

Дата 13.11.2008, 06:19 (ссылка)

(голосов:2)

Загрузка ...

Опытный

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

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

Цитата(Joker07 @ 13.11.2008, 00:19

)

Непонял. Это такая шутка или что. Причем тут функция Move?

так понятней?

Код


var
a:array[1..8] of Byte;
b:packed array[0..3] of Word;
s:ShortString;
procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(s,8);
a[1]:=$45;
a[2]:=$46;
a[3]:=$47;
a[4]:=$48;
move(a,s[1],8);
Memo1.Lines.Add(s);
b[0]:=$4748;
b[1]:=$4546;
move(b,s[1],8);
Memo1.Lines.Add(s);
end;

или тебе нужно в HEX видеть?
тогда IntToHex тебе в помощь

Код


s:=inttohex(a[1],2)+inttohex(a[2],2)+inttohex(a[3],2)+inttohex(a[4],2);
Memo1.Lines.Add(s);

Это сообщение отредактировал(а) Virtuals - 13.11.2008, 06:22

Joker07

Дата 13.11.2008, 21:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое человеческое спасибо ^_^

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