如何写*ini配置文件!急!(50分)

  • 主题发起人 主题发起人 wangchlai
  • 开始时间 开始时间
W

wangchlai

Unregistered / Unconfirmed
GUEST, unregistred user!
我是个delphi新手!在看数据库开发实例时他们使用的用户认证都是用一个ini文件来存放用户信息,但我不知道是怎么建的,弄了半天没弄懂,所以来讨教下~~!
 
楼上的可以说的详细一些吗?不太清楚
 
uses Tinifile
具体的读写网上很多现成的
 
DELPHI提供了一个类专门用来读写INI文件,即TINIFILE,不过使用时记得USES这个存放Tinifile类的单元inifiles,往下都太简单了,你自己去弄吧.要是还搞不定,放三百分出来我写一个DEMO给你.
 
with Tinifile.Create(self.linifile) do
begin
self.bitBack.SetFocus;
writestring('YWJ','URL',self.Edit1.Text);
writestring('MDWJ','URL',self.Edit2.Text);
writestring('JSQ','Sj',formatdatetime('hh:mm:ss',self.datetimepicker1.Time)) ;
if self.CheckBox1.Checked
then writeinteger('Note','YN',1)
else writeinteger('Note','YN',0);
end;
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,iniFiles{一定添加此单元};

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{配置文件操作函数:传入文件名字}
procedure OperateIniFiles(fileName:String);
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.OperateIniFiles(fileName: String);
var
ini :TiniFile;
vuserName,vPwd:string;
vid:integer;
begin
if not FileExists(FileName) then exit;//首先判断文件是否存在,若不存在则退出。
ini := TiniFile.Create(fileName);
try
{分别读取配置文件中的 区,字段,默认值一般为空,若数字可设为0或-1}
vuserName := ini.ReadString('Database','userName','');
vPwd := ini.ReadString('Database','Password','');
vid := ini.ReadInteger('Database','id','-1');
finally
{最后释放配置文件}
ini.Free;
end;
end;
 
第一步:建一个TXT文件,里面写入如:
[基本设置]
设置内容=...
...
保存时,再改成.ini的文件如:vod.ini
第二步:引用INI单元如:
USES iniFiles;
第三步:创建INI实例如:
IniF:Tinifile;
第四步:创建INI要引用的文件实例如:
var
Flag:String;
begin
IniF:=TiniFile.create('vod.ini');
Flag:=IniF.ReadString('基本设置','设置内容',Flag);
IniF.Free;
end;
 
多人接受答案了。
 

Similar threads

回复
0
查看
816
不得闲
回复
0
查看
1K
不得闲
D
回复
0
查看
755
DelphiTeacher的专栏
D
后退
顶部