自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

小印丶的笔记

点点笔记,方便你我他

  • 博客(150)
  • 收藏
  • 关注

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

raise Exception.CreateFmt('抛异常!!!'); // HourOfTheDay 今天的第多少个小时 24小时制 ShowMessage('现在是 ' + IntToStr(HourOfTheDay(Now)) + ' 点');Delphi 之 FileAge【文件最新的修改时间】位移运算【左移、右移】Delphi 工厂模式Delphi 观察者模式Delphi ClientDataSet.Filter 模糊查询Delphi 获取计算机名De.

2020-09-08 17:09:46 585

原创 学习 go-admin 框架(2)

小印丶学习 go-admin 框架(2)

2022-11-12 15:14:11 412

原创 学习 go-admin 框架(1)

小印丶学习 go-admin 框架(1)

2022-11-11 18:09:51 303

原创 Delphi 高精度计时

高精度计时器,计时精度是根据自己电脑硬件配置决定的,我目前的可以精确到 0.1 微秒。

2022-11-08 17:39:59 318

原创 Go 简单实现哈希表(取余法+拉链法)

一点点笔记,以便以后翻阅。

2022-09-27 18:19:22 112

原创 Go 简单实现双向链表

一点点笔记,以便以后翻阅。

2022-09-27 18:13:20 81

原创 力扣刷题[11、12、13] Go代码实现

力扣刷题[11、12、13] Go代码实现

2022-09-16 18:33:42 50

原创 力扣刷题[7、8、9] Go代码实现

力扣刷题[7、8、9] Go代码实现

2022-09-14 17:39:43 42

原创 力扣刷题[6] Go代码实现

6. Z 字形变换

2022-09-13 18:36:43 47

原创 力扣刷题[5] Go代码实现

力扣刷题[5]

2022-09-09 00:01:52 35

原创 力扣刷题[3、4] Go代码实现

力扣刷题

2022-09-07 18:46:22 68

原创 Go 初识微信订阅号(测试号)

Golang 初识微信订阅号(接入测试号)

2022-08-21 22:38:30 137

原创 Delphi 快速排序

快速排序思路:> 1、快速排序是一种递归的写法> 2、其中需要在待排序的数组中找到一个 **基准值**(可以是待排序数组中任意一个数,一般为了方便就取数组从左往右数的第一个数)> 3、根据选定的 **基准值** 对数组中的其他数进行遍历比较,小于等于基准数的放在基准数的左边,大于基准数的放在基准数的右边> 4、这里的遍历不是从头到尾的遍历,而是用两个变量,分别代表**从左往右** 和 **从右往左** 的数组下标,依次往数组中心位置移动> 5、先**向前**(从右往左)移动找到 **小于等于**

2022-07-31 14:44:24 294

原创 刷题笔记 1

刷题笔记

2022-07-28 17:57:32 66

原创 Delphi 插入排序与希尔排序的比较

插入排序 与 希尔排序 比较

2022-07-27 15:36:04 62

原创 Delphi 插入排序

插入排序

2022-07-27 12:08:06 74

原创 Delphi 希尔排序

希尔排序

2022-07-26 19:09:45 95

原创 Delphi TStringList 存取数据

Delphi TstringList 存取数据

2022-07-25 11:24:17 257

原创 Delphi 通过字符串查找指定控件

Delphi 通过字符串查找指定控件

2022-06-10 10:05:03 297

原创 Delphi 判断文件是否为UTF-8-BOM的文件

Delphi 判断文件是否为UTF-8-BOM的文件

2022-06-09 10:24:49 194

原创 Delphi 之 FileAge【文件最新的修改时间】

RAD Studio 10.2.3 测试√procedure TForm1.Button_27Click(Sender: TObject);var i: Integer;begin i := FileAge('D:\AAA_A_Test\Log\test.txt'); Memo_1.Lines.Add('i = ' + DateTimeToStr(FileDateToDateTime(i))); i := FileAge('D:\AAA_A_Test\Log\test2.txt')

2022-02-24 11:56:59 299

原创 位移运算【左移、右移】

左移:【Delphi 对应符号 shl】【C++ 对应符号 <<】举个栗子:i = 100;将 i 左移 4位【Delphi 对应 i shl 4】【C++ 对应 (i << 4)】方法一:100 转换2进制为 1100100将 i 左移4位就是需要将转换为二进制后的数后面增加 4 个0即 11001000000在将这个二进制数转换为十进制结果 = 1600方法二:将 i 乘以 2 的需要位移数的次方结果 = i * 2^4 = 100 * 2.

2021-11-29 12:17:07 366 2

原创 Delphi 工厂模式

RAD Studio 10.2.3 测试√运行结果:使用方法:procedure TDesignPattern.Button_FactoryPatternClick(Sender: TObject);var mBigBoss: TBigBoss; mFactory: IFactoryMgr;begin mBigBoss := TBigBoss.Create; mFactory := mBigBoss.GetFactory('小米手机'); mFactory.Make;

2021-11-09 11:52:25 291

