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 richedit控件的用法

Delphi winapi: inflaterect - 改变矩形大小

Delphi 删除确认对话框

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi 获取鼠标与键盘空闲时间

Delphi 合并文件

Delphi yearof 根据指定的日期返回年

Delphi模拟点击网页中的按钮

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi中tapplicationevents控件的用途与使用方法

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

转载请注明出处：木庄网络博客 » Delphi AnsiEndsText 用法之一(路径结尾自动加\)