摘要:
function ComponentToStr(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, soFromBeginnin... 阅读全文