Delphi TStringHelper用法详解

Delphi TStringHelper用法详解

(2013-08-27 22:45:42)

转载▼

标签：

delphi_xe5

it

 分类： Delphi

Delphi XE4的TStringHelper，对操作字符串进一步带来更多的方法，使用这些方法才可以实现跨平台的代码。

System.SysUtils.TStringHelper

大小写转换:
--------------------------------------------------------------------------------
 
function ToLower: string;
function ToLower(LocaleID: TLocaleID): string;
function ToLowerInvariant: string;
function ToUpper: string;
function ToUpper(LocaleID: TLocaleID): string;
function ToUpperInvariant: string;

class function LowerCase(const S: string): string;
class function LowerCase(const S: string; LocaleOptions: TLocaleOptions): string;
class function UpperCase(const S: string): string;
class function UpperCase(const S: string; LocaleOptions: TLocaleOptions): string;
//--------------------------------------------------------------------------------
var
  str: string;
begin
  str := ‘Delphi‘;
  str := str.ToLower; // delphi
  str := str.ToUpper; // DELPHI
end;
--------------------------------------------------------------------------------

清除两边空格或指定字符:
--------------------------------------------------------------------------------
 
function Trim: string;
function TrimLeft: string;
function TrimRight: string;
function Trim(const TrimChars: array of Char): string;
function TrimLeft(const TrimChars: array of Char): string;
function TrimRight(const TrimChars: array of Char): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := ‘   Delphi 10000   ‘;

str2 := str1.TrimLeft;  // ‘Delphi 10000   ‘
  str2 := str1.TrimRight; // ‘   Delphi 10000‘
  str2 := str1.Trim;      // ‘Delphi 10000‘

str2 := str1.Trim([‘ ‘, ‘0‘]); // ‘Delphi 1‘
end;
--------------------------------------------------------------------------------

字符串对比:
--------------------------------------------------------------------------------
 
function CompareTo(const strB: string): Integer;

class function Compare(const StrA: string; const StrB: string): Integer;
class function CompareText(const StrA: string; const StrB: string): Integer;
class function Compare(const StrA: string; const StrB: string; LocaleID: TLocaleID): Integer;
class function Compare(const StrA: string; const StrB: string; IgnoreCase: Boolean): Integer;
class function Compare(const StrA: string; const StrB: string; IgnoreCase: Boolean; LocaleID: TLocaleID): Integer;
class function Compare(const StrA: string; IndexA: Integer; const StrB: string; IndexB: Integer; Length: Integer): Integer;
class function Compare(const StrA: string; IndexA: Integer; const StrB: string; IndexB: Integer; Length: Integer; LocaleID: TLocaleID): Integer;
class function Compare(const StrA: string; IndexA: Integer; const StrB: string; IndexB: Integer; Length: Integer; IgnoreCase: Boolean): Integer;
class function Compare(const StrA: string; IndexA: Integer; const StrB: string; IndexB: Integer; Length: Integer; IgnoreCase: Boolean; LocaleID: TLocaleID): Integer;
class function CompareOrdinal(const StrA: string; const StrB: string): Integer;
class function CompareOrdinal(const StrA: string; IndexA: Integer; const StrB: string; IndexB: Integer; Length: Integer): Integer;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
  n: Integer;
begin
  str1 := ‘ABC 123‘;
  str2 := ‘abc 123‘;

n := str1.CompareTo(str2);              // -32

n := str1.Compare(str1, str2);          // 1
  n := str1.CompareText(str1, str2);      // 0; 相同

n := str1.Compare(str1, str2, True);    // 0; 不区分大小写
  n := str1.CompareOrdinal(str1, str2);   // -32

n := str1.Compare(str1, 4, str2, 4, 3); // 0; 只对比后三位
end;
--------------------------------------------------------------------------------

搜索字符串:
--------------------------------------------------------------------------------
 
