易截截图软件、单文件、免安装、纯绿色、仅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和VC中创建和调用动态链接库

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

javascript中调用delphi函数


以下是test.htm页的内容
首先定义一个插件对象
 
<object id="Mapupload" name="Mapupload" width="0" height="0" classid="clsid:045FA9B9-B373-4D4C-AE76-128A19A4B6AE">
</object>
<script type="text/javascript">
//此函数打开activexform窗体并为activ ......

Delphi日期函数

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

DELPHI用户登录方案

3.2  用户登录方案
在进入一个系统时,必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性,登录窗体的制作按照系统的大小及用处,可以分为不同的登录窗体样式,在系统第一次登录前,首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号