易截截图软件、单文件、免安装、纯绿色、仅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文件操作常用函数

====================================================
Delphi操作文件的一般步骤:
1)关联文件:
 AssignFile(var F; FileName :string);
2)初始化文件:
 Append(var F :Text);   
 //只写,于文件最后追加数据
 Reset(var F [; RecSize :Word]);     ......

delphi三层架构

三层架构指的是界面,业务逻辑和数据存储分离,不是指物理上是否分离。
这样做的好处是层次分明,维护好做,系统资源也好分布式处理。
数据库层哪就不说了,用MSSQL、Orcale随你了,就是数据服务层
业务逻辑的话要分析清楚,就是中间层
界面,也叫客户端。这里就是得到数据和显示数据的部分了,不做其它处理。但是数据有 ......

Delphi日期函数

所在单元: DateUtils
Day 开头的函数
1、DayOf()
描述: 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如: showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是
2、DateTimeTostr()
描述: Da ......

Delphi to Excel 一些方法

一)   使用动态创建的方法   
  
  首先创建   Excel   对象,使用ComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'  ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号