604
社区成员
发帖
与我相关
我的任务
分享
TIniFile *IniKey;
AnsiString ExePath = ExtractFilePath(ParamStr(0));
IniKey = new TIniFile (ExePath + "/config.ini");
Edit1->Text = IniKey->ReadString("Form","Data Source",ExePath).Trim();
delete IniKey;
String strDefault = "192.168.1.100";
Edit1->Text = ini->ReadString("Form", "Data Source", strDefault);
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TIniFile *pIniFile = new TIniFile("c:\\MyApp\\bin\\MyApp.ini");
if (pIniFile->ReadBool("AutoLoad", "FormProperties", false) == true)
{
Visible = pIniFile->ReadBool("FormOptions", "Visible", true);
Color = (Graphics::TColor)pIniFile->ReadInteger("FormOptions", "Color", clWindow);
Caption = pIniFile->ReadString("FormOptions", "Caption", "Main");
}
delete pIniFile;
}