随笔档案「2020年4月」 - redhat588

摘要：先记录，再学习。 TThread.CreateAnonymousThread(); //普通 TThread.Queue(); //队列 TThread.Synchronize(); //VCL 同步阅读全文

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

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 阅读(177) 评论(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 阅读(134) 评论(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 阅读(218) 评论(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 阅读(477) 评论(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 阅读(285) 评论(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 阅读(188) 评论(0) 推荐(0)

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 阅读(246) 评论(0) 推荐(0)