文章列表

2020

09-14

var MonInfo: TMonitorInfo;begin MonInfo.cbSize := SizeOf(MonInfo); GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_D...

2020

09-14

Xe10.2测试可用。function SetScreen(x, y: Word): Boolean;var DevMode: TDeviceMode;begin Result := EnumDisplaySettings(nil,...

2020

08-21

函数类型: 自定义函数函数说明: 数据集转Json字符串代码如下: function datasetToJsonStr(dataset: TDataSet): string; // {"data":[{"field1":value1,"fi...

2020

06-15

function IsLightColor(const AColor: TColor): Boolean;var r, g, b, yiq: integer;begin r := GetRValue(AColor); g := Get...

2020

06-15

function TGPImageToBitmap(Image: TGPImage): TBitmap;var Graphics: TGPGraphics; Bitmap: TBitmap; P: Pointer; W, H: Ca...

2020

05-26

函数类型: 自定义函数函数说明: 提取标签之间的字符串(重复标签)代码如下: Function sExtractBetweenTagsB(Const s, LastTag, FirstTag: string): string...

2020

05-26

函数类型: 自定义函数函数说明: 计算一个字符串在另一个字符串中出现的次数代码如下: function Occurrences(const Substring, Text: string): integer; var o...

2020

05-26

函数类型: 自定义函数函数说明: Delphi 自带的Json格式化方法代码如下: uses json, REST.Json; {$R *.dfm} function FormatJSON(json: String): String;...

2020

05-26

函数类型: 自定义函数函数说明: 系统启动时加载程序代码如下: procedure RunAtStartup(keyName, AppPathName: string); var Reg: TRegistry; begi...

2020

05-26

函数类型: 自定义函数函数说明: 压缩流转Base64字符串代码如下: function ZipStreamToBase64String(AStream: TStream): string; var B: TBytes...

2020

05-26

函数类型: 自定义函数函数说明: 正则取文件名代码如下: function GetFileName(AName: string): string; const PATTERN_FILENAME = '(\\|/|:|"|...

2020

05-26

函数类型: 自定义函数函数说明: 解密字符串函数代码如下: function DecryptString(src: String; Key: String): string; var KeyLen: Integer; ...

2020

05-26

函数类型: 自定义函数函数说明: 加密字符串函数代码如下: function EncryptString(src: String; Key: String): string; var KeyLen: Integer; ...

2020

05-26

函数类型: 自定义函数函数说明: 变体转Base64字符串代码如下: function VariantToBase64String(v: Variant): string; var vStream: TMemoryStr...

2020

05-26

函数类型: 自定义函数函数说明: 压缩流转变体代码如下: function ZipStreamToVariant(Stream: TStream): Variant; var vStream: TMemoryStream...

2020

05-26

函数类型: 自定义函数函数说明: Base64字符串转变体代码如下: function Base64StringToVariant(const s: string): Variant; var vStream: TMem...

2020

05-26

函数类型: 自定义函数函数说明: Base64字符串转流并压缩代码如下: procedure Base64StringToZipStream(AStream: TStream; const s: string); var ...

2020

05-26

函数类型: 自定义函数函数说明: Base64字符串转流代码如下: procedure Base64StringToStream(AStream: TStream; const s: string); var B: TB...

2020

05-26

函数类型: 自定义函数函数说明: 流转Base64字符串代码如下: function StreamToBase64String(AStream: TStream): string; var B: TBytes; vS...

2020

05-26

函数类型: 自定义函数函数说明: 字符串转流代码如下: procedure WriteStr(Stream: TStream; const s: string); var L: Integer; begin L :=...
共3页
到第
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678