易截截图软件、单文件、免安装、纯绿色、仅160KB

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日期函数


  
Day 开头的函数

Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如:
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(Dat ......

在Delphi和VC中创建和调用动态链接库

大家在软件开发时经常会遇到这样的情况,在不同的开发环境中为实现一些功能相同的过程,由于开发所使用的设计语言不同,因而不得不编写许多类似的代码,甚至有时要在同一个开发环境不同项目中重写代码,这就造成了很大的资源浪费。动态链接库能较好的解决这个问题,重复利用代码将大大提高了开发效率。一般,用户在应用程序 ......

Delphi to Excel 一些方法

一)   使用动态创建的方法   
  
  首先创建   Excel   对象,使用ComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'  ......

Delphi操作注册表的一般步骤

Delphi操作注册表步骤如下:
-------------------------------------
1)在Uses中添加Registry单元;
2)声明TRegistry对象;
3)创建TRegistry对象;
4)指定根键;
----------------try------------------
5)打开需要操作的主键;
6)读写操作;
7)保存并关闭主键;
--------------finally----------------
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号