TcolorのcustomColor値を保存するには？ (ID:740)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 何でわざわざTcolor型に変換する必要があるんですか？ アプリのユーザーに色を選択させて、その作成した色も保存したいのなら、 Tstringsのまま保存した方が、色を復元するも楽ですよ。 const MY_COLOR_FILE = 'MyColors.dat'; procedure TForm1.Button1Click(Sender: TObject); begin //保存された色ファイルがあれば、読み込んで色を復元する if FileExists(MY_COLOR_FILE) then begin ColorDialog1.CustomColors.LoadFromFile(MY_COLOR_FILE); end; if ColorDialog1.Execute then begin RichEdit1.SelAttributes.Color := ColorDialog1.Color and $ffffff; ColorDialog1.CustomColors.SaveToFile(MY_COLOR_FILE); end; end;