文档章节

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编程总结和将ANSI转换到Unicode 将Unicode转换到ANSI

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

长平狐
2013/01/06
1K
0
Windows环境下Unicode编程总结

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

晨曦之光
2012/03/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

what f,,

anlve
39分钟前
0
0
初级开发-编程题

` public static void main(String[] args) { System.out.println(changeStrToUpperCase("user_name_abc")); System.out.println(changeStrToLowerCase(changeStrToUpperCase("user_name_abc......

小池仔
今天
9
0
现场看路演了!

HiBlock
昨天
19
0
Rabbit MQ基本概念介绍

RabbitMQ介绍 • RabbitMQ是一个消息中间件,是一个很好用的消息队列框架。 • ConnectionFactory、Connection、Channel都是RabbitMQ对外提供的API中最基本的对象。Connection是RabbitMQ的s...

寰宇01
昨天
13
0
官方精简版Windows10:微软自己都看不过去了

微软宣布,该公司正在寻求解决方案,以减轻企业客户的Windows 10规模。该公司声称,企业客户下载整个Windows 10文件以更新设备既费钱又费时。 微软宣布,该公司正在寻求解决方案,以减轻企业...

linux-tao
昨天
20
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部