本文整理自网络,侵删。
引用单元:System.StrUtils
首部 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas功能 返回字符串AText是否以子串ASubText结尾说明 不区分大小写参考 function Windows.CompareString例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);
varStr:string;beginStr:='c:';
if AnsiEndsText('\', Str) then Edit1.Text := Str else Edit1.Text := Str + '\'; end;
演示图:
相关阅读 >>
Delphi android windows ios通用获取程序版本
Delphi xe10 手机内部系统相关操作(手机信息、震动、剪贴板、键盘、电话、拨号)
Delphi shellexecute openurl 的跨平台实现
更多相关阅读请进入《Delphi》频道 >>