掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TColorを保存するには？ (ID：11838)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
単純にして試してみました。 Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; を Form1 にはって、新規でためしてください。 type TBC=record BColor:string; end; procedure TForm1.Button1Click(Sender: TObject); var fs:TFileStream; bc:TBC; L:integer; begin Label1.Color := clLime; bc.BColor := IntToStr(Label1.Color); L := Length(bc.BColor); fs := TFileStream.Create('c:\Test.txt',fmCreate or fmShareExclusive); try fs.Write(L,SizeOf(L)); fs.Write(PChar(bc.BColor)^,L); finally fs.Free; end; end; procedure TForm1.Button2Click(Sender: TObject); var fs:TFileStream; bc:TBC; L:integer; begin fs := TFileStream.Create('c:\Test.txt',fmOpenRead or fmShareExclusive); try fs.Read(L,SizeOf(L)); SetLength(bc.BColor,L); fs.Read(PChar(bc.BColor)^,L); Label2.Color := TColor(StrToInt(bc.BColor)); finally fs.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.