FormまたはUnitごと保存・読み取りをするには？ (ID:39202)

名前

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

本文 小生がかって先輩に教わったコード例です。何か参考になれば。 ざっと抜粋したのでミスがあると思いますが。 TForm1 = class(TForm) private { Private 宣言 } public { Public 宣言 } end; const BandCount=3; //CoolBarを置きその上にToolbarを３個置いているという宣言です。 //たとえば一段目を左右２個、２段目を一個。あるいは３段になったりする。 var Form1: TForm1; iniFile: TIniFile; //iniファイルの名前の宣言 AppPath: string; //このプログラムを置いておくフォルダパスを格納する implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Form1.Position:=poDesigned; iniFile := TIniFile.Create(AppPath);//iniファイルをオープン //フォーム形状復元 //最初inifairuganaitoki-100を取得したときインストールして最初の起動だと判断するため //いろいろな箇所で最初ならファイルを新規作成するため if IniFile.ReadInteger('Window', 'Top', -100)=-100 then begin Form1.Width:= 640;//俺のモニタはＶＧＡだからはみ出すというクレームを食うので Form1.Height:= 480; end else begin //iniファイルがあるとき Form1.Top:= IniFile.ReadInteger('Window', 'Top', Form1.Top ); Form1.Left:= IniFile.ReadInteger('Window', 'Left', Form1.Left ); Form1.Width:= IniFile.ReadInteger('Window', 'Width', 640 ); Form1.Height:= IniFile.ReadInteger('Window', 'Height', 480); //ＵＳＢメモリーにインストールしている場合開いたモニタのサイズが違うかもしれないから if IniFile.ReadBool('Window', 'Maxmize', False) then begin Form1.WindowState := wsMaximized; end else begin Form1.WindowState := wsNormal; end; end; //-------------------------CoolBarの左右の長さやフロート状態を復元する------------------------------------- //CoolBarの上に３個のToolBarがありどんな形になっているかわからないので復元 for i:=0 to BandCount-1 do begin //Bandの位置とBreakを読込む BandIDNumber[i]:= IniFile.ReadInteger('CoolBar1','Band'+IntToStr(i)+'ID',i); BandWidth[i] := IniFile.ReadInteger('CoolBar1','Band'+IntToStr(i)+'Width',452); //４５２は自分のサイズ if i=1 then BandBreak[i] := IniFile.ReadBool('CoolBar1','Band'+IntToStr(i)+'Break',false) else BandBreak[i] := IniFile.ReadBool('CoolBar1','Band'+IntToStr(i)+'Break',true); end; CoolBar1.Bands.BeginUpdate; //値の呼び出して復元 Tax :=iniFile.ReadInteger('Tax',%',5); //数値の復元 Edit1.Text :=iniFile.ReadString('Edit1','Text',''); //文字列の復元 DisplayYesNo :=iniFile.ReadBool(DisplayYesNot','Yes',false); //true or falseの復元 iniFile.Free; //iniファイルを閉じる end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin //フォームの状態をiniファイルに書き込みして保存する iniFile := TIniFile.Create(AppPath );//iniファイルを開く if Form1.WindowState = wsNormal then//フォームの状態を保存する begin IniFile.WriteBool( 'Window', 'Maxmize', False ); IniFile.WriteInteger('Window', 'Top', Form1.Top ); IniFile.WriteInteger('Window', 'Left', Form1.Left ); IniFile.WriteInteger('Window', 'Width', Form1.Width ); IniFile.WriteInteger('Window', 'Height', Form1.Height); end else begin IniFile.WriteBool('Window', 'Maxmize', True); end; //---------------------------CoolBarの上のToolBarの保存------------ for i:=0 to BandCount-1 do begin //Bandの位置とBreakを書きこむ iniFile.WriteInteger('CoolBar1','Band'+IntToStr(i) +'ID',CoolBar1.Bands[i].ID); iniFile.WriteInteger('CoolBar1','Band'+IntToStr(i) +'Width',CoolBar1.Bands[i].Width); iniFile.WriteBool('CoolBar1','Band'+IntToStr(i) +'Break',CoolBar1.Bands[i].Break); end; iniFile.WriteInteger('Tax','％',Tax );//数値の保存 iniFile.WriteString( 'Edit1','Text',Edit1.Text);//文字列の保存 iniFile.WriteBool('DisplayYesNot','Boolean',DisplayYesNo);//true or falseの保存 IniFile.Free;//iniファイルを閉じる end; initialization AppPath := ExtractFilePath(Application.ExeName); //起動時にこのexeファイルのあるフォルダパスを取得しておく end. // 一番最後のend