帮忙看一下:
flogin:=tflogin.create(application); try
if flogin.showmodal=mr0k then错误提示:[Error] login.pas(44): Undeclared identifier: 'mr0k'
flogin:=tflogin.create(application); try
if flogin.showmodal=mr0k then错误提示:[Error] login.pas(44): Undeclared identifier: 'mr0k'
就ok了
function getloginparams(var server,user,passwd:string):boolean;
var
flogin: Tflogin;
password: string;
begin
result:=false;
flogin:=tflogin.create(application); try
flogin.showmodal;
if modalresult=mr0k then
begin
server:=flogin.i_server.text;
user:=flogin.i_user.text;
password:=flogin.i_passwd.text;
password:=copy(passwd+passwd,1,10);
passwd:=encrypt(password,123);
result:=true;
end;
finally
flogin.free;
end;
end;
rs: Integer; rs := flogin.showmodal
if rs = mrok then
.......