为什么会报错:OBJECT expected on line 1. 代码如下,能给出相应参考文件最好了!在线等,急!

zzl880720zm 2011-09-22 12:30:20
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
StrStream.Seek(0, soFromBeginning);
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
edit3.Text :=ComponentToString(image1);
myinifile.WriteString('测试','图片',edit3.Text );
end;
procedure TForm4.FormCreate(Sender: TObject);
var
pcom:TComponent;
Filename:string;
begin
Filename:=ExtractFilePath(Paramstr(0))+'图片配置.ini';
myinifile:=Tinifile.Create(filename);
pcom:=StringToComponent(edit3.Text);
end;
...全文
291 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainychan2009 2011-09-22
  • 打赏
  • 举报
回复
需要相应的对象?
bdmh 2011-09-22
  • 打赏
  • 举报
回复
哪句错了,自己跟踪看看
zzl880720zm 2011-09-22
  • 打赏
  • 举报
回复
应该是function StringToComponent(Value: string): TComponent函数错了
但不知道错在哪
zzl880720zm 2011-09-22
  • 打赏
  • 举报
回复
楼上能具体点吗

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