源码里面常用的字符串分割提取

MidStr(sReviceMsg, 1, 4) = 'GOIP'                                     提取sReviceMsg字符串内容 从第1个到第4个
ArrestStringEx(sReviceMsg, '#', '!', sRemoteIPaddr)            提取#和!之间的字符串存到sRemoteIPaddr
GetValidStr3(a, b, [':'])                                                      获取某段文本中以某文本为分割的第一段文本和剩余内容

GetValidStr3(Str: string; var Dest: string; const Divider: array of Char): string;
GetValidStr3，用于从字符串中获取有效的子字符串。下面是函数的详细说明：

参数：

Str：要处理的输入字符串。
Dest：输出参数，存储获取到的有效子字符串。
Divider：分隔符数组，用于确定哪些字符将作为分隔符。
返回值：

返回值为字符串类型，为剩余的未处理部分。

function CompareLStr(var Src: string; targ: string; compn: Integer): Boolean;
CompareLStr，用于比较两个字符串的前 compn 个字符是否相同。下面是函数的详细说明：

参数：

Src：要比较的源字符串，函数将修改该字符串。
targ：目标字符串，用于与源字符串进行比较。
compn：要比较的字符数。
返回值：

返回一个布尔值，表示两个字符串的前 compn 个字符是否相同。