without savefile to disk
type
TmyCustomXMLPropStorage = class(TCustomXMLPropStorage);
{ TForm1 }
TForm1 = class(TForm)
XMP: TXMLPropStorage;
...
procedure TForm1.Button1Click(Sender: TObject);
var st : TStream;
begin
try
st := TStream.Create;
TmyCustomXMLPropStorage(XMP).XMLConfig.SaveToStream(st);
memo1.Lines.LoadFromStream(st);
//TmyCustomXMLPropStorage(XMP).XMLConfig.LoadFromStream(st);
finally
st.Free;
end;
end;
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
