文档章节

Delphi 中的字符串函数(5) - SysUtils 中的 Ansi 字符串函数

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 389
阅读 7
收藏 0
//对比字符串是不是一样: 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;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/28/1018656.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
用好Delphi中的字符串

用好Delphi中的字符串日期:2005年10月18日 作者: 人气:17184 查看:[大字体 中字体 小字体]一:各种字符串  字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参...

vga
2016/08/09
14
0
delphi的日期相加/delphi日期运算

delphi的日期相加/delphi日期运算 分类: DELPHI 我想实現 2007-08-13 12:00:00 与45 的结果变为 2007-08-13 12:45:00 delhpi中日期型数据是可以直接相加减的。 如果是字符串,用StrToDateTi...

vga
2014/01/27
0
0
字符串和数字之间的转换(Unicode)

1 Unicode编码的字符串转换为数字类型 CString str;str = _T("1234");int i = _ttoi(str);float f = tstof(str); 2 数字转换为wchart wchar_t c[10];int num = 100;itows(num,c,10,10进制);w......

zhangyujsj
2014/12/03
0
0
Windows环境下Unicode编程总结

UNICODE环境设置 在安装Visual Studio时,在选择VC++时需要加入unicode选项,保证相关的库文件可以拷贝到system32下。 UNICODE编译设置: C/C++, Preprocessor difinitions 去除MBCS,加UNI...

晨曦之光
2012/03/09
0
0
Windows环境下Unicode编程总结和将ANSI转换到Unicode 将Unicode转换到ANSI

Windows环境下Unicode编程总结 UNICODE环境设置 在安装Visual Studio时,在选择VC++时需要加入unicode选项,保证相关的库文件可以拷贝到system32下。 UNICODE编译设置: C/C++, Preprocesso...

长平狐
2013/01/06
1K
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

InvalidKeyException: Illegal key size

Caused by: java.lang.RuntimeException: java.security.InvalidKeyException: Illegal key size 解决方案:去官方下载JCE无限制权限策略文件。 jdk 5: http://www.oracle.com/technetwork/j......

自由的开源
14分钟前
0
0
JAVA秒杀实现以及优化原理

秒杀与其他业务最大的区别在于:秒杀的瞬间, (1)系统的并发量会非常的大 (2)并发量大的同时,网络的流量也会瞬间变大。 关于(2),最常用的办法就是做页面静态化,也就是常说的前后端分...

小贱是个程序员
18分钟前
1
0
Spring Aop之Advisor解析

在上文Spring Aop之Target Source详解中,我们讲解了Spring是如何通过封装Target Source来达到对最终获取的目标bean进行封装的目的。其中我们讲解到,Spring Aop对目标bean进行代理是通过Ann...

爱宝贝丶
20分钟前
0
0
Java高级工程师面试阿里,阿里云,天猫,菜鸟,涉及到的知识点

前言: 分享 Java高级工程师面试阿里,阿里云,天猫,菜鸟,涉及到的知识点,文章有点长,但比较全面,阅读时间15分钟左右,干货满满。 一、HashMap的那些事 1.1、HashMap的实现原理 1.1.1、...

Java大蜗牛
45分钟前
2
0
nginx模块学习五 expires 浏览器缓存

缓存原理 语法 Syntax: expires [modified] time;expires epoch | max | off;Default: expires off;Context: http,server,location,if in location 例/etc/nginx/conf.d/default.con......

Romanceling
56分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部