delphi SysUtils.CompareStr、SysUtils.CompareText - 字符串比较

本文整理自网络，侵删。

 SysUtils.CompareStr、SysUtils.CompareText - 字符串比较
CompareStr 区分大小写; CompareText 不区分大小写. 举例:
--------------------------------------------------------------------------------

var
s1,s2: string;
i: Integer;
begin
s1 := 'abc';
s2 := 'adc';
i := CompareStr(s1,s2);
ShowMessage(IntToStr(i)); {-2}

i := CompareText(s1,s2);
ShowMessage(IntToStr(i)); {-2}

s1 := 'abc';
s2 := 'ABC';
i := CompareStr(s1,s2); {CompareStr 区分大小写}
ShowMessage(IntToStr(i)); {32}

i := CompareText(s1,s2); {CompareText 不区分大小写}
ShowMessage(IntToStr(i)); {0}
end;

 

相关阅读 >>

Delphi 文字的高度与宽度: canvas.textextent

Delphi webbrowser1 execwb 复制 新建 打开

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi xe 自己编辑xe2 vcl style(皮肤/skin)

Delphi格式化输出函数

Delphi self-delete程序

Delphi 日期相减 比较大小 过期时间函数

Delphi 提升进程令牌

Delphi 从内存中加载并启动一个exe

Delphi 每年、月、周、日的开始与结束的时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi SysUtils.CompareStr、SysUtils.CompareText - 字符串比较