字符串函数大全(15) $[SysUtils.pas 功能 返回比较两个指针字符串指定长度 说明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 参考 function Windows.CompareString 例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串小写形式 说明 非大写字符不处理 参考 function Windows.CharLower 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串大写形式 说明 非小写字符不处理 参考 function Windows.CharUpper 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 功能 返回字符串S的最后一个指针字符 说明 当字符串S为空串则返回空指针 参考 function SysUtils.ByteType 例子 Edit2.Text := AnsiLastChar(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串P的最后一个指针字符 说明 当字符串P为空空指针则返回空指针 参考 function SysUtils.ByteType 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text));