集合类型(100分)

S

sauchan

Unregistered / Unconfirmed
GUEST, unregistred user!
TN10 = 1..10;
TNX= set of TN10;

A:=[1,2,3]
怎样把A保存到数据库
 
集合小的话转化为字串存,取出再还原,这样方便,毕竟处理二进制数据数度不如字串
否则只能作为2进制数据存取
 
集合最大只有255,用短字符串就可以保存了。
var
tmpStr: String[10];
begin
tmpStr := '';
for i := 1 to 10 do
begin
if i in A then
tmpStr := 1;
end;
end;
 
试试直接使用流来保存
 
集合是以位数字形式存的,TN10 = 1..10只需用两个字节存储,如你的A:=[1,2,3]
在内存中=$0700,Byte(Pchar(@A)[0])=7,Byte(Pchar(@A)[1])=0
 
顶部