原创 Delphi 观察者模式

RAD Studio 10.2.3 测试√运行结果:使用方法:procedure TDesignPattern.Button_ObserverPatternClick(Sender: TObject);var mObj001: TObserverObject_001; mObj002: TObserverObject_002;begin // 被观察者001进行创建 mObj001 := TObserverObject_001.Create; Memo_Log.Lines

2021-11-04 15:36:17 122

原创 Delphi ClientDataSet.Filter 模糊查询

RAD Studio 10.2.3 测试√如果不清楚 ClientDataSet 怎么给数据的可以参考 :Delphi ClientDataSet + DataSource在 DBGrid 中展示数据提示:字段1:这是数据中的一个字段,进行筛选的就是这一列中的值Edit_1.Text:这个就是模糊查询的值begin with ClientDataSet_1 do begin// Close;// Filter := '字段1=''' + '234' + '''

2021-10-27 18:08:44 575

原创 Delphi 获取计算机名

RAD Studio 10.2.3 测试√procedure TForm_Tips.Button_GetComputerNameClick(Sender: TObject); {取得计算机名} function ComputerName: string; var CNameBuffer: PChar; fl_loaded: Boolean; CLen: ^DWord; begin GetMem(CNameBuffer, 255); New(CLen

2021-10-24 22:11:58 257

原创 Delphi 将方法以参数的形式传递

RAD Studio 10.2.3 测试√结果图:代码:procedure TForm_Tips.Button_ParamIsFuncClick(Sender: TObject);type // 需要先声明一个方法的类型 TFuncType = function(ANum: Integer): Integer; function Func01(n: Integer): Integer; begin Result := n + 1; end; function

2021-10-19 10:58:07 58

原创 Delphi 当前时间添加指定秒后的时间

RAD Studio 10.2.3 测试√procedure TForm_Tips.Button_IncSecondClick(Sender: TObject);var mDateTime: TDateTime;begin mDateTime := Now; Memo_Log.Lines.Add('当前时间:' + DateTimeToStr(mDateTime)); mDateTime := IncSecond(mDateTime, 600); Memo_Log.Lines.

2021-09-29 15:18:49 339

原创 Delphi 写XML文件

RAD Studio 10.2.3 测试√// uses Xml.XMLDoc, Xml.XMLIntfprocedure TForm_Tips.Button_WriteXMLFileClick(Sender: TObject);var mFileName: string; mDocument: IXMLDocument; mMainNode: IXMLNode; mNode, mTmpNode: IXMLNode;begin mFileName := ExtractFile

2021-09-09 11:28:16 241

原创 Delphi 读XML文件

RAD Studio 10.2.3 测试√示例:<?xml version="1.0" encoding="UTF-8"?><Persons> <test>测试内容</test> <Person> <Name>小印01</Name> <Age>22</Age> <Sex>男</Sex> </Person> <

2021-09-08 18:37:36 813

原创 Delphi 金额转大写

RAD Studio 10.2.3 测试√使用实例procedure TForm_Tips.Button_MoneyConvertClick(Sender: TObject);var mMoneyNum: Real;begin mMoneyNum := 00000000; // 零元整 Memo_Log.Lines.Add(MoneyConvert(mMoneyNum)); mMoneyNum := 00100053; // 壹拾万零伍拾叁元整 Mem

2021-09-07 17:27:32 230

原创 Delphi 文件操作 AssignFile()

RAD Studio 10.2.3 测试√procedure TForm_Tips.Button_AssignFileClick(Sender: TObject);var FileName: string; i: Integer; Str: string;begin FileName := ExtractFileDir(ParamStr(0)) + '\Test.csv'; // 注意 DataFile 不能再方法中进行声明 // 将 FileName 文件与变量 DataF

2021-08-31 16:38:56 875

原创 Delphi 字符串转十六进制

RAD Studio 10.2.3 测试√procedure TForm_Tips.Button_StrToHexClick(Sender: TObject); function StrToHex(s: string): string; var i, j: Integer; begin Result := ''; for i := 1 to Length(s) do begin j := Integer(s[i]); Result

2021-08-27 12:19:35 723

原创 Delphi 解析JSON[superobject.pas]

RAD Studio 10.2.3 测试√打印结果小学一年级[{"Sex":"男","Name":"小印01"},{"Sex":"女","Name":"小印02"}]{"Sex":"男","Name":"小印03"}{ "Sex": "男", "Name": "小印03"}======================这个 JSON 数组的长度: 2{"Sex":"男","Name":"小印01"}字段:Sex Value: 男{"Sex":"女","Name":"小印02"

2021-08-05 18:17:50 859 2

原创 Delphi 线程类模板

RAD Studio 10.2.3 测试√unit uTest;interfaceuses System.SysUtils, System.Classes;type TUserBase = class(TThread) protected procedure Execute; override; public constructor Create; destructor Destroy; override; end;var G_UserBa

2021-07-16 15:38:11 80

原创 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 529

原创 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 268

原创 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 1176

原创 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 362 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 172

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除