在delphi中能否通过ini文件实现多个用户的登录功能？
这是一个用户的登录功能实现！
uses inifiles, Unit2;
var sUser,sPwd,u,p:string;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);


var
Conini:TiniFile;

begin
Conini:=TiniFile.Create( 'c:\my.ini ');
//写
Conini.WriteString( 'Parameters ', 'user ', 'lin);
Conini.WriteString( 'Parameters ', 'password ', '000 ');

//读
Conini.WriteString( 'Parameters ', 'user ', 'cai ');
Conini.WriteString( 'Parameters ', 'password ', 'my ');

sUser:=Conini.ReadString( 'Parameters ', 'user ', ' ');
sPwd:=Conini.ReadString( 'Parameters ', 'password ', ' ');
Conini.Free;
u:=sUser;
p:=sPwd;
end;

procedure TForm1.exitClick(Sender: TObject);
begin
application.Terminate;
end;


procedure TForm1.loginClick(Sender: TObject);
begin
if u <> edit1.Text
then
begin
showmessage( 'no user ');
end
else if p <> maskedit1.Text
then begin
showmessage( 'wrong password ');
end
else

form2.Show;
end;



[解决办法]
可以，记录一个count，然后可以用
user0
user1
...
usern
这样记录，不过我认为这样做不好，如果用户多了就麻烦。
[解决办法]
搞个数组，如果用户多了就不用INI
改用SQL的哦
[解决办法]
Type
TUser = class
private
sUser:string;
sPwd:string;
u:string;
p:string;
.
.
.
public
.
.
.

end;

TForm1 = class(FForm)
private
UserList:TobjectList;
.
.
.
public
constructor create;
.
.
.

end;
impliment
constructor TForm1.create;
begin
UserList := TobjectList.create
.
.
.
end;

其他应用:
for i := 0 to (userlist.count -1) do
begin
userlist[i] := ...;
.
.
end;

[解决办法]
其他应用:
添加： userList.add(Tuser.create);

调用：
for i := 0 to (userlist.count -1) do
begin
userlist[i] := ...;
.
.
end;