USES 单元 SysUtils  非 StrUtils
AnsiSameStr、AnsiSameText、AnsiCompareStr、AnsiCompareText、AnsiCompareFileName、AnsiUpperCase、AnsiLowerCase、AnsiPos、AnsiQuotedStr、AnsiDequotedStr
//对比字符串是不是一样: AnsiSameStr、AnsiSameText
var
  ss,s: AnsiString;
  b: Boolean;
begin
  ss := 'abc';
  s := 'ABC';   b := AnsiSameStr(ss,s);    {区分大小写}
  ShowMessage(BoolToStr(b)); {False}   b := AnsiSameText(ss,s);  {不区分大小写}
  ShowMessage(BoolToStr(b)); {True}
end;

//比较两个字符串大小: AnsiCompareStr、AnsiCompareText
var
  s1,s2: AnsiString;
  i: Integer;
begin
  s1 := 'Hello';
  s2 := 'hello';   i := AnsiCompareStr(s1,s2);  {区分大小写}
  ShowMessage(IntToStr(i));    {1}   i := AnsiCompareText(s1,s2); {不区分大小写}
  ShowMessage(IntToStr(i));    {0} {有 3 种可能的返回值:
  s1 > s2 : 1
  s1 < s2 : -1
  s1 = s2 : 0
}
end;

//比较两个文件名大小: AnsiCompareFileName
var
  s1,s2: AnsiString;
  i: Integer;
begin
  s1 := 'c:\temp\2.txt';
  s2 := 'c:\temp\1.TXT';   i := AnsiCompareFileName(s1,s2);
  ShowMessage(IntToStr(i));  {1} {有 3 种可能的返回值:
  s1 > s2 : 1
  s1 < s2 : -1
  s1 = s2 : 0
}
end;

//大小写转换: AnsiUpperCase、AnsiLowerCase
var
  ss,s: AnsiString;
begin
  ss := 'Hello';   s := AnsiUpperCase(ss);
  ShowMessage(s); {HELLO}   s := AnsiLowerCase(ss);
  ShowMessage(s); {hello}
end;

//文件名大小写转换: AnsiUpperCaseFileName、AnsiLowerCaseFileName
var
  ss,s: AnsiString;
begin
  ss := 'C:\Temp\1.txt';   s := AnsiUpperCaseFileName(ss);
  ShowMessage(s); {C:\TEMP\1.TXT}   s := AnsiLowerCaseFileName(ss);
  ShowMessage(s); {c:\temp\1.txt}
end;

//查找一个字符串在另一个字符串中最先出现的位置: AnsiPos
var
  ss,s: AnsiString;
  i: Integer;
begin
  ss := 'abcdefgcd';
  s := 'cd';   i := AnsiPos(s,ss);
  ShowMessage(IntToStr(i)); {3}
end;

//添加定界符: AnsiQuotedStr
var
  ss,s: AnsiString;
