//----------------------------------------------------------------
// Unit1.cpp
//----------------------------------------------------------------
#include <inifiles.hpp>
//----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString strAppPath = ExtractFilePath(Application->ExeName);
AnsiString strIniPath;
strIniPath = strAppPath + "control.ini";
//INIファイル読込
TIniFile *pini;
pini = new TIniFile(strIniPath);
Label1->Caption = pini->ReadInteger( "SEC", "KEY_int", 0);
Label2->Caption = pini->ReadString( "SEC", "KEY_str", "Nothing");
delete pini;
pini = NULL;
}
//----------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//INIファイルパス名の取得
AnsiString strAppPath = ExtractFilePath(Application->ExeName);
AnsiString strIniPath;
strIniPath = strAppPath + "control.ini";
//INIファイル書込み
TIniFile *pini;
pini = new TIniFile(strIniPath);
pini->WriteInteger( "SEC", "KEY_int", 1);
pini->WriteString( "SEC", "KEY_str", "キーString");
delete pini;
pini = NULL;
}
//----------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
//INIファイルパス名の取得
AnsiString strAppPath = ExtractFilePath(Application->ExeName);
AnsiString strIniPath;
strIniPath = strAppPath + "control.ini";
//セクションの削除
TIniFile *pini;
pini = new TIniFile(strIniPath);
pini->EraseSection("SEC");
}
//----------------------------------------------------------------
DownLoad bcbtips005.lzh 4KB(BCB5)