掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Iniファイルに保存する際の型変換 (ID:11253)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//PCharへの型キャスト procedure TForm1.Button1Click(Sender: TObject); var Ini_Path:String; begin Ini_Path := ChangeFileExt(Application.ExeName, '.ini'); if Radiobutton1.Checked = true then WritePrivateProfileString('settei1','Upper','1',PChar(Ini_Path)) else WritePrivateProfileString('settei1','Upper','0',PChar(Ini_Path)); end; //TIniFileの利用(usesにIniFilesを追加) //※BoolToStrはTrue=-1/Falase=0なので気をつけて!! procedure TForm1.Button2Click(Sender: TObject); var Ini_Path:String; IniFile: TIniFile; begin Ini_Path := ChangeFileExt(Application.ExeName, '.ini'); IniFile := TIniFile.Create(Ini_Path); try IniFile.WriteString('settei1', 'Upper', BoolToStr(Radiobutton1.Checked, False)); finally IniFile.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.