读写窗体 给我一个读写窗体的例子代码.急啊! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 创建窗体?Form2 frm = Form2.Create(Application);frm.ShowModal(); 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; 请一个关于DLL文件引用时出错???[高分请教20分] 急找些三层数据库开发的资料 Delphi中数据库连接语句 在做主从表更新取消的时候出现的问题。。。。。。。 有制作列车时刻表的算法吗? 怎么正确地重载构造器? delphi调用word的保存问题 急,解决问题马上就给分 一个小问题,所以只给20分 有谁知道哪儿有最新版的大富翁论坛精华集? delphi6安装了INDY9,编译时始终报:Undeclared identifier:'TIdSSLIOHandlerSocket 急求delphi程序加入能通过网络能发送字符串信息的功能!
Form2 frm = Form2.Create(Application);
frm.ShowModal();
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;