UC知道delphi登陆问题很急
来源：百度知道 编辑：UC知道 时间：2024/06/02 14:25:01
我调试一个程序在登陆时总是说列表索引越界
是不是就是说我的数据库中没有我所输入的用户名
下面是我的代码：
procedure Tmain_form.FormShow(Sender: TObject);
var
MyList:TstringList;
TmpDir:string;
i:integer;
done:boolean;
begin
//cycle:=true;
islogin:=true;
login_form.ShowModal;
if not islogin then
begin
// close;
application.Terminate;
exit;
end;
try
login_form.Release;
application.CreateForm(Ttwelcome,twelcome);
twelcome.Show;
TmpDir:=ExtractFileDir(Application.ExeName);
done:=false;
以上只是出现问题的代码
是不是就是说我的数据库中没有我所输入的用户名
下面是我的代码：
procedure Tmain_form.FormShow(Sender: TObject);
var
MyList:TstringList;
TmpDir:string;
i:integer;
done:boolean;
begin
//cycle:=true;
islogin:=true;
login_form.ShowModal;
if not islogin then
begin
// close;
application.Terminate;
exit;
end;
try
login_form.Release;
application.CreateForm(Ttwelcome,twelcome);
twelcome.Show;
TmpDir:=ExtractFileDir(Application.ExeName);
done:=false;
以上只是出现问题的代码
【MyList:TstringList;】问题很大可能出在这个上面。我用TstringList的时候也稍不注意就出现索引越界问题的。
你给的代码不全，无法判断，因为你给的代码段不会出现索引越界问题。问题肯定在其他地方。你定义的MyList，哪里用到了？就去哪里检查。如果可以的话你给我发消息，我把邮箱给你。你吧代码发我邮箱，我给你看看。
是不是你再登录校验的时候出现错误了？这些代码不全呀
你说的是一种可能,没看到你具体的代码,不好下结论