BCB读写ini
来源:互联网 发布:java反射三种调用方法 编辑:程序博客网 时间:2024/05/16 00:42
#include <inifiles.hpp>
__fastcall TForm1::TForm1(TComponent *Owner) : TForm(Owner)
{
TIniFile *ini;
ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
Top = ini->ReadInteger( "Form", "Top", 100 );
Left = ini->ReadInteger( "Form", "Left", 100 );
Caption = ini->ReadString( "Form", "Caption",
"Default Caption" );
ini->ReadBool( "Form", "InitMax", false ) ?
WindowState = wsMaximized :
WindowState = wsNormal;
delete ini;
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *ini;
ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ) );
ini->WriteInteger( "Form", "Top", Top );
ini->WriteInteger( "Form", "Left", Left );
ini->WriteString ( "Form", "Caption", Caption );
ini->WriteBool ( "Form", "InitMax",
WindowState == wsMaximized );
delete ini;
}
{
TIniFile *ini;
ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
Top = ini->ReadInteger( "Form", "Top", 100 );
Left = ini->ReadInteger( "Form", "Left", 100 );
Caption = ini->ReadString( "Form", "Caption",
"Default Caption" );
ini->ReadBool( "Form", "InitMax", false ) ?
WindowState = wsMaximized :
WindowState = wsNormal;
delete ini;
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TIniFile *ini;
ini = new TIniFile(ChangeFileExt( Application->ExeName, ".INI" ) );
ini->WriteInteger( "Form", "Top", Top );
ini->WriteInteger( "Form", "Left", Left );
ini->WriteString ( "Form", "Caption", Caption );
ini->WriteBool ( "Form", "InitMax",
WindowState == wsMaximized );
delete ini;
}
ini文件内容是
[Form]
Top=185
Left=280
Caption=Default Caption
InitMax=0
- BCB读写ini
- BCB读写ini
- 用BCB读写文本文件及ini配置文件
- bcb 读写ini 配置文件的一个例子
- BCB读取ini文件
- 读写INI
- 读写Ini
- 读写ini
- 读写INI
- 读写ini
- 读写ini
- 读写ini
- ini读写
- 读写INI
- bcb 读写txt
- 使用BCB操作ini和注册表
- BCB对如何操作ini文件?
- C#读写INI文件
- CRM下午茶(九)-老客户挽回
- 慢工出细活,全新的PowerPoint设计-从Word文档开始
- Octal Fractio
- 中国家庭教育网在京开通
- 家庭主夫第一次闪光
- BCB读写ini
- 防假死一周研究报告
- Edge
- oracle随机取记录
- 烫手的淘宝“客服外包服务”
- 记事本的生成
- 微软Windows Live照片库升级
- innerText换行
- glib 中 IO Channels 理解