redhat588 - 博客园

2020年4月24日

Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber

摘要： IsLetter: {是否是个字母; 范围 A..Z 与 a..z} IsUpper: {是否是个大写字母; 范围 A..Z} IsLower: {是否是个小写字母; 范围 a..z} IsDigit: {是否是个十进制数字; 范围 0..9} IsNumber: {是否是个数字符号; 范围包括 0 阅读全文

posted @ 2020-04-24 21:06 redhat588 阅读(186) 评论(0) 推荐(0)

Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换

摘要： uses Character; {Character.ToUpper} procedure TForm1.Button1Click(Sender: TObject); var c: Char; str: string; begin c := ToUpper('a'); str := ToUpper( 阅读全文

posted @ 2020-04-24 21:04 redhat588 阅读(138) 评论(0) 推荐(0)

复制整个文件夹(当然包括嵌套文件夹)

摘要：使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数: uses IOUtils; procedure TForm1.btn1Click(Sender: TObject); const SourceDir = 'C:\Temp1'; { 源文件夹必须存在阅读全文

posted @ 2020-04-24 20:55 redhat588 阅读(224) 评论(0) 推荐(0)

Delphi 的匿名多线程

摘要： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文

posted @ 2020-04-24 20:45 redhat588 阅读(490) 评论(0) 推荐(0)

Delphi 2009 泛型容器单元(Generics.Collections)[4]: TDictionary<T>

摘要： TDictionary 泛型字典，类似哈希表. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vc 阅读全文

posted @ 2020-04-24 10:17 redhat588 阅读(293) 评论(0) 推荐(0)

Delphi 2009 泛型容器单元(Generics.Collections)[3]: TStack<T>

摘要：跟着万一老师学习笔记 TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TStack 主要有三个方法、一个属性:Push(压栈)、Pop(出栈)、Peek(查看下一个要出栈的元素);Count(元素总数). unit Unit1; interfa 阅读全文

posted @ 2020-04-24 09:04 redhat588 阅读(204) 评论(0) 推荐(0)

2020年4月23日

Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue<T>

摘要： TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出.TQueue 主要有三个方法、一个属性:Enqueue(入列)、Dequeue(出列)、Peek(查看下一个要出列的元素);Count(元素总数). 1 unit Unit1; 2 3 inter 阅读全文

posted @ 2020-04-23 19:23 redhat588 阅读(255) 评论(0) 推荐(0)

2020年3月24日

Delphi XE 10.3.3 RSA 签名（IdSSLOpenSSLHeaders）

摘要： unit Unit1; interface uses System.NetEncoding, IdGlobal, IdSSLOpenSSL, IdSSLOpenSSLHeaders, EncdDecd, Winapi.Windows, Winapi.Messages, System.SysUtils 阅读全文

posted @ 2020-03-24 13:53 redhat588 阅读(2015) 评论(1) 推荐(0)

2020年3月23日

Delphi XE 与 Delphi 7 转换

摘要： str:string; Pchar(str)等于PAnsiChar(AnsiString(str)); 阅读全文

posted @ 2020-03-23 13:16 redhat588 阅读(435) 评论(0) 推荐(0)

2020年3月12日

Delphi Xe 10.3 钉钉SDK开发——审批流接口（获取表单ProcessCode）

摘要：开发钉钉审批流时，需要用到钉钉表单的Processcode，有两种方法：一、手动获取：管理员后台——审批——找到对应的表单：如图： ProcessCode后面就是了！二、接口获取：今天的重点，不说了，直接上代码。 function TDingtalkNew.GetProcessCode(Pr 阅读全文

posted @ 2020-03-12 09:23 redhat588 阅读(2625) 评论(2) 推荐(0)