function IndexOf(value: Char): Integer;
function IndexOf(const Value: string): Integer;
function IndexOf(Value: Char; StartIndex: Integer): Integer;
function IndexOf(const Value: string; StartIndex: Integer): Integer;
function IndexOf(Value: Char; StartIndex: Integer; Count: Integer): Integer;
function IndexOf(const Value: string; StartIndex: Integer; Count: Integer): Integer;
function IndexOfAny(const AnyOf: array of Char): Integer;
function IndexOfAny(const AnyOf: array of Char; StartIndex: Integer): Integer;
function IndexOfAny(const AnyOf: array of Char; StartIndex: Integer; Count: Integer): Integer;

function LastIndexOf(Value: Char): Integer;
function LastIndexOf(const Value: string): Integer;
function LastIndexOf(Value: Char; StartIndex: Integer): Integer;
function LastIndexOf(const Value: string; StartIndex: Integer): Integer;
function LastIndexOf(Value: Char; StartIndex: Integer; Count: Integer): Integer;
function LastIndexOf(const Value: string; StartIndex: Integer; Count: Integer): Integer;
function LastIndexOfAny(const AnyOf: array of Char): Integer;
function LastIndexOfAny(const AnyOf: array of Char; StartIndex: Integer): Integer;
function LastIndexOfAny(const AnyOf: array of Char; StartIndex: Integer; Count: Integer): Integer;
//--------------------------------------------------------------------------------
var
  str: string;
  n: Integer;
begin
  str := ‘A1 A2 A3 A4‘;

n := str.IndexOf(‘A‘);     // 0
  n := str.LastIndexOf(‘A‘); // 9
  n := str.IndexOf(‘B‘);     // -1; 没找到

n := str.IndexOf(‘A‘, 1, str.Length - 1);                  // 3
  n := str.LastIndexOf(‘A‘, str.Length - 1, str.Length - 1); // 9

n := str.IndexOfAny([‘1‘, ‘2‘, ‘3‘, ‘4‘]);     // 1
  n := str.LastIndexOfAny([‘1‘, ‘2‘, ‘3‘, ‘4‘]); // 10
end;
--------------------------------------------------------------------------------

是否包含:
--------------------------------------------------------------------------------
 
function Contains(const Value: string): Boolean;

function StartsWith(const Value: string): Boolean;
function StartsWith(const Value: string; IgnoreCase: Boolean): Boolean;

function EndsWith(const Value: string): Boolean;
function EndsWith(const Value: string; IgnoreCase: Boolean): Boolean;

class function EndsText(const ASubText, AText: string): Boolean;
//--------------------------------------------------------------------------------
var
  str: string;
  b: Boolean;
begin
  str := ‘Delphi XE4‘;

b := str.Contains(‘XE‘); // True
  b := str.Contains(‘xe‘); // False

b := str.StartsWith(‘delphi‘);       // False
  b := str.StartsWith(‘delphi‘, True); // True

b := str.EndsWith(‘XE4‘);            // True

b := str.EndsText(‘xe4‘, str);       // True
end;
--------------------------------------------------------------------------------

添加或解除引号:
--------------------------------------------------------------------------------
 
function QuotedString: string;
function QuotedString(const QuoteChar: Char): string;

function DeQuotedString: string;
function DeQuotedString(const QuoteChar: Char): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := ‘Delphi‘;

