Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.08.17;
Скачать: CL | DM;

Вниз

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?


 
umbra ©   (2008-07-11 01:03) [8]


> А если a = $01000101?

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


 
Рамиль ©   (2008-07-11 08:56) [9]


> umbra ©   (11.07.08 01:03) [8]

Не прервется, но потом с этой строкой надо осторожно обращаться.


 
han_malign ©   (2008-07-11 09:19) [10]


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

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



Страницы: 1 вся ветка

Текущий архив: 2008.08.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.024 c
2-1216011985
dreamse
2008-07-14 09:06
2008.08.17
Подскажите какое свой ство в компоненте TTable или TQuery


15-1214989510
Slider007
2008-07-02 13:05
2008.08.17
С днем рождения ! 2 июля 2008 среда


15-1214980351
Dennis I. Komarov
2008-07-02 10:32
2008.08.17
WiFi P2P У кого есть опыт?


2-1215688680
Alexei
2008-07-10 15:18
2008.08.17
Компонент для подсветки синтаксиса


11-1192764911
Vinum
2007-10-19 07:35
2008.08.17
StGrdD6 не работает редактирование ячейки