对象怎么保存到文件和数据库中？

[zhuxianguo]

对象怎么保存到文件和数据库中，在delphi中有没有像哈希表类似的数据结构？
对象保存到好像是要用到对象序列化，反序列化，但不知道具体如何做？

[giveusomecolor]

关注`````````

[redmoon_line]

把它的属性记录下来，到时一create就OK了
，不可以保存成流，我也试过

[zhuxianguo]

我感觉楼上的做法不可取，如果只是几个简单的属性还可以
但是如果属性很复杂，就不行了

[zhuxianguo]

失望！

[flexitime]

在2003年的《程序员》杂志中侯捷先生有连续两期的文章，对这个问题进行讨论题目好像叫什么"C++永续之道"或者差不多这个意思太久了记不清。
里面虽然讲的是C++，但Delphi也是一样的。
如果你有时间，看看候先生的〈深入浅出MFC〉也有讲到的!
Delphi的话好像李维先生的那本VCL也谈到一些，但个人认为不及候先生写得好.

[xixuemao]

对啊，在C++里面实现序列化非常简单，用Delphi不太清楚，学习。。。。。

[仙侣步惊云]

我觉得应该使用流

[lextm]

使用序列化可以保存到XML文件里面.可以看一些ＸＭＬ的书.

[zhuxianguo]

delphi上的帮助介绍：
function ComponentToString(Component: TComponent): string;

var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;

end;
finally
BinStream.Free
end;
end;

function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);

finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;