delphi7 ini创建,读写,条件字节值判断,删除,释放
来源:互联网 发布:360软件 编辑:程序博客网 时间:2024/06/10 16:36
//ini创建,读写,条件字节值判断
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,IniFiles;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MyIniFile:TInifile;//定义ini
Filename:string;
v1:string;
v2:Integer;
v3:Boolean;
begin
Filename:=ExtractFilePath(Paramstr(0))+ 'program.ini'; //文件路径
if not fileexists(Filename)then //如果没有找到文件则会自动创建一个INI文件
begin
MyIniFile:=Tinifile.Create(FileName); //打开INI文件
//写入信息小名,变量,值,......................................................
myinifile.writestring('小节名', '关键字1','1111');
myinifile.writeinteger('小节名', '关键字2',11111);
myinifile.writebool('小节名', '关键字3',True);
end else //读取INI
begin
MyIniFile:=Tinifile.Create(FileName); //打开文件
v1:=myinifile.Readstring( '小节名', '关键字1','缺省值');
if v1='1111' then
begin
myinifile.writestring('小节名', '关键字1','初值改变了变000');
end else
v1:=myinifile.Readstring( '小节名', '关键字1','0');
v2:=myinifile.Readinteger( '小节名', '关键字2 ',0);
v3:=myinifile.Readbool( '小节名', '关键字3 ',false);
Edit1.Text:=v1+inttostr(v2)+booltostr(v3);
//删除关键字
//myinifile.DeleteKey( '小节名 ', '关键字 ');
//删除小节
//myinifile.EraseSection( '小节名 ');
//添加小节可以使用写入法来创建
// 在适当的位置用下面的语句释放myinifile:
//释放
myinifile.Destroy;
end;
end;
end.
- delphi7 ini创建,读写,条件字节值判断,删除,释放
- ini文件的创建读写
- 创建INI文件读写程序
- QT 创建、读写INI文件
- ini文件的创建和读写访问
- C#如何读写和创建INI文件
- C#如何读写和创建INI文件
- C#如何读写和创建INI文件
- c# 读写 创建ini文件(复杂)
- c# 读写 创建ini文件(简单)
- C#如何读写和创建INI文件
- C#读写和创建INI文件
- MFC创建及读写ini文件操作;
- C#如何读写和创建INI文件
- C# winform 创建,修改,删除 ini配置文件
- delphi7 读写txt
- Delphi7下面关于动态创建控件和释放的个人总结
- 读写INI
- Shaders for Game Programmers and Artists代码实现Chapter_0403
- Delphi Hook的相关问题
- 教你理解复杂的C/C++声明
- java File文件读取大全
- string.Format用法
- delphi7 ini创建,读写,条件字节值判断,删除,释放
- SendMessage、PostMessage原理(1)
- 经常用到的mysql函数
- 传输增量DTP的处理
- VC6.0 +WDK 开发驱动的环境配置
- servlet中文乱码
- 初学WebGL
- 现实世界的Windows Azure:采访Tata Consultancy Services的业务发展经理,Sebastian Iglesias先生
- android window.requestWindowFeature()常用方法