delphi字符串大全(6)

C: Currency; begin

CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); Edit2.Text := FormatCurr('', C); end;

///////End TryStrToCurr

━━━━━━━━━━━━━━━━━━━━━

首部 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas

功能 返回将指针字符串Buffer转换成无类型变量Value 说明 ValueType指定无类型参数Value的类型 参考 例子

///////Begin TextToFloat

procedure TForm1.Button1Click(Sender: TObject); var

E: Extended; begin

CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, fvExtended);

Edit2.Text := FormatFloat('', E); end;

///////End TextToFloat

━━━━━━━━━━━━━━━━━━━━━

首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 功能 返回日期DateTime转换成字符串

说明 转换格式由系统变量ShortDateFormat控制

参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 例子 Edit1.Text := DateToStr(Date);

━━━━━━━━━━━━━━━━━━━━━

首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 功能 返回时间DateTime转换成字符串

说明 转换格式由系统变量LongTimeFormat控制

参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 例子 Edit1.Text := TimeToStr(Date);

━━━━━━━━━━━━━━━━━━━━━

首部 function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 功能 返回日期时间DateTime转换成字符串

说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制 参考 function SysUtils.DateTimeToString 例子 Edit1.Text := DateTimeToStr(Now);

━━━━━━━━━━━━━━━━━━━━━

首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 功能 返回字符串S转换成日期 说明 字符非日期表达时将引起异常 参考 function SysUtils.TryStrToDate

例子 DateTimePicker1.Date := StrToDate(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas

功能 返回字符串S转换成日期

说明 字符非日期表达时则返回默认值Default 参考 function SysUtils.TryStrToDate

例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); ━━━━━━━━━━━━━━━━━━━━━

首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 功能 返回字符串S转换成日期Value是否成功

说明 字符非日期表达时返回False并且Value将输出为0 参考 例子

///////Begin TryStrToDate

procedure TForm1.Button1Click(Sender: TObject); var

vDateTime: TDateTime; begin

CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); DateTimePicker1.Date := vDateTime; end;

///////End TryStrToDate

━━━━━━━━━━━━━━━━━━━━━

首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 功能 返回字符串S转换成时间 说明 字符非时间表达时将引起异常 参考 function SysUtils.TryStrToTime

例子 DateTimePicker1.Time := StrToTime(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas

功能 返回字符串S转换成时间

说明 字符非时间表达时则返回默认值Default 参考 function SysUtils.TryStrToTime

例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); ━━━━━━━━━━━━━━━━━━━━━

首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 功能 返回字符串S转换成时间Value是否成功

说明 字符非时间表达时返回False并且Value将输出为0 参考 例子

///////Begin TryStrToTime

procedure TForm1.Button1Click(Sender: TObject); var

vDateTime: TDateTime;

begin

CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); DateTimePicker1.Time := vDateTime; end;

///////End TryStrToTime

━━━━━━━━━━━━━━━━━━━━━

首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas 功能 返回字符串S转换成日期时间 说明 字符非日期时间表达时将引起异常 参考 function SysUtils.TryStrToDateTime

例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas

功能 返回字符串S转换成日期时间

说明 字符非日期时间表达时则返回默认值Default 参考 function SysUtils.TryStrToDateTime

例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); ━━━━━━━━━━━━━━━━━━━━━

首部 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 功能 返回字符串S转换成日期时间Value是否成功

说明 字符非日期时间表达时返回False并且Value将输出为0 参考 例子

///////Begin TryStrToDateTime

procedure TForm1.Button1Click(Sender: TObject); var

vDateTime: TDateTime; begin

CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); Edit2.Text := DateTimeToStr(vDateTime); end;

///////End TryStrToDateTime

━━━━━━━━━━━━━━━━━━━━━

首部 procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); $[SysUtils.pas

功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 说明 <参见FormatDateTime> 参考 function System.SetString 例子 <参见FormatDateTime>

━━━━━━━━━━━━━━━━━━━━━

首部 function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string; platform; $[SysUtils.pas

功能 返回当前系统指定参数的字符串值

说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' 参考 function Windows.GetLocaleInfo

例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, ''); ━━━━━━━━━━━━━━━━━━━━━

首部 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform; $[SysUtils.pas

功能 返回当前系统指定参数的字符值

说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 参考 function Windows.GetLocaleInfo

例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); ━━━━━━━━━━━━━━━━━━━━━

首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils.pas 功能 返回字符串S位置Index上的字符在MBCS中类型 说明 多字节字符系统:Multi-Byte Character System (MBCS) 参考 var SysUtils.SysLocale

例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; $[SysUtils.pas 功能 返回指针字符串Str位置Index上的字符在MBCS中类型 说明 Index从0开始

参考 var SysUtils.SysLocale

例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), SpinEdit2.Value)); ━━━━━━━━━━━━━━━━━━━━━

首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 功能 返回字符串S中有多少个多字节字符 说明 MaxLen指定处理字符个数

参考 function SysUtils.ByteToCharIndex

例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 功能 返回字符串S中有多少个字符 说明 MaxLen指定处理多字节字符个数 参考 var SysUtils.SysLocale

例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 功能 返回字符位置对应的多字节字符位置

说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 参考 function SysUtils.NextCharIndex

例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 功能 返回多字节字符位置对应的字符起始位置

说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 参考 function System.Length

例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas

功能 返回第一个字符的宽度 说明 参数为空则返回0

参考 function Windows.CharNext

例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 功能 返回字符指针Str的下一个字符指针 说明 StrNextChar('1234') = '234'; 参考 function Windows.CharNext

例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function CharLength(const S: String; Index: Integer): Integer; $[SysUtils.pas 功能 返回字符串中指定位置的字符宽度

说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 参考 function System.Assert;function SysUtils.StrCharLength

例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function NextCharIndex(const S: String; Index: Integer): Integer; $[SysUtils.pas 功能 返回下一个字符的位置

说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 参考 function System.Assert;function SysUtils.StrCharLength

例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; $[SysUtils.pas 功能 返回字符串S中指定位置Index上是否是一个路径分隔符 说明 IsPathDelimiter('C:\\Windows', 3) = True

参考 const SysUtils.PathDelim;function SysUtils.ByteType

例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; $[SysUtils.pas 功能 返回字符串S中指定位置Index上是否是一个分隔符Delimiters 说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 参考 function SysUtils.ByteType

例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function IncludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas 功能 返回包括最后路径分隔符

说明 最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 参考 function SysUtils.IsPathDelimiter;function System.Length 例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function IncludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas 功能 返回包括最后斜线

说明 Result := IncludeTrailingPathDelimiter(S); 参考 function SysUtils.IncludeTrailingPathDelimiter 例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);