小印丶-CSDN博客

原创 Delphi ClientDataSet + DataSource在 DBGrid 中展示数据

RAD Studio 10.2.3 测试√procedure TForm_DBControl.Button_AppendClick(Sender: TObject);begin ClientDataSet_1.Append; with ClientDataSet_1.Fields do begin FieldByName('字段1').AsString := '追加1'; FieldByName('字段2').AsString := '追加2'; FieldByN

2021-06-05 16:35:43 1080

原创 Delphi 自定义时间与当前时间间隔天数

RAD Studio 10.2.3 测试√procedure TForm_Tips.Button_ComDateTimeClick(Sender: TObject);var mTime1, mTime2: TDateTime; mDay: Integer;begin mTime1 := Now; mTime2 := VarToDateTime('2021-06-01 08:00:00'); Memo_Log.Lines.Add(FormatDatetime('YYYY:MM

2021-06-05 15:20:51 458

原创 Delphi 建立JSON 数据之 TJSONObject

RAD Studio 10.2.3 测试√procedure TForm1.Button_SetJSONDataClick(Sender: TObject);var // uses System.JSON; mJSON, mTempJSON: TJSONObject; mJSONArray: TJSONArray;begin mJSON := TJSONObject.Create; mJSONArray := TJSONArray.Create; try mJSON

2021-05-27 19:34:29 2000

原创 Delphi 绘图相关Demo

RAD Studio 10.2.3 测试√说明：下面的内容启发来源于万一老师的博客，没事多翻一翻万一老师的博客还是会有很多收货的程序界面主要单元 [ uFrmDrawingFunction.pas ]unit uFrmDrawingFunction;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, V

2021-05-19 17:54:18 845 1

原创 Delphi 简单的编译指令

RAD Studio 10.2.3 测试√uCompile_ZhiLing.pas// 编译指令unit uCompile_ZhiLing;interfaceuses System.SysUtils;type TCompile_ZhiLing = class public constructor Create(); destructor Destroy; override; /// <summary> /// 判断操作系统

2021-05-18 11:53:54 342

原创 Delphi 雪花ID

RAD Studio 10.2.3 测试√单元文件unit uAlgorithm;interfaceuses Winapi.Windows, System.DateUtils, System.SysUtils;type // 算法 TAlgorithm = class end; // 雪花算法 { 雪花算法简单描述：+ 最高位是符号位，始终为0，不可用。+ 41位的时间序列，精确到毫秒级，41位的长度可以使用69年。时间位还有一个很重要的作用是可以根据时

2021-05-06 17:55:10 334

原创 Delphi 获取GUID + 字符串替换函数 StringReplace()

RAD Studio 10.2.3 测试√获取GUIDprocedure TForm1.Button_GUIDClick(Sender: TObject);var id: TGUID; mID: string;begin // 需要uses Winapi.ActiveX if CoCreateGuid(id) = 0 then mID := GUIDToString(id); Memo1.Lines.Add(mID); while True do begin

2021-05-02 11:18:37 389

原创 Delphi 哈希 THashedStringList

RAD Studio 10.3.3 测试√procedure TForm1.Button_HashedStringListClick(Sender: TObject);var mHash: THashedStringList; // uses IniFiles; i: Integer;begin // 哈希表是通过哈希值来访问的,通过一定的内存浪费获取检索速度,在检索项时是不需要逐一检索。 mHash := THashedStringList.Create; try

2021-04-29 16:42:49 498 1

原创 Delphi 类引用 class of

RAD Studio 10.3.3 测试√对于这些关系，用我自己的理解，可以说成下面的关系：(不能肯定我理解是对的，也希望大佬可以指点指点)TClassRef = class of TXiaoyin; 用我的话来解释就是老父亲的孩子是老父亲的一部分好比：TXiaoYin 代表某家庭中的老父亲【可以明确的知道老父亲是谁】TClassRef 代表某家庭中老父亲的所有孩子【这是泛指不能确定，只知道是这个老父亲的孩子】TXiaoYin1 代表某家庭中老父亲的第一个孩子【可以明确的知道这个

2021-04-27 17:24:23 367

原创 Delphi TStringList.Find()

RAD Studio 10.3.3 测试√这个 Find 是自己仿照加上自己的理解写的仿照来源于：System.Classes 中的 Find有什么不对的地方还希望看到的大佬能够指点一些，感谢// 使用这个方法的前提是，List中的内容必须是有序的而且还是从小到大，不然只能查找到中间下标的那个值function Find(const AStr: string; var AIndex: Integer; mList: TStringList): Boolean; function

2021-04-25 12:36:29 1170

原创 Delphi Assert() 断言

RAD Studio 10.3.3 测试√begin Assert(True); Memo1.Lines.Add('断言通过1'); Assert(False, '这里写错错误提示'); Memo1.Lines.Add('断言通过2');end;一点点笔记，以便以后翻阅。

2021-04-20 11:43:53 234

原创 Delphi 线程相关Demo

RAD Studio 10.3.3 测试√这个Demo还有一些问题，希望有可以帮助萌新解惑的大佬，能够给指点指点，谢谢了。PS:线程暂停的时候如果执行后面的终止线程，查看调试台的线程出现下面的结果1、自动释放的情况：线程没有释放，程序跑的路线是释放成功的路线2、手动释放的情况：程序在一定情况下会卡死，目前没有找到卡死的契机窗体大致的样子控件相关功能代码uses uThread;var m_Thread1, m_Thread2, m_Thread3, m_Threa

2021-04-16 18:50:15 306

原创 Delphi TStringList 常用功能

RAD Studio 10.3.3 测试√var G_StrList: TStringList;procedure TForm1.FormCreate(Sender: TObject);begin G_StrList := TStringList.Create;end;procedure TForm1.FormDestroy(Sender: TObject);begin G_StrList.Free;end;// 显示procedure TForm1.Button_Li

2021-04-15 16:35:50 335

原创 Delphi MD5加密

RAD Studio 10.3.3 测试√uses IdHashMessageDigest, IdGlobal;procedure TForm1.Button_1Click(Sender: TObject);var mHashMD5: TIdHashMessageDigest5; str: string;begin mHashMD5 := TIdHashMessageDigest5.Create; try str := IdGlobal.IndyLowerCase(m

2021-04-09 11:42:21 762

原创 Delphi 判断是否是数字

RAD Studio 10.3.3 测试√var num: Integer;begin if TryStrToInt('小印丶222', num) then ShowMessage('是数字，并且赋值给了 num = ' + IntToStr(num)) else ShowMessage('不是数字'); if TryStrToInt('2234', num) then ShowMessage('是数字，并且赋值给了 num = ' + IntToStr(nu

2021-03-31 18:13:00 975

原创新年篇之 Java

前言：有一段时间没有更新了，因为最近一直在学习，加上新年的到来，还没来得及整理今天是牛年新年的的第一天，大年初一，在这里祝大家新年快乐，身体健康，身体健康，身体健康（重要的事情说三遍，啊哈哈哈哈哈）总结：就说说今天我碰到的坑点吧，新年说说新事最近在学习Spring相关的一些框架，我在使用 IDEA 进行Demo的测试，发现有的时候报错的原因真的让人很难受比如刚才在写文件上传的Demo的时候，commons-fileupload和commons-io的坐标（包）都已经导了，但是服务器

2021-02-12 20:01:45 134 2

原创 IDEA 与 Navicat 互相中文乱码（数据库、IDEA设置都是 UTF-8）

这是一个令我难忘的故事！！！目录前言一、产生乱码问题一般可能会出现的几种情况1. 查看是不是是因为 IDEA 编码设置的问题【我感觉这种情况应该很少，默认的就可以】2. 查看数据库的编码是否正确【这个确实有必要核对一下】3. 查看代码中是否存在问题二、再说一下我这个不属于一般范畴的情况1. cmd来看看，到底谁的数据才是正确的2. 既然我们已经认定是Navicat 的问题，我们就对Navicat 下手解决步骤：↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑ ↑前言这还得从昨天学习的时候说起，我是在跟着视频学

2021-02-01 21:41:12 1710 12

原创 Java 掉坑之The server time zone value ‘�й��׼ʱ��‘ is unrecognized or represents more than one time zone

java连接mysql出现的问题，已解决√问题：The server time zone value ‘�й��׼ʱ��’ is unrecognized or represents more than one time zone解决方案：这是因为l我使用的mysql是8.x的版本，出现了时区的错误，好像使用mysq6.X+的版本都需要在URL后面添加：serverTimezone=UTC下面是我添加后的dataSource.setJdbcUrl("jdbc:mysql://lo

2021-01-26 23:18:09 164

原创 Java 基础【05】

本文代码仓库地址： gitee码云CSDN笔记仓库地址目录final 关键字【Main.java】final关键字修饰的类【MxyFinal.java】这是一个普通的类【MxyOrdinary.java】final 关键字【Main.java】package cn.xiaoyin98.Demo14;/** * @author 小印丶 * @date 2021-01-23 21:32 * * final 关键字 * 常见四种用法: * 1、可以用来修饰一个类 * 2、可以用来修饰一

2021-01-23 23:24:23 75 1

原创 Java 基础【04】

本文代码仓库地址： gitee码云CSDN笔记仓库地址目录多态【Main.java】父类:动物类【MxyZoo.java】子类：狗狗类继承动物类【MxyDog.java】子类：猫咪类继承动物类【MxyCat.java】运行结果多态【Main.java】package cn.xiaoyin98.Demo13;/** * @author 小印丶 * @date 2021-01-22 20:31 * * 多态 * * 代码当中体现多态性，其实就是：父类引用指向子类对象 * 语法:

2021-01-23 19:21:05 112 3

原创 Java 基础【03】

本文代码仓库地址： gitee码云CSDN笔记仓库地址目录使用接口【Main.java】接口【MxyInterface.java】接口的实现类【MxyInterfaceImpl.java】使用接口【Main.java】package cn.xiaoyin98.Demo12;/** * @author 小印丶 * @date 2021-01-21 21:38 * * 接口： * 接口是一种引用数据类型，最终要的内通话就是其中的抽象方法 * * 注意： * 1、接口中不能有静态

2021-01-21 23:12:20 104

原创 Delphi 位图bmp存为jpg +文件转Base64

RAD Studio 10.2.3 测试√usesVcl.Graphics, Vcl.Imaging.jpeg, System.Classes, Soap.EncdDecd;位图bmp存为jpg：/// <summary>/// 位图保存为jpg文件/// </summary>/// <param name="bmp">位图信息</param>procedure mBmpToJpegFile(bmp: TBitmap);var m

2021-01-21 15:09:35 669

原创 Delphi 线程TThread中的Synchronize()方法

RAD Studio 10.3.3 测试√关于线程也可以看看这篇：Delphi 线程的开始、暂停、继续、停止目录窗体情况：代码：小知识：RTL（Run-Time library），运行时库，包括System、SysUtils、Math三个单元，提供的函数与语言、编译器、操作系统及进程有关，RTL提供类之间继承于 TObject 和 RTL内部的类VCL（Visual Component Library），可视化组件库，包括Graphics、classes、Controls等与类和组件

2021-01-21 10:50:17 3968

原创 Java 小练习【发红包】

本文代码仓库地址： gitee码云CSDN笔记仓库地址目录发红包小练习【Main.java】父类：用户类【MxyUser.java】群主类【MxyLord.java】成员类【MxyMember.java】发红包小练习【Main.java】package cn.xiaoyin98.Demo11;import java.util.ArrayList;/** * @author 小印丶 * @date 2021-01-20 22:31 * <p> * 小练习：群主给群员发红包

2021-01-21 00:10:05 168

原创 Java 基础【02】

本文代码仓库地址： gitee码云CSDN笔记仓库地址目录抽象类和抽象方法【Main.java】父类：动物类【MxyZoo.java】子类：狗狗类继承父类动物类【MxyDog.java】子类：猫咪类继承父类动物类【MxyCat.java】抽象类和抽象方法【Main.java】package cn.xiaoyin98.Demo10;/** * @author 小印丶 * @date 2021-01-19 23:15 * * 抽象类和抽象方法 * * 抽象方法： * 1、就是加

2021-01-21 00:03:17 151 2

原创 Java 之【记得来康康我】

目录一、基础1. Java 基础【01】附加小知识一、基础1. Java 基础【01】Java 基础【01】1、Demo01Hello World【HelloWorld.java】数组 Array【MyArrayDemo.java】2、Demo02创建类对象【Main.java】类【MxyPerson.java】3、Demo03Random类：随机数【Main.java】4、Demo04集合 ArrayList【Main.java】5、Demo05String 类【Ma

2021-01-19 23:10:49 111

原创 Java 基础【01】

本文代码仓库地址： gitee码云CSDN笔记仓库地址这是几天的内容，内容有点多，都是很基础的部分，和前面C++的基础笔记查不了太多，都可以相互借鉴目录1、Demo01Hello World【HelloWorld.java】数组 Array【MyArrayDemo.java】2、Demo02创建类对象【Main.java】类【MxyPerson.java】3、Demo03Random类：随机数【Main.java】4、Demo04集合 ArrayList【Main.java】5、Demo05Str

2021-01-19 23:04:19 241

空空如也

空空如也