Delphi AnsiEndsText 用法之一(路径结尾自动加\)


本文整理自网络,侵删。

 
引用单元:System.StrUtils

首部 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas
功能 返回字符串AText是否以子串ASubText结尾
说明 不区分大小写
参考 function Windows.CompareString
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);


var
Str:string;
begin
Str:='c:';

if AnsiEndsText('\', Str) then
      Edit1.Text := Str
    else
      Edit1.Text := Str + '\';
  end;

演示图:



相关阅读 >>

Delphi trim删除字符串首尾空格

Delphi android windows ios通用获取程序版本

Delphi xe10 手机内部系统相关操作(手机信息、震动、剪贴板、键盘、电话、拨号)

Delphi在目录中搜索文件

Delphi 复制文件到全盘

Delphi shellexecute openurl 的跨平台实现

Delphi tlog 日志

Delphi 关于构造方法的重写

Delphi检测鼠标指针的改变(全局)

Delphi tchart 的使用

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...