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