本文整理自网络,侵删。
字符串对比:
//--------------------------------------------------------------------------------var str1, str2: string; n: Integer;begin str1 := 'ABC 123'; str2 := 'abc 123';
n := str1.CompareTo(str2); // -32
n := str1.Compare(str1, str2); // 1 n := str1.CompareText(str1, str2); // 0; 相同
n := str1.Compare(str1, str2, True); // 0; 不区分大小写 n := str1.CompareOrdinal(str1, str2); // -32
n := str1.Compare(str1, 4, str2, 4, 3); // 0; 只对比后三位end;
相关阅读 >>
Delphi 执行一个外部程序,当外部程序结束后言主程序立即响应
Delphi 获取android package name:
Delphi try abort、exit except 、finally end 执行情况
更多相关阅读请进入《Delphi》频道 >>