str2 := str1.QuotedString;        // ‘Delphi‘
  str2 := str1.QuotedString(‘"‘);   // "Delphi"

str1 := ‘"Delphi"‘;
  str2 := str1.DeQuotedString(‘"‘); // Delphi
end;
--------------------------------------------------------------------------------

适宽处理:
--------------------------------------------------------------------------------
 
function PadLeft(TotalWidth: Integer): string;
function PadLeft(TotalWidth: Integer; PaddingChar: Char): string;
function PadRight(TotalWidth: Integer): string;
function PadRight(TotalWidth: Integer; PaddingChar: Char): string;
//--------------------------------------------------------------------------------
var
  str: string;
begin
  str := ‘1‘;
  str := str.PadLeft(4, ‘0‘); // 0001
end;
--------------------------------------------------------------------------------

插入与删除:
--------------------------------------------------------------------------------
 
function Insert(StartIndex: Integer; const Value: string): string;

function Remove(StartIndex: Integer): string;
function Remove(StartIndex: Integer; Count: Integer): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := ‘Delphi 4‘;
  str2 := str1.Insert(7, ‘XE‘); // Delphi XE4

str1 := ‘Delphi XE4‘;
  str2 := str1.Remove(6);    // Delphi
  str2 := str1.Remove(7, 2); // Delphi 4
end;
--------------------------------------------------------------------------------

截取:
--------------------------------------------------------------------------------
 
function Substring(StartIndex: Integer): string;
function Substring(StartIndex: Integer; Length: Integer): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := ‘Delphi XE4‘;
  str2 := str1.Substring(7);    // XE4
  str2 := str1.Substring(7, 2); // XE
end;
--------------------------------------------------------------------------------

替换:
--------------------------------------------------------------------------------
 
function Replace(OldChar: Char; NewChar: Char): string;
function Replace(OldChar: Char; NewChar: Char; ReplaceFlags: TReplaceFlags): string;
function Replace(const OldValue: string; const NewValue: string): string;
function Replace(const OldValue: string; const NewValue: string; ReplaceFlags: TReplaceFlags): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := ‘ABC ABC ABC‘;
  str2 := str1.Replace(‘A‘, ‘*‘);                 // *BC *BC *BC
  str2 := str1.Replace(‘A‘, ‘*‘, [rfIgnoreCase]); // *BC ABC ABC
end;
--------------------------------------------------------------------------------

分割:
--------------------------------------------------------------------------------
 
function Split(const Separator: array of Char): TArray;
function Split(const Separator: array of Char; Count: Integer): TArray;
function Split(const Separator: array of Char; Options: TStringSplitOptions): TArray;
function Split(const Separator: array of string; Options: TStringSplitOptions): TArray;
function Split(const Separator: array of Char; Count: Integer; Options: TStringSplitOptions): TArray;
function Split(const Separator: array of string; Count: Integer; Options: TStringSplitOptions): TArray;
//--------------------------------------------------------------------------------
var
  str: string;
  arr: TArray;
begin
  str := ‘A-1,B-2,,,C-3,D-4‘;

arr := str.Split([‘,‘]);                                   // arr[0] = A-1; Length(arr) = 6
  arr := str.Split([‘,‘], TStringSplitOptions.ExcludeEmpty); // 忽略空项; Length(arr) = 4
  arr := str.Split([‘,‘], 2);                                // 只提取前 2

arr := str.Split([‘,‘, ‘-‘], ExcludeEmpty); //arr[0] = A; Length(arr) = 8

arr := str.Split([‘,,,‘], None);            // 分隔符可以是一个字符串数组
end;
--------------------------------------------------------------------------------

连接:
--------------------------------------------------------------------------------
 
class function Join(const Separator: string; const values: array of const): string;
class function Join(const Separator: string; const Values: array of string): string;
class function Join(const Separator: string; const Values: IEnumerator): string;
class function Join(const Separator: string; const Values: IEnumerable): string;
class function Join(const Separator: string; const value: array of string; StartIndex: Integer; Count: Integer): string;
//--------------------------------------------------------------------------------
var
  S: string;
  str: string;
  strArr: TArray;
begin
  str := ‘A1,B2,C3,,,,D4,E5,F6,G7‘;
  strArr := str.Split([‘,‘], ExcludeEmpty);

str := S.Join(‘-‘, strArr);             // A1-B2-C3-D4-E5-F6-G7

str := S.Join(‘; ‘, [1,2,3,4,5]);       // 1; 2; 3; 4; 5

str := S.Join(‘,‘, [‘abc‘, 123, true]); // abc,123,True
end;
--------------------------------------------------------------------------------

类型转换:
--------------------------------------------------------------------------------
 
function ToBoolean: Boolean;
function ToInteger: Integer;
function ToSingle: Single;
function ToDouble: Double;
function ToExtended: Extended;

class function ToBoolean(const S: string): Boolean;
class function ToInteger(const S: string): Integer;
class function ToSingle(const S: string): Single;
class function ToDouble(const S: string): Double;
class function ToExtended(const S: string): Extended;

class function Parse(const Value: Integer): string;
class function Parse(const Value: Int64): string;
class function Parse(const Value: Boolean): string;
class function Parse(const Value: Extended): string;
//--------------------------------------------------------------------------------
var
  S: string;
  str: string;
  n: Integer;
  b: Boolean;
  f: Double;
begin
  str := S.Parse(123);
  n := str.ToInteger;  // 123
  b := str.ToBoolean;  // True

str := S.Parse(True);
  b := str.ToBoolean;  // True
  n := str.ToInteger;  // -1

str := S.Parse(3.14159260000);
  f := str.ToDouble;  //3.1415926
end;
--------------------------------------------------------------------------------

定界符:
--------------------------------------------------------------------------------
 
function IsDelimiter(const Delimiters: string; Index: Integer): Boolean;
function LastDelimiter(const Delims: string): Integer;
//--------------------------------------------------------------------------------
var
  str: string;
  b: Boolean;
  n: Integer;
begin
  str := ‘http://del.cnblogs.com‘;

b := str.IsDelimiter(‘:‘, 4);  // True
  b := str.IsDelimiter(‘//‘, 5); // True

n := str.LastDelimiter(‘.‘);   // 18
  n := str.IndexOf(‘.‘);         // 10
end;
--------------------------------------------------------------------------------

空字符串:
--------------------------------------------------------------------------------
 
const Empty = ‘‘;

function IsEmpty: Boolean;

class function IsNullOrEmpty(const Value: string): Boolean;
class function IsNullOrWhiteSpace(const Value: string): Boolean;
//--------------------------------------------------------------------------------
var
  S: string;
  str: string;
  b: Boolean;
begin
  str := ‘       ‘;

b := str.IsEmpty;               // False
  b := S.IsNullOrWhiteSpace(str); // True
end;
--------------------------------------------------------------------------------

String 与 Char:
--------------------------------------------------------------------------------
 
class function Create(C: Char; Count: Integer): string;
class function Create(const Value: array of Char; StartIndex: Integer; Length: Integer): string;
class function Create(const Value: array of Char): string;

property Chars[Index: Integer]: Char read GetChars;
property Length: Integer read GetLength;

function CountChar(const C: Char): Integer;

function ToCharArray: TArray;
function ToCharArray(StartIndex: Integer; Length: Integer): TArray;

procedure CopyTo(SourceIndex: Integer; var destination: array of Char; DestinationIndex: Integer; Count: Integer);
//--------------------------------------------------------------------------------
var
  S: string;
  str, str2: string;
  charArr: TCharArray;
  n: Integer;
  c: Char;
begin
  str := ‘ABC‘;
  n := str.Length;   // 3
  c := str.Chars[0]; // A = str[1]

str := S.Create(‘A‘, 7); // AAAAAAA

charArr := ‘ABCDEFG‘.ToCharArray;
  str := s.Create(charArr);       // ABCDEFG
  str := S.Create(charArr, 1, 3); // BCD

charArr := ‘1234567890‘.ToCharArray;
  str := ‘ABCDEFG‘;
  str.CopyTo(1, charArr, 2, 3);
  str := S.Create(charArr);       // 12BCD67890
end;
--------------------------------------------------------------------------------

其他:
--------------------------------------------------------------------------------
 
function Equals(const Value: string): Boolean;
function GetHashCode: Integer;

class function Equals(const a: string; const b: string): Boolean;
class function Format(const Format: string; const args: array of const): string;
class function Copy(const Str: string): string;
//--------------------------------------------------------------------------------

// 用 Equals 不如直接用 = 号
// 用 Copy 不如直接用 :=
// 用 string.Format 不如直接用 Format()

// 总之, 还是有用处的多!

分享：

1

喜欢

0

原文地址：https://www.cnblogs.com/westsoft/p/8469090.html

时间： 2024-10-07 22:19:43

Delphi TStringHelper用法详解的相关文章

delphi TStringList 用法详解

delphi TStringList 用法详解. TStringList 常用方法与属性 : var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'

Delphi IDHTTP用法详解

[delphi] view plaincopyprint? 一.IDHTTP的基本用法 IDHttp和WebBrowser一样,都可以实现抓取远端网页的功能,但是http方式更快.更节约资源,缺点是需要手动维护cook,连接等 IDHttp的创建,需要引入IDHttp procedure InitHttp(); begin http := TIdHTTP.Create(nil); http.ReadTimeout := 30000; http.OnRedirect := OnRedirect;

教程-Delphi中Spcomm使用属性及用法详解

Delphi中Spcomm使用属性及用法详解 Delphi是一种具有 功能强大.简便易用和代码执行速度快等优点的可视化快速应用开发工具,它在构架企业信息系统方面发挥着越来越重要的作用,许多程序员愿意选择 Delphi作为开发工具编制各种应用程序.但是,美中不足之处是 Delphi没有自带的串口通信控件,在它的帮助文档里也没有提及串口通信,这就给编制通信程序的开发人员带来许多不便. 目前,利用 Delphi实现串口通信的常用的方法有 3种:一是利用控件,如 MSCOMM控件和 SPCOMM控件:二

VC++中MessageBox的常见用法详解

消息框是个很常用的控件,属性比较多,本文列出了它的一些常用方法,及指出了它的一些应用场合.         1.MessageBox("这是一个最简单的消息框!");         2.MessageBox("这是一个有标题的消息框!","这是标题");         3.MessageBox("这是一个确定 取消的消息框!","这是标题", MB_OKCANCEL );         4.Messa

js的offsetParent属性用法详解

js的offsetParent属性用法详解:此属性是javascript中较为常用的属性,对于它的良好掌握也是非常有必要的,下面就通过代码实例介绍一下它的用法,希望能够给需要的朋友带来一定的帮助.一.基本介绍:此属性可以返回距离指定元素最近的采用定位(position属性值为fixed.relative或者absolute)父级元素,如果父级元素中没有采用定位的元素,则返回body对象的引用.语法结构: obj.offsetParent 二.代码实例: <!DOCTYPE html> <

python处理word文件:win32com用法详解

目标:用python处理doc文件 方法:引入win32com模块 ************************************************************************** 一.安装 ************************************************************************** 首先要先下载安装win32com模块(起先在linux下装不成功,后在windows下面成功了...) 下载地址:http

jQuery 事件用法详解

jQuery 事件用法详解 目录 简介 实现原理 事件操作 绑定事件 解除事件 触发事件 事件委托 事件操作进阶 阻止默认事件 阻止事件传播 阻止事件向后执行 命名空间 自定义事件 事件队列 jquery中文文档 简介 jquery 之所以成为最受欢迎的前端库,很大一部分是得益于它的事件具有良好的语义,优秀的兼容性,并且便于管理和扩展. 在这里我会介绍 jquery 事件的一些比较基础的用法. 实现原理 jquery 事件脱胎于浏览器的 addEventListener (W3) 和 attac

（转）ProgressDialog用法详解

转载自: ProgressDialog用法详解 ProgressDialog的基本用法 ProgressDialog为进度对话框.android手机自带的对话框显得比较单一,我们可以通过ProgressDialog来自己定义对话框中将要显示出什么东西. 首先看看progressDialog里面的方法 setProgressStyle:设置进度条风格,风格为圆形,旋转的.  setTitlt:设置标题  setMessage:设置提示信息:  setIcon:设置标题图标:  setIndeter

BigDecimal用法详解（转）

BigDecimal用法详解    http://www.cnblogs.com/linjiqin/p/3413894.html 一.简介Java在java.math包中提供的API类BigDecimal,用来对超过16位有效位的数进行精确的运算.双精度浮点型变量double可以处理16位有效数.在实际应用中,需要对更大或者更小的数进行运算和处理.float和double只能用来做科学计算或者是工程计算,在商业计算中要用java.math.BigDecimal.BigDecimal所创建的是对象