Delphi字符串⽐较和⼤⼩写转换函数⾸部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
功能 返回两个字符串是否相等
说明 不区分⼤⼩写
参考 <NULL>
例⼦ CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的⼤写形式
说明 ANSI(American National Standards Institute)美国国家标准协会;⾮⼩写的字符不变
参考 function Windows.CharUpperBuff
例⼦ Edit2.Text := AnsiUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的⼩写形式
说明 ⾮⼤写字符不处理
参考 function Windows.CharLowerBuff
例⼦ Edit2.Text := AnsiLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas
功能 反回⽐较两个字符串
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；区分⼤⼩写
参考 function Windows.CompareString
例⼦ SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas
功能 返回两个字符串是否相等
说明 区分⼤⼩写
参考 function SysUtils.AnsiCompareStr
例⼦ CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas
功能 反回⽐较两个字符串
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；不区分⼤⼩写
参考 function Windows.CompareString
例⼦ SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas
功能 返回两个字符串是否相等
说明 不区分⼤⼩写
参考 function SysUtils.AnsiCompareText
例⼦ CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能 返回⽐较两个指针字符串
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；区分⼤⼩写
参考 function System.CompareString
例⼦ SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能 返回⽐较两个指针字符串
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；不区分⼤⼩写;Ignore(忽略)
参考 function Windows.CompareString
例⼦ SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
$[SysUtils.pas
功能 返回⽐较两个指针字符串指定长度
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；区分⼤⼩写;Length(长度)
参考 function Windows.CompareString
例⼦ SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
⾸部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;
$[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));
━━━━━━━━━━━━━━━━━━━━━
⾸部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas      功能 返回双字节字符串的⼤写形式
说明 WideChar双字节字符
参考 function Windows.CharUpperBuffW
例⼦ Edit2.Text := WideUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas      功能 返回双字节字符串的⼩写形式
说明 我怎么就测试不出来呢
参考 function Windows.CharLowerBuffW
例⼦ Edit2.Text := WideLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
⾸部 function WideCompareStr(const S1, S2: WideString): Integer;
$[SysUtils.pas
功能 返回⽐较两个双字节字符串
说明 当S1>S2返回值>0；当S1<S2返回值<0；当S1=S2返回值=0；区分⼤⼩写
参考 function Windows.CompareStringW
例⼦ SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。