procedure TLoginFrm.btnokClick(Sender: TObject);
var
systemini :TIniFile ;
name,pass :String ;
begin
systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
name:=systemini.Readstring('user','name','');
pass:=systemini.Readstring('user','pass','');
if (trim(Edit1.Text)<>name) then
showmessage('输入的用户不正确!请重新输入!')
else
if (trim(Edit2.Text)<>pass) then
begin
showmessage('输入的密码错误,请确认密码!') ;
edit2.Clear;
end
else
begin
MainFrm.Show;
LoginFrm.Hide;
end;end;
1.if (trim(Edit2.Text)<>pass)中的trim的意思?<>的意思?整个句子怎么理2.var
systemini :TIniFile ;定义的意思?
3LoginFrm.Hide;意思?
var
systemini :TIniFile ;
name,pass :String ;
begin
systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
name:=systemini.Readstring('user','name','');
pass:=systemini.Readstring('user','pass','');
if (trim(Edit1.Text)<>name) then
showmessage('输入的用户不正确!请重新输入!')
else
if (trim(Edit2.Text)<>pass) then
begin
showmessage('输入的密码错误,请确认密码!') ;
edit2.Clear;
end
else
begin
MainFrm.Show;
LoginFrm.Hide;
end;end;
1.if (trim(Edit2.Text)<>pass)中的trim的意思?<>的意思?整个句子怎么理2.var
systemini :TIniFile ;定义的意思?
3LoginFrm.Hide;意思?
解决方案 »
- DBChart 怎么画竖线
- 初学delphi.想请教几个问题
- 数据包高手请进
- 请教高手Delphi中的窗体释放怎么解决?
- 随机函数?
- fastReport中,假如字段不存在会报错,怎么实现没有该字段就不打印该字段啊?
- 请问在delphi 中调用 BCB 写的DLL ,在编译的时候是否有什么需要设置的?
- 兄弟们,我老姐给兄弟介绍了个mm
- ★★★turbo pascal 7.0能生成exe文件吗?如何做?
- 用installshield作安装程序的时候,怎么样设置才可以做到在桌面上创建应用程序的快捷方式?
- 如何把FastReport生成的报表Email给客户。。。
- 同步显示歌词:如何让MediaPlayer9 ActiveX 识别这样的时间格式:00:38.10
整句就是比较Edit里的内容跟pass的内容是否相同
2 var systemini :TIniFile ;就是定义一个TIniFile的对象
3 隐藏LoginFrm这样窗体。这些都是基础,急也要找本书来看看。