函数类型： 自定义函数函数说明： 流转字符串代码如下： function ReadStr(Stream: TStream): string;
var
L: Integer;
begin
Stream.ReadBuff...
函数类型： 自定义函数函数说明： 流与变体之间的转换代码如下： procedure StreamToVar(Stream: TStream; Var Value: Variant);
var
p: Pointer;
be...
函数类型： 自定义函数函数说明： 变体与流之间的转换并压缩代码如下： procedure VariantToZipStream(Stream: TStream; const Value: Variant);
var
vS...
函数类型： 自定义函数函数说明： 流与变体之间的转换代码如下： function StreamToVariant(Stream: TStream): Variant;
var
p: Pointer;
begin
Re...
函数类型： 自定义函数函数说明： 计算字符串Hash值代码如下：
function GetCrc32(s: string; Seed: LongInt): Integer;
var
Count: Integer;
...
函数类型： 自定义函数函数说明： 无符号整型转换成二进制位类代码如下： function IntegerToBits(const AValue: Integer): TBits;
function BitsToArra...
函数类型： 自定义函数函数说明： 二进制位类转换成无符号整型代码如下： function BitsToInteger(const ABits: TBits): UInt32;
var
I: Integer;
begin
...
函数类型： 自定义函数函数说明： 获取中文大写金额代码如下： function GetChineseMoneyZero(const AMoney: Double): string;
const
Digits: array...
函数类型： 自定义函数函数说明： 获取中文大写金额，连续为0时只转换一个代码如下： function GetChineseMoney(const AMoney: Double): string;
const
Digits...
函数类型： 自定义函数函数说明： 字符串转十六进制代码如下： function StrToHex(src: string): string;
var
I: Integer;
des: string;
begin
...
函数类型： 自定义函数函数说明： 获取上级目录代码如下： function GetParentDir(const ADir: string): string;
var
APath: string;
begin
if ...
函数类型： 自定义函数函数说明： 字符串替换代码如下： ///
/// 字符串替换
///
///
/// 原字符串
///
///
/// 需要替换的子字符串
///
///
/// 新子字符串
///
/...
函数类型： 自定义函数函数说明： 判断是否为空('None', 'Null', '')代码如下： function IsEmptyString(const Value: string): Boolean;
begin
R...
函数类型： 自定义函数函数说明： 调整不同分辨率下组件的位置代码如下： procedure AdjustControlPosition2Dpi(AOwner: TWinControl);
var
dpi: Integer...
函数类型： 自定义函数函数说明： 打开文件并显示文件选中状态代码如下： procedure OpenDirAndSelectFile(fn: string);
begin
ShellExecute(Application...
函数类型： 自定义函数函数说明： 取当前电脑所有IP地址代码如下： function GetStaticIps: TStrings;
begin
TIdStack.IncUsage;
try
Result :...
函数类型： 自定义函数函数说明： 动态加载字体代码如下： procedure sys_AddFont(fontFileName: string);
begin
AddFontResource(Pchar(fontFile...
函数类型： 自定义函数函数说明： 连接字符串列表代码如下： function Join(mylist: TStrings; seperatorStr: string): string;
var
i: Integer;
b...
函数类型： 自定义函数函数说明： 给TStrings添加或去除引号代码如下： procedure QuotedStrings(iStrings: TStrings; iQuoted: Boolean = True);
var
i: I...
函数类型： 自定义函数函数说明： 根据字符串属性名取控件属性值代码如下： function Get_OBJPropValue(o: TObject; propName: string): Variant;
begin
Result :=...
