delphi 三个消息函数的威力

本文整理自网络，侵删。

 
InputBox,InputQuery和ShowMessage函数的应用:

uses dialogs;
var s,s1:string;
b:boolean;
begin
s:=trim(Inputbox('NewPassword','Password','masterkey'));
b:=s<>'';
s1:=s;
if b then
b:=InputQuery('Confirm Password','Password',s1);
if not b or (s1<>s) then
ShowMessage('Password Failed');
end;
将以上代码运行一下，看看是什么效果？
 

相关阅读 >>

Delphi with do和for do语句

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi indy 10tidftp中的directorylisting使用

Delphi datetimepicker 宽度如何与Delphi自带style同步

Delphi opendialog1 添加文件打开多选模式

Delphi 提取html网页源文件纯文本函数可做采集

Delphi截获和干扰窗体最小化�p最大化和关闭消息

Delphi webbrowser载入自定义html内容并显示

Delphi shellexecute 打开文件夹

Delphi之tstrings和tstringlists类

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 三个消息函数的威力