Delphi 常用函数（含控件属性）详解 - 图文(7)

delphi函数大全之I-R篇-详解 (2007-04-09 00:36:53)

标签：函数 delphi

分类：IT

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

首部 function ReverseString(const AText: string): string; $[StrUtils.pas 功能 返回字符串AText的反序

说明 ReverseString('1234') = '4321' 参考 function System.SetLength

例子 Edit3.Text := ReverseString(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas 功能 返回嵌套字符串

说明 AStart:嵌套开始位置;ALength:嵌套长

度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 参考 function System.Copy 例

子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text);

━━━━━━━━━━━━━━━━━━━━━ 首

部 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas

功能 随机返回字符串数组AValues中的一个元素 说明 之前建议执行Randomize 参考 function System.Random

例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 功能 返回指定的逻辑字符串

说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 参考

例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText左边的ACount个字符 说明 LeftStr('123456', 3) = '123'

参考 function System.Copy

例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText右边的ACount个字符 说明 RightStr('123456', 3) = '456' 参考 function System.Copy

例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas

功能 返回字符串AText从AStart开始的ACount个字符 说明 其实就是Copy

参考 function System.Copy

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

首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 功能 返回一个新的字符串指针地址 说明 字符串S为空时返回NullStr 参考 procedure System.New 例子

////////Begin NewStr,DisposeStr

procedure TForm1.Button1Click(Sender: TObject); var

P: PString; begin

P := NewStr(Edit1.Text); Edit2.Text := P^; DisposeStr(P); end;

////////End NewStr,DisposeStr

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

首部 function LowerCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的小写形式 说明 非大写字符不处理

参考 procedure System.SetLength

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

首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 功能 返回字符串Ident是否是正确的标识符

说明 标识符::字母|下划线[字母|下划线|数字]...

参考

例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 首部 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 功能 返回整数Value转换成字符串 说明 Format('%d', [Value]) 参考 function SysUtils.FmtStr

例子 Edit2.Text := IntToStr(SpinEdit1.Value); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function IntToHex(Value: Integer; Digits: Integer): string; overload; $[SysUtils.pas 首

部 function IntToHex(Value: Int64; Digits: Integer): string; overload; $[SysUtils.pas

功能 返回整数Value转换成十六进制表现结果;Format('%.*x', [Digits, Value]) 说明 参数Digits指定字符最小宽度;最小宽度不足时将用0填充 参考 function SysUtils.FmtStr

例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━

首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas 功能 返回根据标识Ident的字符串资源 说明 字符串资源是指程序的内部资源

参考 function SysUtils.FindStringResource

例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils.pas 功能 返回重命名文件是否成功 说明 文件不存在则返回False 参考 function Windows.MoveFile

例子 CheckBox1.Checked := RenameFile(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas 功能 返回删除目录是否成功 说明 必须是空目录

参考 function Windows.RemoveDirectory

例子 CheckBox1.Checked := RemoveDir(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils.pas 功能 返回微妙转换成时间结构类型 说明

参考 type SysUtils.TTimeStamp

例子

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

delphi函数大全之S-W篇-详解 (2007-04-09 00:31:00)

标签：delphi 函数

分类：IT

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

首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas 功能 返回字符串S转换成六十四位整数

说明 字符串非六十四位整数表达时将引起异常 参考 procedure System.Val

例子 SpinEdit1.Value := StrToInt64(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function StrToInt64Def(const S: string; const Default: Int64): Int64; $[SysUtils.pas

功能 返回字符串S转换成六十四位整数

说明 字符串非六十四位整数表达时则返回默认值Default 参考 procedure System.Val

例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $[SysUtils.pas

功能 返回字符串S转换成六十四位整数Value是否成功

说明 字符串非六十四位整数表达时返回False并且Value将输出为0 参考 procedure System.Val 例子

///////Begin TryStrToInt64

procedure TForm1.Button1Click(Sender: TObject); var

I: Int64; begin

CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); SpinEdit1.Value := I; end;

///////End TryStrToInt64

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

首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas 功能 返回字符串S转换成逻辑值 说明 字符非逻辑表达时将引起异常 参考 function SysUtils.TryStrToBool

例子 CheckBox1.Checked := StrToBool(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首

部 function StrToBoolDef(const S: string; const Default: Boolean): Boolean; $[SysUtils.pas

功能 返回字符串S转换成逻辑值

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

例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); ━━━━━━━━━━━━━━━━━━━━━ 首

部 function TryStrToBool(const S: string; out Value: Boolean): Boolean; $[SysUtils.pas

功能 返回字符串S转换成逻辑值Value是否成功

说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 参

考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 例子

///////Begin TryStrToBool

procedure TForm1.Button1Click(Sender: TObject); var

B: Boolean; begin

SetLength(TrueBoolStrs, 2); SetLength(FalseBoolStrs, 2); TrueBoolStrs[0] := 'True'; FalseBoolStrs[0] := 'False'; TrueBoolStrs[1] := 'Yes'; FalseBoolStrs[1] := 'No';

CheckBox1.Checked := TryStrToBool(Edit1.Text, B); CheckBox2.Checked := B; end;

///////End TryStrToBool 附加

///////Begin TryStrToBool

function TryStrToBool(const S: string; out Value: Boolean): Boolean; function CompareWith(const aArray: array of string): Boolean; var

I: Integer; begin

Result := False;

for I := Low(aArray) to High(aArray) do if AnsiSameText(S, aArray[I]) then begin

Result := True;