登录
首页 » Delphi源码 » 用实例源码演示delphi Exit语句的使用

用实例源码演示delphi Exit语句的使用

于 2022-02-15 发布 文件大小:6.37 kB
0 183
下载积分: 2 下载次数: 1

代码说明:

用实例源码演示delphi Exit语句的使用,这个是比较基础的delphi语法实例了,以一个输入界面来演示exit函数的使用方法。演示了如果用户的输入不符合条件的话,则使用Exit语句结束执行,跳出程序,在如图所示的输入项中,任意一项输入不符合要求,则会直接退出程序的执行。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 枚举线程示例
    枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
    2022-08-16 10:03:07下载
    积分:1
  • delphi windows远程桌面链接,带代理功能,支持win2012
    delphi windows远程桌面链接源码,带代理功能,支持win2012 原创代码
    2023-02-10 08:55:03下载
    积分:1
  • Delphi 修改网络设置DNS地址
    Delphi 修改网络设置DNS地址,这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息,由用户指定待修改的新DNS地址,输入地址框,单击“修改”按钮即可完成修改。因此通过本程序,你可以了解许多注册表方面的操作技巧,以及网络设置相关知识。
    2022-02-14 09:59:16下载
    积分:1
  • Delphi 应用程序背景与桌面融合在一起
    Delphi 应用程序背景与桌面融合在一起,运行后,显示windows 桌面上的内容,显示壁纸,拖动窗口移动,桌面背景并不移动,好像是一个桌面相框一样,实现代码:   for i:=0 to ControlCount-1 do   if Controls[i] is TGraphicControl then   begin    //使TLabel组件不透明显示    Controls[i].perform(WM_PAINT, TLabel(Controls[i]).canvas.handle, 0);   end;
    2022-02-02 23:31:59下载
    积分:1
  • Delphi 程序控制关闭显示器
    Delphi 程序控制关闭显示器,不过我很好奇Delphi真能关闭显示器么?如果是用Delphi截断视频信号的输出,让显示器黑屏,这倒是有可能哦,但是让Delphi直接关闭显示器,有点不太可能吧?看了看代码,原来是这样:   begin   //关闭显示器   PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);   //打开显示器:   PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,0);   end;
    2022-04-01 11:14:50下载
    积分:1
  • Delphi添加图层蒙版
    Delphi添加图层蒙版,运行本程序后,在屏幕上添加一层阴影,透明度大概在70%左右,可看作是在屏幕上方蒙了一层薄膜的感觉,代码简单:procedure TForm1.FormCreate(Sender: TObject);   var    bTrans: Byte;    OldStyle: Integer;   begin    form1.Color := clGradientActiveCaption;    WindowState := wsMaximized;    BorderStyle := bsNone;    FormStyle := fsStayOnTop;    OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);    SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);    bTrans := 128;    SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);   end;
    2022-02-06 10:25:25下载
    积分:1
  • Delphi 监控剪贴板的文字内容
    Delphi 监控剪贴板的文字内容,这个监控程序可以监控复制到剪切板的文字信息,图片暂时不能监控到,具体的监控实现如下:   NextformHwnd:HWND;//观察链中下一个窗口句柄   procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;   //处理WM_DRAWCLIPBOARD消息过程    { Public declarations }   //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口   SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);   //查询剪贴板中特定格式的数据内容   if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then   begin    //处理剪贴板中内容    memo1.Lines.Clear;    memo1.Lines.Add(Clipboard.asText);   end;
    2022-01-22 10:48:45下载
    积分:1
  • 指纹开发
    中控指纹delphi开发实例,完成了指纹采集,数据库指纹模块保存和比对 (In the control fingerprint the delphi developers instances, complete fingerprint acquisition, the database fingerprint module save and comparison)
    2022-10-15 02:05:03下载
    积分:1
  • Delphi设计制作BMP图像的推拉动画效果
    Delphi设计制作BMP图像的推拉动画效果,类似PPT幻灯片中的图像飞入效果,图片本应该在窗口上显示,但经过本代码的控制后,图像由底部向上部被推出来,其实就是由下到上的图片滑动效果,有兴趣的可下载源码参考主文件代码。   注:本程序好像只对BMP图像有效,其它格式如JPG/gif等图像暂且不支持该动画效果。
    2022-02-03 23:17:10下载
    积分:1
  • 在Delphi中进行 YCrCb RGB 颜色值转换
    在Delphi中进行 YCrCb RGB 颜色值转换,载入一张测试图片,右侧显示的转换后的颜色图像,文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子,帮你了解一下YCrCb向RGB颜色值的转换过程,转换方法和思路,本源码中则是具体的实战代码,请下载后研究。
    2022-05-23 08:16:07下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载