首页 > 编程 > Delphi > 正文

Delphi建立,抽取,存贮INI文件夹怎么设置密码的抓挠《一》

2020-01-31 20:52:40
字体:
源泉:转载
供稿:新浪股吧网友评说
一,有缺一不可了解INI文件夹怎么设置密码的结构有哪些:
;论文注释哪样加
[小节线名]
volatile关键字=值
...
INI文件夹怎么设置密码容许有if公式满足多个条件小节线,每种小节线又容许有if公式满足多个条件volatile关键字, “=”后面是该volatile关键字的值。 
值的类型有三种:字符串。整型阻值和布尔值。其中字符串存贮在INI文件夹怎么设置密码中时完了引号怎么打出来,布尔真值用1表示,布尔假值用0表示。 
论文注释哪样加以分号的作用“;”作文开头。 
二。概念
1,在Interface的Uses节增多IniFiles; 
2,在Var含氧量概念c部分人可见增多某某一行: 
myinifile:Tinifile;
就白璧无瑕对含氧量myinifile进行创设,张开,抽取,写下等操纵了。 
三,张开INI文件夹怎么设置密码
myinifile:=Tinifile.create('program.ini');
上峰这某某一行语句将会为含氧量myinifile与具体的文件夹怎么设置密码 program.ini建立搭头,就白璧无瑕通过含氧量myinifile,来读写program.ini文件夹怎么设置密码中的volatile关键字的值了。 
值得注意的是,如果括号中的文件夹怎么设置密码名由什么组成完了道破路径的话,那么着以此Program.ini文件夹怎么设置密码会储存在Windows目录中,把Program.ini文件夹怎么设置密码储存在应用次序初始化失败现阶段目录中的抓挠是:为其指定完整的路径及文件夹怎么设置密码名由什么组成。下棚代客车两条语句白璧无瑕毕其功于一役以此功
能: 
Filename:=ExtractFilePath(Paramstr(0))+'program.ini';
myinifile:=Tinifile.Create(filename);
四,抽取volatile关键字的值
本着INI文件夹怎么设置密码支持的字符串,整型阻值,布尔值三种数据类型,TINIfiles类供给了三种敌众我寡的有情人抓挠来抽取INI文件夹怎么设置密码中volatile关键字的值。 
假设已概念含氧量vs,vi。vb分别为string, integer,boolean类型。 
vs:=myinifile.Readstring('小节线名','volatile关键字',缺省值);
vi:=myinifile.Readinteger('小节线名','volatile关键字',缺省值);
vb:=myinifile.Readbool('小节线名','volatile关键字',缺省值);
其中缺省值为该INI文件夹怎么设置密码不存在该volatile关键字时返回的缺省值。 
五。写下INI文件夹怎么设置密码
TInifile类也供给了三种敌众我寡的有情人抓挠,向INI文件夹怎么设置密码写下字符串。整型数及布尔类型的volatile关键字。
myinifile.writestring('小节线名','volatile关键字',含氧量或字符串值);
myinifile.writeinteger('小节线名','volatile关键字',含氧量或整型阻值);
myinifile.writebool('小节线名','volatile关键字',含氧量或True或False);
当以此INI文件夹怎么设置密码不存在时,上峰的语句还会自动创设该INI文件夹怎么设置密码。 
六,删除volatile关键字
不外乎并用写下抓挠增多一期volatile关键字。Tinifile类还供给了一期删除volatile关键字的有情人抓挠: 
myinifile.DeleteKey('小节线名','volatile关键字');
七,小节线操纵
增多一期小节线并用写下的抓挠来毕其功于一役,删除一期小节线并用下棚代客车有情人抓挠: 
myinifile.EraseSection('小节线名');
另外Tinifile类还供给了三种有情人抓挠来对小节线进行操纵:
myinifile.readsection('小节线名',TStrings含氧量);可将指定小节线中的所有volatile关键字名抽取至一期字符串列表含氧量中; 
myinifile.readsections(TStrings含氧量);可将INI文件夹怎么设置密码中所有小节线名抽取至一期字符串列表含氧量中去。 
myinifile.readsectionvalues('小节线名',TStrings含氧量);可将INI文件夹怎么设置密码三拇指定小节线的所有行(包括volatile关键字,=,值)抽取至一期字符串列表含氧量中去。 
八,释放
在适于的位置用下棚代客车语句释放myinifile:
myinifile.distory;
九。一期病例
下面用一期简单的例证(如图在四边形abcd中),言传身教了建立,抽取,存贮INI文件夹怎么设置密码的抓挠。myini.ini文件夹怎么设置密码中包含有“次序参数”小节线,和户游戏名称(字符串),可否正规储户(布尔值)和已运作流光(整型值)三个volatile关键字。次序在窗体建立抽取这些数据,并在窗体释放时写myini.ini文件夹怎么设置密码。 
附zigbee的源次序清单 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IniFiles, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  myinifile:Tinifile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
filename:string;
begin
filename:=ExtractFilePath(paramstr(0))+´myini.ini´;
myinifile:=TInifile.Create(filename);
edit1.Text:= myinifile.readstring(´次序参数´,´户游戏名称´,´缺省的户游戏名称´);
edit2.text:= inttostr(myinifile.readinteger(´次序参数´,´已运作流光´,0));
checkbox1.Checked:= myinifile.readbool(´次序参数´,´可否正规储户´,False);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring(´次序参数´,´户游戏名称´,edit1.Text);
myinifile.writeinteger(´次序参数´,´已运作流光´,strtoint(edit2.text));
myinifile.writebool(´次序参数´,´可否正规储户´,checkbox1.Checked);
myinifile.Destroy;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.

此病例在Delphi6.0+WinXP下调试通过.
通告评说 公有条评说
户名: 明码:
检察码: 隐姓埋名通告

图片精选

Baidu