频道分类

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

作者:admin 来源: 日期:2019/10/11 12:34:42 人气: 标签:

 
引用单元: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;

演示图: