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;
演示图：
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.04596209526062 seconds