packed record в строку

← →
IvanS (2008-07-10 23:29) [0]

у меня есть
tpack = packed record a, b, c, d: longword; d, e, f, g: longword; end;

каким образом это можно преобразовать в строку? т.е каждый байт в записи надо превратить в единую строку.

← →
Юрий Зотов © (2008-07-10 23:37) [1]

> IvanS (10.07.08 23:29)

> каждый байт в записи надо превратить в единую строку.

Если Вы уверены, что вопрос задан точно, то прямо сейчас напишу код.

Но сначала просьба - подумайте. Ведь не хочется писать код, который никому не понадобится.

← →
IvanS (2008-07-10 23:52) [2]

a = $01010101
b = $02020202
c = $03030303
d = $04040404
....

строка: #$01#$01#$01#$01#$02#$02#$02#$02...

вот так нужно, я действительно плохо вопрос сформировал

← →
Юрий Зотов © (2008-07-10 23:58) [3]

> IvanS

var
S: string;
R: TPack;
...
SetLength(S, SizeOf(R));
CopyMemory(@S[1], @R, SizeOf(R));

← →
Anatoly Podgoretsky © (2008-07-11 00:37) [4]

Все равно и уточнение пока смутное.

← →
Ega23 © (2008-07-11 00:50) [5]

> Юрий Зотов © (10.07.08 23:58) [3]

пока #00 не встретится?

← →
umbra © (2008-07-11 00:53) [6]

> пока #00 не встретится?

с чего бы это?

← →
Ega23 © (2008-07-11 01:01) [7]

a = $01010101 b = $02020202 c = $03030303 d = $04040404
А если a = $01000101?

> А если a = $01000101?

и что? копирование прервется?

> SetLength(S, SizeOf(R));
> CopyMemory(@S[1], @R, SizeOf(R));

SetString(S, PChar(@R), SizeOf(R));

packed record в строку Найти похожие ветки