var MonInfo: TMonitorInfo;begin MonInfo.cbSize := SizeOf(MonInfo); GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_D...
Xe10.2测试可用。function SetScreen(x, y: Word): Boolean;var DevMode: TDeviceMode;begin Result := EnumDisplaySettings(nil,...
函数类型： 自定义函数函数说明： 数据集转Json字符串代码如下： function datasetToJsonStr(dataset: TDataSet): string;
// {"data":[{"field1":value1,"fi...
function IsLightColor(const AColor: TColor): Boolean;var r, g, b, yiq: integer;begin r := GetRValue(AColor); g := Get...
function TGPImageToBitmap(Image: TGPImage): TBitmap;var Graphics: TGPGraphics; Bitmap: TBitmap; P: Pointer; W, H: Ca...
函数类型： 自定义函数函数说明： 提取标签之间的字符串（重复标签）代码如下： Function sExtractBetweenTagsB(Const s, LastTag, FirstTag: string): string...
函数类型： 自定义函数函数说明： 计算一个字符串在另一个字符串中出现的次数代码如下： function Occurrences(const Substring, Text: string): integer;
var
o...
函数类型： 自定义函数函数说明： Delphi 自带的Json格式化方法代码如下： uses json, REST.Json;
{$R *.dfm}
function FormatJSON(json: String): String;...
函数类型： 自定义函数函数说明： 系统启动时加载程序代码如下： procedure RunAtStartup(keyName, AppPathName: string);
var
Reg: TRegistry;
begi...
函数类型： 自定义函数函数说明： 压缩流转Base64字符串代码如下：
function ZipStreamToBase64String(AStream: TStream): string;
var
B: TBytes...
函数类型： 自定义函数函数说明： 正则取文件名代码如下： function GetFileName(AName: string): string;
const
PATTERN_FILENAME = '(\\|/|:|"|...
函数类型： 自定义函数函数说明： 解密字符串函数代码如下： function DecryptString(src: String; Key: String): string;
var
KeyLen: Integer;
...
函数类型： 自定义函数函数说明： 加密字符串函数代码如下： function EncryptString(src: String; Key: String): string;
var
KeyLen: Integer;
...
函数类型： 自定义函数函数说明： 变体转Base64字符串代码如下： function VariantToBase64String(v: Variant): string;
var
vStream: TMemoryStr...
函数类型： 自定义函数函数说明： 压缩流转变体代码如下： function ZipStreamToVariant(Stream: TStream): Variant;
var
vStream: TMemoryStream...
函数类型： 自定义函数函数说明： Base64字符串转变体代码如下： function Base64StringToVariant(const s: string): Variant;
var
vStream: TMem...
函数类型： 自定义函数函数说明： Base64字符串转流并压缩代码如下： procedure Base64StringToZipStream(AStream: TStream; const s: string);
var
...
函数类型： 自定义函数函数说明： Base64字符串转流代码如下： procedure Base64StringToStream(AStream: TStream; const s: string);
var
B: TB...
函数类型： 自定义函数函数说明： 流转Base64字符串代码如下： function StreamToBase64String(AStream: TStream): string;
var
B: TBytes;
vS...
函数类型： 自定义函数函数说明： 字符串转流代码如下： procedure WriteStr(Stream: TStream; const s: string);
var
L: Integer;
begin
L :=...
