如何将记录型的数据转换存放到一个字符串中？ ( 积分: 50 )

H

hegyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #1

我有一个记录型数据，比如CB:TComblock;
TComblock=record
userid:integer;
MSG:string[255]
end;
现在要把CB象字符流那样放到一个String中，我应当怎么做？
谢先。

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #2

setlength(tmp, sizeof(tcomblock));
copymemory(@tmp[1], @ComBlock, sizeof(tcomblock));

 

L

lizhenhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #3

是否考虑使用分隔符作标识，将记录不同记录和不同区域分隔
如：
const
s_record = '#rec#';
s_area = '#area#';

procedure TForm1.aa;
var
CB1, CB2: TComblock;
str: string;
begin
....... // 省略部分有些代码已给CB1和CB2赋值
str := Format('%d%s%s', [CB1.userid, s_area, CB1.MSG]);
str := Format('%s%s%d%s%s', [str, s_record, CB2.userid, s_area, CB2.MSG]);
...... // 省略代码
end;

 

H

hegyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #4

to:白河愁
我要的就是你的方法，能不能细点；copymemory在哪里申明的？谢谢

 

京

京酱肉丝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-30

• #5

最好用System.Move方法，CopyMemory API在拷贝大内存的时候有问题。

 

H

hegyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-09

• #6

多人接受答案了。