delphi读取INI配置文件内容，然后进行判断。

Question

小弟写了小程序，用INI文件保存一些数据如
      newinifile:=Tinifile.Create(Filename);
      newinifile.WriteString('1','admin','12345');//内容分别为ID NAME PASSWORD
现在想做个判断 只读取NAME和PASSWORD 应该用什么方法可以进行登陆判断！

Answer 1

ini.readsections('1', StringList);
读取节点为1的数据内容.
再根据StringList里面的值来读取出PWD,
最后再判断不过我觉得你可以换一种写的方式,没必要这么写啊.
[1]
name=admin
pwd=12345

Answer 2

[1] 
name=admin 
pwd=12345的这样的方法是什么？~小第刚接触DELPHI！

Answer 3

[1] 
name=admin 
pwd=12345
上面是在INI文件里的显示格式，1是段，name和pwd是参数，也可以自己设。后面是参数的值。
newinifile.WriteString('1','admin','12345');
你是在INI里写进了下面格式
［1］
admin＝12345
你看是吗

Answer 4

非常感谢，我已经成功写入INI格式
[1] 
name=admin 
pwd=12345 1.但是如果我多建几个用户后，如何和登陆时的用户名和密码进行判断！
2.我想把INI里面的那个域的编号 就是现在的【1】从第2位起开始自动累加，该怎么写！？

Answer 5

由于newinifile.WriteString('1',name,'admin'); 
newinifile.WriteString('1',password,'12345'); 
写2次才能写入INI下面的格式[1]
name=admin
password=12345所以COUNT不是每次加1，而是隔一次加1麻烦大家帮我想下！谢谢！

Answer 6

或者用读文本文件的方式去读INI,逐行去读直到读到‘name=你要判断的名字’这行

Answer 7

专门用一个ini文件保存账号密码[1]
name=admin
password=123[2]
name=admin
password=123…………读取的时候取出所有Index即可,建议你看看IniFiles的一些方法……

Answer 8

这么多用户最好还是不要用INI保存
保存到数据KU吧

Answer 9

写入
newinifile:=Tinifile.Create(Filename); 
newinifile.WriteString('1','username','12345');//
newinifile.WriteString('1','userpass','12345');//
newinifile.free;
读取newinifile:=Tinifile.Create(Filename); 
edit1.text:=newinifile.readString('1','username','12345');//
edit2.text:=newinifile.readString('1','userpass','12345');//
newinifile.free;

Answer 10

你 的读取是不是有点问题??? 你还不如直接填到TEXT里呢

Answer 11

如果是单用户的话可以这种格式
[Main]
Name=用户名
Pass=密码
(直接读取Main下的Name字段和Pass字段)多用户可以
[Main]
用户1=密码1
用户2=密码2
用户3=密码3
...
(如果用户名在Main下存在,则读取其值 进行判断)关于如何读取,这个还是仔细学习一下 TiniFile 吧.  一点不难. 

Answer 12

CnWizards有个INI读写单元生成向导~

Answer 13

edit1.text:=newinifile.readString('1','username','12345');// 

Answer 14

保存
 ini:=Tinifile.Create('C:/aa.ini'); 
 ini.WriteString('MySection','ID','1');
 ini.WriteString('MySection','Name','Admin');
 ini.WriteString('MySection','PWS','12345');
 ini.Free
读取
var id,name,pws:String;
begin
 ini:=Tinifile.Create('C:/aa.ini'); 
 id:=ini.ReadString('MySection','ID','');
 name:=ini.ReadString('MySection','Name','');
 pws:=ini.ReadString('MySection','PWS','');
 ini.Free
 if ......
end;写是这样写的。
但是密码这种事情，不建议使用Ini文件。至少要加一层加密吧。

Answer 15

procedure TForm1.DsFancyButton1Click(Sender: TObject);   //保存
var
  f1: Textfile;
begin
   try
           assignfile(f1, '1.txt');
           if Fileexists('1.txt') then
             Begin
               Append(f1);
               writeln(f1,edit1.text );
               writeln(f1,edit2.text );
             End
           Else
             Begin
                rewrite(f1);
                writeln(f1,edit1.text );
                writeln(f1,edit2.text );
             End;
   Finally
           CloseFile(f1);
  End;
End;
procedure TForm1.DsFancyButton2Click(Sender: TObject);//读取
var
  f1: Textfile;
  str: string;
  Memo1: Tmemo;
begin
   Memo1:=Tmemo.Create(self);
   Memo1.Parent :=Form1;
   Memo1.Visible :=False;
   try
           assignfile(f1, '1.txt');
           if Fileexists('1.txt') then
             Begin
               reset(f1);
               while Not Eof(f1) do
                 Begin
                   readln(f1,str);
                   Memo1.Lines.Add(str);
                 End
             End
           Else
             Begin
                rewrite(f1);
                writeln(f1,edit1.text );
                writeln(f1,edit2.text );
             End;
   Finally
           CloseFile(f1);
  End;
  Showmessage(Memo1.Text );
End;
end.

Answer 16

INI...嘿嘿.!
网上这类例子很多的耶

Answer 17

Ini的操作比较灵活的，可以有多个Section的，你可以考虑在Section上做个标记，这样就以存储多个类似结构的东西了

Answer 18

    鉴于你的情况，我推荐你用ACCESS，ACCESS实现你的需求非常容易，推荐你用ACCESS还有一个重要原因，就是ACCESS可以加密，帐号密码这东东你放在INI文件里，安全吗？
    ACCESS，你最好的选择，用DELPHI连接起来不难的。