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
相关文档:
====================================================
Delphi操作文件的一般步骤:
1)关联文件:
AssignFile(var F; FileName :string);
2)初始化文件:
Append(var F :Text);
//只写,于文件最后追加数据
Reset(var F [; RecSize :Word]);   ......
三层架构指的是界面,业务逻辑和数据存储分离,不是指物理上是否分离。
这样做的好处是层次分明,维护好做,系统资源也好分布式处理。
数据库层哪就不说了,用MSSQL、Orcale随你了,就是数据服务层
业务逻辑的话要分析清楚,就是中间层
界面,也叫客户端。这里就是得到数据和显示数据的部分了,不做其它处理。但是数据有 ......
所在单元: DateUtils
Day 开头的函数
1、DayOf()
描述: 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如: showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述: Da ......
一) 使用动态创建的方法
首先创建 Excel 对象,使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application'  ......