Delphi操作INI文件的一般步骤
Delphi操作INI文件步骤如下:
-------------------------------------
1)在Uses中添加iniFile单元;
2)声明TiniFile对象;
3)创建TiniFile对象;
----------------try------------------
4)INI文件读写操作;
--------------finally----------------
5)释放TiniFile对象;
---------------end------------------
==============================================
Uses iniFile; //添加iniFile单元;
var
MyiniFile: TiniFile; //声明TiniFile对象;
begin
MyiniFile := TiniFile.Create; //创建TiniFile对象;
try
MyiniFile.ReadType(---); //读INI文件
MyiniFile.WriteType(---); //写INI文件
finally
MyiniFile.Free; //释放TiniFile对象;
end;
end;
==============================================
MyIniFile := TiniFile.Create('MyiniFile.ini');
//没有指明路径,则该文件自动存储在Windows目录中
FileName := ExtractFilePath(Paramstr(0))+'MyiniFile.ini';
MyiniFile := TiniFile.Create(FileName);
//Paramstr(0)表示程序所在目录的完整路径
function ReadString(const Section, Ident Default: String):String; override;
MyString := MyiniFile.ReadString('小节名', '关键字', 缺省值);
procedure WriteString(const Section, Ident, Value: String); override;
MyIniFile.WriteString('小节名', '关键字', 值);
//当INI文件不存在时,调用上面的语句会自动创建该INI文件,
//所以一般不需要手动创建INI文件。
procedure DeleteKey(const Section, Ident: String); override;
MyIniFile.DeleteKey('小节名', '关键字');
//删除一行记录
procedure EraseSection(const Section: String); override;
MyIniFile.EraseSection('小节名');
//删除一个小节
procedure ReadSection(const Section: String; Strings: TStrings); override;
//将指定小节下的所有关键字读取至一个字符串列表变量中
procedure ReadSections(Strings: TStrings); override;
//将I
相关文档:
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如:
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......
大家在软件开发时经常会遇到这样的情况,在不同的开发环境中为实现一些功能相同的过程,由于开发所使用的设计语言不同,因而不得不编写许多类似的代码,甚至有时要在同一个开发环境不同项目中重写代码,这就造成了很大的资源浪费。动态链接库能较好的解决这个问题,重复利用代码将大大提高了开发效率。一般,用户在应用程序 ......
一) 使用动态创建的方法
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application'  ......
Delphi操作注册表步骤如下:
-------------------------------------
1)在Uses中添加Registry单元;
2)声明TRegistry对象;
3)创建TRegistry对象;
4)指定根键;
----------------try------------------
5)打开需要操作的主键;
6)读写操作;
7)保存并关闭主键;
--------------finally----------------
......