名前
題名
▼ おかぽんさん > ▼ 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; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link