掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TColorを保存するには？ (ID：11837)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは、TColor<->integer間はキャストしなくてもエラーが出ないので、stringで保存して読み込むときにTColorを復元したい。 読み込むときに★部分でエラーになってしまいます。 ----- TBC=record BColor:string; end; ------ TFileStream(FS)を使って書き込みfunction部分 L :=Length(TBC.BColor); FS.Write(L,SizeOf(L)); FS.Write(PChar(TBC.BColor)^,L); ---------------------------------------- データ書き込み部分 TBC.BColor:=IntToStr(ComboBox1.Canvas.Brush.Color);//血統色 ------------------------------------------ TFileStream(FS)を使って読み込みfunciton部分 L :=Length(TBC.BColor);//文字列の長さ FS.Read(L,SizeOf(L));// SetLength(TBC.BColor,L);//指定した変数の長さに設定 FS.Read(PChar(TBC.BColor)^,L); ----------------- 復元するとき Canvas.Brush.Color:=TColor(TBC.BColor);//★TColor(StrToInt(TBC.BColor))にすると、エラーになる
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.