您所在位置：主题：请教高手!!!!!!!!!!!!1
13567696058
[专家分：0] 发布于 2006-04-22 21:59:00
function Tfrmlogin.canpass:boolean;
var
f:file;
s1,s2,s3:string[30];
nr:integer;
begin
assignfile(f,'sys.ini') ;
reset(f,1);
repeat
blockread(f,s1,12,nr);
blockread(f,s2,12,nr);
blockread(f,s3,24,nr);
{用户名和密码正确}
if(s1=name.text)and(s2=pwd.text) then
begin
power:=s3;
closefile(f);
result:=true;
exit;
end;
unti1(nr=0);
closefile(f);
result:=false;
end;
请问这个函数定义有问题吗?
var
f:file;
s1,s2,s3:string[30];
nr:integer;
begin
assignfile(f,'sys.ini') ;
reset(f,1);
repeat
blockread(f,s1,12,nr);
blockread(f,s2,12,nr);
blockread(f,s3,24,nr);
{用户名和密码正确}
if(s1=name.text)and(s2=pwd.text) then
begin
power:=s3;
closefile(f);
result:=true;
exit;
end;
unti1(nr=0);
closefile(f);
result:=false;
end;
请问这个函数定义有问题吗?
