Привет у меня такая проблема: Запустив программу я ставлю галачку в CheckBox1 (CheckBox1->Checked=true), перезагрузив прогу этой галачки уже нет.
ВОПРОС: Как сделать так, чтобы прога сохраняла эту галачку. т.е. при повторном запуске проги галачка не исчезала до тех пор пока я ее сам не уберу. Способов много (реестр, *.ini) но мне нужен сам кодДобавлено (18.06.07, 00:56)
---------------------------------------------
Я сделал так:
Каму интересно, то смотрите:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ListBox1->Items->LoadFromFile("lng.txt"); ;
if (ListBox1->Items->Strings[0]==2)
{
RadioButton2->Checked=true;
}
else
{
RadioButton1->Checked=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
ListBox1->Items->Strings[0]=2;
ListBox1->Items->SaveToFile("lng.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
ListBox1->Items->Strings[0]=1;
ListBox1->Items->SaveToFile("lng.txt");
}
//---------------------------------------------------------------------------
в lng.txt пишете значение "1" или "2"
Все оказалось очень просто. гыыыыгыгыгыгыгы
Добавлено (22.06.07, 04:27)
---------------------------------------------
Можно еще так:
__fastcall TForm1::TForm1(TComponent *Owner) : TForm(Owner)
{
TIniFile *ini;
ini = new TIniFile( "MYINIFILE.INI" );
CheckBox1->Checked = ini->ReadBool( "Form", "CB1", false );
delete ini;
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *ini;
ini = new TIniFile("MYINIFILE.INI");
ini->WriteBool ( "Form", "CB1", CheckBox1->Checked );
delete ini;
}