本文整理自网络,侵删。
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 firedac 连接access mdb数据库的方法
Delphi adoconnection连接 sqlserver
Delphi fdconnection取得excel工作表名
Delphi 执行一个外部程序,当外部程序结束后言主程序立即响应
更多相关阅读请进入《Delphi》频道 >>