functionComponentToStr(AComponent:TComponent):string;
var
BinStream:TMemoryStream;
StrStream:TStringStream;
s:string;
begin
BinStream:=TMemoryStream.Create;
try
StrStream:=TStringStream.Create(s);
try
BinStream.WriteComponent(AComponent);
BinStream.Seek(0,soFromBeginning);
ObjectBinaryToText(BinStream,StrStream);
StrStream.Seek(0,soFromBeginning);
Result:=StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
functionStrToComponent(constValue:string;
Instance:TComponent):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(Instance);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
var
BinStream:TMemoryStream;
StrStream:TStringStream;
s:string;
begin
BinStream:=TMemoryStream.Create;
try
StrStream:=TStringStream.Create(s);
try
BinStream.WriteComponent(AComponent);
BinStream.Seek(0,soFromBeginning);
ObjectBinaryToText(BinStream,StrStream);
StrStream.Seek(0,soFromBeginning);
Result:=StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
functionStrToComponent(constValue:string;
Instance:TComponent):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(Instance);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;