redhat588 - 博客园

2020年5月6日

摘要：易飞ERP有个非常不好的地方，就是单据审批非常不好用，进入移动互联网时代，手机不能审批怎么办？博主提供一种解决思路，请看视频： https://www.bilibili.com/video/BV1G54y1X7KN/ 阅读全文

posted @ 2020-05-06 14:55 redhat588 阅读(713) 评论(0) 推荐(0)

2020年5月3日

摘要：通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表. uses System.Rtti; //TRttiContext.GetTypes procedure TForm1.Button1Click(Sender: TObject); v 阅读全文

posted @ 2020-05-03 13:47 redhat588 阅读(652) 评论(0) 推荐(0)

Delphi XE - GetHomePath - 获取用户程序数据目录

摘要： uses System.IOUtils; procedure TForm1.btn3Click(Sender: TObject); var S: string; begin { 三种方法结果一致: C:\Users\Administrator\AppData\Roaming } S := GetHo 阅读全文

posted @ 2020-05-03 11:37 redhat588 阅读(535) 评论(0) 推荐(0)

Delphi XE - TGuidHelper

摘要： procedure TForm1.btn2Click(Sender: TObject); var G: TGUID; S: string; bs: TBytes; begin G := G.NewGuid; S := G.ToString; //{9B60BA3F-8EE5-448F-BC9B-64 阅读全文

posted @ 2020-05-03 11:26 redhat588 阅读(262) 评论(0) 推荐(0)

Delphi XE -TCharHelper

摘要： // 它们定义在 System.Character, 它可以彻底替代同单元的 TCharacter 结构体. 主要方法有: function IsControl: Boolean; function IsDigit: Boolean; function IsHighSurrogate: Boolea 阅读全文

posted @ 2020-05-03 11:19 redhat588 阅读(554) 评论(0) 推荐(0)

2020年4月24日

多线程编程

摘要：先记录，再学习。 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 阅读(216) 评论(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 阅读(474) 评论(0) 推荐(0)