程序开发

programme

建立、读取、存贮INI文件的方法《一》

内容:
INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化的编程一族,如VB、VC、VFP、Delphi等都提供了读写INI文件的方法,其中Delphi中操作INI文件,最为简洁,这是因为Delphi6.0提供了一个TInifile类,使我们可以非常灵活的处理INI文件。

一、有必要了解INI文件的结构:
;注释
[小节名]
关键字=值
...

INI文件允许有多个小节,每个小节又允许有多个关键字, “=”后面是该关键字的值。
值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示。
注释以分号“;”开头。

二、定义
1、在Interface的Uses节增加IniFiles;
2、在Var变量定义部分增加一行:
myinifile:Tinifile;
然后,就可以对变量myinifile进行创建、打开、读取、写入等操作了。

三、打开INI文件

myinifile:=Tinifile.create(’program.ini’);

Delphi中ini文件的使用

function readInifile(fileName,section,Ident:string):string; //读取配置文件
var
ini:tinifile;
begin
ini:=tinifile.Create(fileName);
result:=ini.ReadString(section,ident,'');
ini.Free;
end;

procedure writeInifile(const fileName,Section, Ident, Value: string); //写inifile
var
ini:tinifile; aPathName:string;
begin
try
aPathName:= ExtractFileDir(fileName);
if not DirectoryExists(aPathName) then
ForceDirectories(aPathName);

如何使用第三方控件

如何使用第三方控件!!!!在线急等
主要解答者: love4cz 提交人: ggdw
感谢: jholdnew、jholdnew、love4cz、love4cz、ggdw、jholdnew、dreamfan
审核者: windindance 社区对应贴子: 查看
A :

本人下载了一些控件,但不知如何加载到delphi6中,请各位大虾帮忙
---------------------------------------------------------------

open -
打开dpk文件!
然后install!
成功……!
---------------------------------------------------------------

运行delphi!
点击file-open
找到你的控件目录
打开dpk文件
点击install按钮
安装完成!
---------------------------------------------------------------

一个很简单的web浏览器的原代码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ToolWin, ComCtrls, ImgList, StdCtrls, OleCtrls, SHDocVw,
ExtCtrls;

Delphi初学者应小心的六大陷阱

初学DelphiI的人,由于各种原因,对DelphiI中的许多概念不能很好的理解,并由此带来了许多的问题,或者是开发出的程序稳性不好,一会能运行,一会又不能运行;或者是遇到一个问题久思不得其解,还误以为是DelphiI自身的BUG,等等这些,浪费了我们大量的时间、精力,也影响了我们的开发效率。

  那么如何才能避免这些错误了,尽量少走弯路了?笔者从事DelphiI开发多年,下面就把我的经验总结介绍给大家,希望帮助到初学DelphiI的朋友。

  问题一:对类的概念理解不到位,程序开发中不能灵活运用。请看下面的程序:

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, shellApi;

Delphi批量清空edit中的数据代码

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i := 0 to 200 do
begin
if FindComponent(Format('Edit%d',[i])) <> nil then
TEdit(FindComponent(Format('Edit%d',[i]))).Clear;
end;
end;

有关时间限制使用和软件注册的设计的一个demo

//有关时间限制使用和软件注册的设计!

如何安装delphi控件

在DELPHI中怎麼安裝控件

由於組件提供的方式不同,所以安裝的方法也是不一樣的,下面就目前常見的各種形式的組件的安裝方法介紹一下。

Delphi如何导入excel数据

/var
//i_fri:integer;
var
i:integer;

begin

页面

Subscribe to RSS - 程序开发