VPF::Подскажите! Как преобразовать определенный тип в a

BrainIce

Дата 19.5.2009, 00:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Пожалуйста, помогите с задачкой!

Код


{есть тип TSCmd}
Type
TSCmd = record
CMD : String[50];
SQL : String[100];
FILTER : String[100];

TABLE : String[15];
ID: Integer;
end;

....
var
A: TSCmd;
B: Array of Byte;
begin
.....
Как мне преобразовать Тип A в массив B array of byte???
Заранее спасибо
.....
end.

Akella

Дата 19.5.2009, 09:10 (ссылка)

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

Загрузка ...

Творец

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

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

а зачем это:

Код


TABLE : String[15];
ID: Integer;
end;

BrainIce

Дата 19.5.2009, 09:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Структура TSCmd просто для примера она может быть и другой просто нужно преобразовать тип в массив array of byte

Akella

Дата 19.5.2009, 10:16 (ссылка)

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

Загрузка ...

Творец

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

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

BrainIce, то я стормозил, не заметил, что это всё одна и та же запись.

Bitter

Дата 19.5.2009, 15:42 (ссылка)

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

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

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

A.CMD:='12345';
A.SQL:='67890';
A.FILTER:='AAA';
A.TABLE:='BB';
A.ID:=100;

SetLength(B,SizeOf(A));
CopyMemory(B,@A,SizeOf(A));

Обрати внимание, что вставляется кроме самих символов еще и длина строки

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