lazarus free pascal不支持匿名方法
时间:2021-01-26
本文章向大家介绍lazarus free pascal不支持匿名方法,主要包括lazarus free pascal不支持匿名方法使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2; type TMyProc = procedure of object; { TForm1 } TForm1 = class(TForm) CheckBox1: TCheckBox; Frame1_1: TFrame1; Label1: TLabel; procedure FormCreate(Sender: TObject); private procedure DoWork; public procedure Exec; end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure UpdateTime; begin while not Form1.CheckBox1.Checked do begin TThread.Synchronize(nil, @Form1.Exec); TThread.Sleep(500); end; end; procedure TForm1.FormCreate(Sender: TObject); type PThreadMethod = ^TThreadMethod; var Method: TMethod; Proc: TThreadMethod; procedure NestedProc; begin while not Form1.CheckBox1.Checked do begin TThread.Synchronize(nil, @Exec); TThread.Sleep(500); end; end; begin Method.Data := @Self; Method.Code := @NestedProc; //可以 Method.Code := @UpdateTime; //可以 Proc := PThreadMethod(@Method)^; TThread.ExecuteInThread(Proc); end; procedure TForm1.DoWork; begin while not CheckBox1.Checked do begin TThread.Synchronize(nil, @Exec); TThread.Sleep(500); end; end; procedure TForm1.Exec; begin Label1.Caption := DateTimeToStr(Now); end; end.
原文地址:https://www.cnblogs.com/Jiaojiawang/p/14332681.html
- asp.net web api 异常捕获
- asp.net web api 文件上传
- 使用MySQL正则表达式 __MySQL必知必会
- 史上最好用的免费翻蔷利器
- asp.net web api 接口安全与角色控制
- TensorFlow从0到1 | 第十五章 重新思考神经网络初始化
- asp.net web api 下载之断点续传
- apache2.4.x三种MPM介绍
- 没有自己的服务器如何学习生物数据分析(上篇)
- 【直播】我的基因组57:最简陋的祖源分析
- asp.net web api 使用Odata
- TensorFlow从0到1丨第十六篇 L2正则化对抗“过拟合”
- TensorFlow从0到1 | 第十七章 Step By Step上手TensorBoard
- C#要点
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- Windows和Linux实现远程桌面连接
- Ubuntu19.10开启ssh服务(详细过程)
- Ubuntu 18.04更换apt-get源的方法
- 浅谈Linux环境变量文件介绍
- linux创建线程之pthread_create的具体使用
- Ubuntu20.04安装搜狗输入法的详细步骤
- linux系统安装msf的过程详解
- Linux删除系统自带版本Python过程详解
- Linux时间子系统之时间的表示示例详解
- 如何在Linux中修改tomcat端口号
- centos7修改系统语言为简体中文的实现
- Linux 通过Rsync+Inotify实现本、异地远程数据实时同步功能
- linux实现猜数字小游戏源码
- linux编译kernel和svn版本冲突的解决办法
- 在 Ubuntu Linux 上安装 Oracle Java 14的方法