小印丶的笔记

左移：【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.

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;

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

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

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

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

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.

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

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> <

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

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

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

RAD Studio 10.2.3 测试√目前收集的方法或者常量都是经过自己查找单元后验证留下的部分，可以查到的方法都保留了，错误的或者找不到已经整理和删除，关于介绍不能保证和方法是百分百对应，下面你的内容需要长时间进行更新维护，有大佬知道不对的欢迎私聊我更正，感谢uses DateUtils;方法 or 常量介绍CompareDate比较两个日期时间值日期部分的大小CompareDateTime比较两个日期时间值的大小CompareTime比较两个日期时

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"

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

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

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

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

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

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> /// 判断操作系统