|
2017/4/19 (水) 09:05:35 おかぽん |
▼ Mr.XRAYさん
Published でないプロパティの保存と読み込み
http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/Published_%E3%81%A7%E3%81%AA%E3%81%84%E3%83%97%E3%83%AD%E3%83%91%E3%83%86%E3%82%A3%E3%81%AE%E4%BF%9D%E5%AD%98%E3%81%A8%E8%AA%AD%E3%81%BF%E8%BE%BC%E3%81%BF
やりたいことは、こういうことでは・・・ない・・・？
MemoryStream.WriteComponentで、書き出しされているところまでは確認しました。
type
TStringGrid=class(Grids.TStringGrid)
protected
procedure DefineProperties(Filer: TFiler); override;
procedure ReadValues(Reader : TReader);
procedure WriteValues(Writer : TWriter);
end;
procedure TStringGrid.DefineProperties(Filer: TFiler);
begin
inherited DefineProperties(Filer);
Filer.DefineProperty('CellString', ReadValues, WriteValues, True);
end;
procedure TStringGrid.ReadValues(Reader : TReader);
begin
Reader.ReadListBegin;
Cells[1,1] := Reader.ReadString;
Cells[1,2] := Reader.ReadString;
Reader.ReadListEnd;
end;
procedure TStringGrid.WriteValues(Writer : TWriter);
begin
Writer.WriteListBegin;
Writer.WriteString(Cells[1,1]);
Writer.WriteString(Cells[1,2]);
Writer.WriteListEnd;
end;
|
|