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 判断指定字符串是否开头 startstext用法

Delphi 获取指定字符串后面的所有的字符串

Delphi tdictionary 简单用法

Delphi 设置richedit的行间距

Delphi 让socket支持域名上线

检测是否按下键盘或鼠标，如果超过5分钟没有操作则认为用户已经离开

Delphi字符串反转函数

Delphi jpg图像加文字水印

Delphi 提升Delphi 启动加载速度

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

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