- 浏览: 197378 次
- 性别:
- 来自: 济南
文章分类
最新评论
-
Kesin97:
不错 很有用。选择性锁也不太影响性能。
sqlserver的updlock锁 (转) -
fox-idea:
学习
用PC作数据库服务器的容灾问题 -
xwei78:
话说这个下载地址不太好找啊,我去oracle网站转了好一会才找 ...
oracle10g官方客户端配置
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses IniFiles; {uses 包含 TIniFile 的单元}
var
ini: TIniFile;
path: string; {ini 文件路径}
Section,Key: string; {分别表示 ini 文件的小节与关键字}
{
ini文件结构:
;注释
[小节名]
关键字=值
INI文件支持: string、integer、boolean、Date、Time、DateTime、Double 与二进制类型
string 值没有引号
boolean 的真假用 1、0 表示
}
procedure TForm1.FormCreate(Sender: TObject);
begin
path := ChangeFileExt(ParamStr(0),'.ini');
ini := TIniFile.Create(path); {ini 对象建立需要文件路径参数, 如果缺少路径会默认Windows目录}
end;
//写入 ini 文件:
procedure TForm1.Button1Click(Sender: TObject);
begin
Section := 'AAA';
Key := 'AString';
ini.WriteString(Section,Key,'AAA-String');
Key := 'AInteger';
ini.WriteInteger(Section,Key,111);
Key := 'ABoolean';
ini.WriteBool(Section,Key,True);
Key := 'ADate';
ini.WriteDate(Section,Key,Now);
Key := 'ATime';
ini.WriteTime(Section,Key,Now);
Key := 'ADateTime';
ini.WriteDateTime(Section,Key,Now);
Key := 'ADouble';
ini.WriteFloat(Section,Key,Pi);
Section := 'BBB';
Key := 'BString';
ini.WriteString(Section,Key,'BBB-String');
Key := 'BInteger';
ini.WriteInteger(Section,Key,222);
Key := 'BBoolean';
ini.WriteBool(Section,Key,True);
Key := 'BDate';
ini.WriteDate(Section,Key,Now);
Key := 'BTime';
ini.WriteTime(Section,Key,Now);
Key := 'BDateTime';
ini.WriteDateTime(Section,Key,Now);
Key := 'BDouble';
ini.WriteFloat(Section,Key,Pi);
Section := 'CCC';
Key := 'CString';
ini.WriteString(Section,Key,'CCC-String');
Key := 'CInteger';
ini.WriteInteger(Section,Key,333);
Key := 'CBoolean';
ini.WriteBool(Section,Key,False);
Key := 'CDate';
ini.WriteDate(Section,Key,Now);
Key := 'CTime';
ini.WriteTime(Section,Key,Now);
Key := 'CDateTime';
ini.WriteDateTime(Section,Key,Now);
Key := 'CDouble';
ini.WriteFloat(Section,Key,Pi);
{写入结果:
[AAA]
AString=AAA-String
AInteger=111
ABoolean=1
ADate=2007-12-17
ATime=22:06:23
ADateTime=2007-12-17 22:06:23
ADouble=3.14159265358979
[BBB]
BString=BBB-String
BInteger=222
BBoolean=1
BDate=2007-12-17
BTime=22:06:23
BDateTime=2007-12-17 22:06:23
BDouble=3.14159265358979
[CCC]
CString=CCC-String
CInteger=333
CBoolean=0
CDate=2007-12-17
CTime=22:06:23
CDateTime=2007-12-17 22:06:23
CDouble=3.14159265358979
}
end;
//读取 ini 文件:
procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
i: Integer;
b: Boolean;
f: Double;
d: TDate;
t: TTime;
dt: TDateTime;
begin
s := ini.ReadString('BBB','BString',''); {最后一个参数是默认值}
i := ini.ReadInteger('BBB','BInteger',0);
b := ini.ReadBool('BBB','BBoolean',False);
f := ini.ReadFloat('BBB','BDouble',0);
d := ini.ReadDate('BBB','BDate',Now);
t := ini.ReadTime('BBB','BTime',Now);
dt := ini.ReadDateTime('BBB','BDateTime',Now);
ShowMessage(s); {BBB-String}
ShowMessage(IntToStr(i)); {222}
ShowMessage(BoolToStr(b)); {-1(True)}
ShowMessage(FloatToStr(f)); {3.14159265358979}
ShowMessage(DateToStr(d)); {2007-12-17}
ShowMessage(TimeToStr(t)); {22:06:23}
ShowMessage(DateTimeToStr(dt)); {2007-12-17 22:06:23}
end;
//读入所有小节名到 TStrings:
procedure TForm1.Button3Click(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
ini.ReadSections(List);
ShowMessage(List.Text);
{
AAA
BBB
CCC
}
List.Free;
end;
//读入指定小节的所有关键字到 TStrings:
procedure TForm1.Button4Click(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
ini.ReadSection('AAA',List);
ShowMessage(List.Text);
{
AString
AInteger
ABoolean
ADate
ATime
ADateTime
ADouble
}
List.Free;
end;
//读入指定小节的所有关键字与值到 TStrings:
procedure TForm1.Button5Click(Sender: TObject);
var
List: TStrings;
begin
List := TStringList.Create;
ini.ReadSectionValues('BBB',List);
ShowMessage(List.Text);
{
BString=BBB-String
BInteger=222
BBoolean=1
BDate=2007-12-17
BTime=22:06:23
BDateTime=2007-12-17 22:06:23
BDouble=3.14159265358979
}
List.Free;
end;
//删除与添加
procedure TForm1.Button6Click(Sender: TObject);
begin
ini.DeleteKey('BBB','BString'); {删除关键字}
ini.EraseSection('CCC'); {删除小节}
// ini.UpdateFile; {保存到文件}
{添加小节与关键字或修改值, 直接写入即可}
end;
//其他功能
procedure TForm1.Button7Click(Sender: TObject);
var
b: Boolean;
s: string;
begin
b := ini.SectionExists('DDD'); {判断某个小节是否存在}
b := ini.ValueExists('AAA','AString'); {判断某个关键字的值是否存在}
s := ini.FileName; {获取文件名}
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ini.Free;
end;
end.
发表评论
-
关于 Delphi 中流的使用(4) 遍历读取流中的所有数据
2011-01-09 15:58 645unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(3) 通过内存流读取文件
2011-01-09 15:57 901unit Unit1;interfaceuses Windo ... -
关于 Delphi 中流的使用(2) 用 TFileStream(文件流) 读写
2011-01-09 15:56 1136TStream 是一个抽象的基类, 不能直接生成对象. 在具体 ... -
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
2011-01-09 15:54 1115前言:所谓"流", 就是一段数据或是一块内 ... -
无类型文件读写
2011-01-09 15:48 726unit Unit1;interfaceuses Windo ... -
结构化文件存取
2011-01-09 15:47 630纲要:AssignFile: 关联Rewrite: 创建并打开 ... -
文本文件读写
2011-01-09 15:45 717前言:Delphi 支持三种文件类型: 文本文件、记录文件、无 ... -
memo ctrl+a
2011-01-09 15:25 651在按键事件中处理全选Memo1.SelectAll;Memo1 ... -
单元文件结构
2011-01-09 15:13 566unit Unit1; interface {接口 ... -
Delphi初学者应小心的六大陷阱
2011-01-09 15:03 609初学DelphiI的人,由于各种原因,对DelphiI中的许多 ... -
格式化函数
2011-01-09 10:04 672var s: string;begin //指令类型 ty ... -
Delphi 的类型与指针
2011-01-03 22:53 1034先声明: 不要把我说的这些个东西当作教科书, 这都是自己的浅见 ... -
关于 Lo、Hi、LoWord、HiWord
2011-01-03 22:46 847Cardinal 是 4 字节无符号的整型, 先看一个例数: ... -
Delphi中票据凭证的精确打印
2010-04-01 17:25 773一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在 ... -
beep 音乐
2009-09-23 12:55 1205windows.beep(523,500); ... -
delphi中第三方控件的安装方法 --转
2009-07-12 10:40 8061 只有一个DCU文件的组件。DCU文件是编译好的单元文件 ... -
delphi 需要注意的地方
2009-05-26 14:29 7331.类的概念 如:在窗体Form1中设置属 ...
相关推荐
INI文件操作类库 [ini4j].7z
完整的linux实现ini文件操作的小列子完整的linux实现ini文件操作的小列子完整的linux实现ini文件操作的小列子完整的linux实现ini文件操作的小列子完整的linux实现ini文件操作的小列子完整的linux实现ini文件操作的小...
利用.NET平台提供的kernel32.dll来操作ini文件,进行了一点点更改,主要展示怎样操作ini文件和dadagridview 的联合操作
摘要:VC/C++源码,文件操作,INI 两个INI文件操作实例,VC++源代码,两个源码分别是:VC++在INI文件中读写数据,VC++获得INI文件的全部段名。
Ini文件操作
一个很好的INI文件操作类 使用十分方便
INI文件操作类 作者 凯征 在网上看了一些INI文件读写的一些源码,总是感觉少了些什么。于是自己编了一个INI文件操作类拿出来和大家分享,希望有所帮助。 本类的限制 1. INI文件必须用段名开头 如:[Section1] 2. 在...
基于java的开发源码-INI文件操作类库 [ini4j].zip 基于java的开发源码-INI文件操作类库 [ini4j].zip 基于java的开发源码-INI文件操作类库 [ini4j].zip 基于java的开发源码-INI文件操作类库 [ini4j].zip 基于java的...
VC下面,一个封装好的ini文件操作类,很好用
ini 文件操作函数库 INI 读写 库ini 文件操作函数库 INI 读写 库ini 文件操作函数库 INI 读写 库
CIni_demo VC Ini文件操作类 ini文件操作
ini文件操作,包含大多数API拥有的功能。
ini文件操作示例,直接打开工程就能用。:)
ini文件操作.rarini文件操作.rar
ini文件操作在vc中的使用,包括使用方法和源码
易语言内存INI文件操作模块源码,内存INI文件操作模块,Init,ReadConfig,WriteConfig,SaveFile,GetData
C++ ini文件操作示例 IniFileCppV0.2.1.zip
这是本人在网上查到的关于目录和ini文件操作的资料,文件可能比较多也比较乱,欢迎拍砖!!
windows提供了一整套有关ini文件操作的函数,但是使用这些函数会带来移植性的问题,因为Linux或其他系统上可能并不存在这样的API。 所以,这套程序使用了标准C函数完成,其中涉及到的函数均为标准C库下的函数,具有...