begin
  ss := 'Hello';   s := AnsiQuotedStr(ss, '"'); {参数2是定界符, Char 类型}
  ShowMessage(s);              {"Hello"}   s := AnsiQuotedStr(ss, '#');
  ShowMessage(s);              {#Hello#}   ss := 'Hello#Hello';        {如果中间包含要添加的定界符, 将被双写}
  s := AnsiQuotedStr(ss, '#');
  ShowMessage(s);              {#Hello##Hello#}
end;

//取消字符串两边的定界符: AnsiDequotedStr
var
  ss,s: AnsiString;
begin
  ss := '"Hello"';   s := AnsiDequotedStr(ss, '"');
  ShowMessage(s); {Hello}
end;

Delphi 字符串函数SysUtils单元 AnsiSameStr、AnsiSameText、AnsiCompareStr、AnsiCompareText、AnsiCompareFileName、AnsiUpperCase、AnsiLowerCase、AnsiUpperCaseFileName、AnsiLowerCaseFileName、AnsiPos、AnsiQuotedStr的更多相关文章

  1. Delphi 字符串函数StrUtils单元AnsiLeftStr、AnsiRightStr、AnsiMidStr、AnsiContainsStr、AnsiContainsText、AnsiStartsStr、AnsiStartsText、AnsiEndsStr、AnsiEndsText、AnsiReplaceStr、AnsiReplaceText、AnsiResemblesText...

    引用单元 StrUtils 非 SysUtilsAnsiLeftStr.AnsiRightStr.AnsiMidStr.AnsiContainsStr.AnsiContainsText.AnsiSta ...

  2. delphi字符串函数大全

    转帖:delphi字符串函数大全 2009-11-17 16:43:55 分类: delphi字符串函数大全 ━━━━━━━━━━━━━━━━━━━━━首部 function StringToGUID ...

  3. Delphi 字符串函数 StrUtils(大全)

    引用单元: StrUtils; 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas ...

  4. [原创]Delphi 字符串函数(字符串判断 TryStrToFloat 、TryStrToInt、TryStrToInt64、TryStrToBool、TryStrToCurr、TryStrToDate、TryStrToTime、TryStrToDateTime)

    引用单元SysUtils TryStrToFloat .TryStrToInt.TryStrToInt64.TryStrToBool.TryStrToCurr.TryStrToDate.TryStrT ...

  5. delphi字符串操作函数一览

    首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写 参考 < ...

  6. Delphi字符串的基本操作与常用函数

    参考:http://www.cnblogs.com/pchmonster/archive/2011/12/16/2290034.html 结合这个博客一起学习:http://www.cnblogs.c ...

  7. Delphi的时间与字符串函数代码示例

    [delphi] view plaincopyprint? SysUtils.StrToDate(); SysUtils.StrToDateDef(); SysUtils.TryStrToDate() ...

  8. delphi 字符串查找替换函数 转

    1.       提取字符串中指定子字符串前的字符串 Function Before( Src:string ; S:string ): string ; Var   F: Word ; begin ...

  9. delphi字符串分隔函数用法实例

    这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下 本文实例讲述了delphi ...

随机推荐

  1. This MySqlConnection is already in use

    项目中类似于以下的代码,实际的代码要更复杂,DbContext是依赖注入的: 报错如下: This MySqlConnection is already in use. See https://fl. ...

  2. HAProxy基于Centos6.5安装及配置

    一.使用2.6内核Linux,配置sysctl参数 vi /etc/sysctl.conf #haproxy confignet.ipv4.tcp_tw_reuse = 1net.ipv4.ip_lo ...

  3. vue循环渲染变量类样式

    由于需求的需要,将五种不同的颜色样式通过v-for进行遍历渲染,所以我这里采用绑定类函数进行判断方式.代码: 效果: 灵感来自:https://www.jianshu.com/p/33e181be3d ...

  4. BUUCTF | easy_tornado

    第一次遇到模板注入的题,赶紧记笔记,此篇相当于对大佬的做法的复现Orz,师傅太强了https://blog.csdn.net/weixin_44255856/article/details/97687 ...

  5. Linux:主设备号和次设备号

    http://www.linuxidc.com/Linux/2011-03/33863.htm     Linux的设备管理是和文件系统紧密结合的,各种设备都以文件的形式存放在/dev目录下,称为设备 ...

  6. 实现自己的shell--MIT xv6 shell

    参考代码: #include <stdlib.h> #include <unistd.h> #include <stdio.h> #include <fcnt ...

  7. docker 部署netcore 的关键语句

    网站容器:docker run -it --name myTestWeb -p 8080:80 -v /mnt/hgfs/my_share/core/website/:/website microso ...

  8. jmeter添加自定义扩展函数之大写转换小写

    1,打开eclipse,新建maven工程,在pom中引用jmeter核心jar包,具体请看---https://www.cnblogs.com/guanyf/p/10863033.html---,这 ...

  9. VSphere随笔 - vCenter6.5安装报错 “Failed to authenticate with the guest operating system using the supplied“

    今天重新安装VCSA,安装多次一直卡在80%的画面不动,显示正在安装RPM包,同时log日志显示“Failed to authenticate with the guest operating sys ...

  10. Asp.Net Core 第02局:Program

    总目录 前言 本文介绍Program,它包含程序的入口Main方法.从这里开始... 环境 1.Visual Studio 2017 2.Asp.Net Core 2.2 开局 第一手:Program ...