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 取系统临时路径

Delphi实现分割文本文件的小程序

Delphi制作外挂的操作技巧

Delphi savelog 日志

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi 安装apk

Delphi 根据ip获取局域网mac

Delphi gb2312 编码转义url字符串

Delphi 删除文件函数支持撤销删除

Delphi将xm音乐文件嵌入自己的程序

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

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