本文整理自网络,侵删。
SameText
var
s1,s2: string;
b1,b2: Boolean;
begin
s1 := 'C:\Temp';
s2 := 'c:\temp';
b1 := SameText(s1, s2); //True
b2 := s1 = s2; //False
ShowMessage(BoolToStr(b1,True) + ' - ' + BoolToStr(b2,True));
end;
相关阅读 >>
Delphi 如何确定access数据库中存在某一个已知名的表
Delphi xe5 json与Delphi object的互换
Delphi fmx 从app程序直接跳转到支付宝付款转帐页面
Delphi datasnap中间件如何控制长连接的客户端连接?
更多相关阅读请进入《Delphi》频道 >>