Delphi6函数大全

首部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits:
Integer): string; $[SysUtils.pas
功用 重回货币类型以钦定格式调换来字符串
证实 Digits钦命小数宽度
参考 function SysUtils.FloatToText

首部 function Languages: TLanguages; $[SysUtils.pas
意义 再次来到系统语言对象
证明 通过此函数能够获得系统的言语情形
参考 type SysUtils.TLanguages
例子
///////Begin Languages

首部 procedure StrDispose(Str: PChar); $[SysUtils.pas
功能 释放指针字符串Str内部存款和储蓄器财富
表明 假若Str为nil则不作任何管理;并且释放空间大小新闻
参考 function System.Dec;function System.SizeOf;function
System.FreeMem

首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas
作用 再次来到字符串S调换到逻辑值
表明 字符非逻辑表明时将引起极度
参考 function SysUtils.TryStrToBool
例子 CheckBox1.Checked := StrToBool(Edit1.Text);

例子
///////Begin CurrToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values[ffGeneral] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
ffGeneral, SpinEdit1.Value);
Memo1.Lines.Values[ffExponent] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
ffExponent, SpinEdit1.Value);
Memo1.Lines.Values[ffFixed] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
ffFixed, SpinEdit1.Value);
Memo1.Lines.Values[ffNumber] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
ffNumber, SpinEdit1.Value);
Memo1.Lines.Values[ffCurrency] := CurrToStrF(StrToCurrDef(Edit1.Text,
0),
ffCurrency, SpinEdit1.Value);
end;
///////End CurrToStrF
━━━━━━━━━━━━━━━━━━━━━
首部 function FloatToText(BufferArg: PChar; const Value; ValueType:
TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer;
$[SysUtils.pas
效果 重临浮点数以钦点格式调换到指针字符串的内部存款和储蓄器大小
表达 Precision钦点精度;Digits内定小数宽度
参考 <NULL>
例子
///////Begin FloatToText
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
E: Extended;
begin
E := StrToFloatDef(Edit1.Text, 0);
SpinEdit3.Value := FloatToText(vBuffer, E,
fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);
Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);
end;
///////End FloatToText(

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Clear;
for I := 0 to Languages.Count – 1 do
Memo1.Lines.Add(Languages.Name[I]);
end;
///////End Languages
━━━━━━━━━━━━━━━━━━━━━
首部 function AllocMem(Size: Cardinal): Pointer; $[SysUtils.pas
功用 再次回到叁个点名大小S(Elephant Dee)ize的内部存款和储蓄器块
证实 同盟用FreeMem释放财富
参考 function System.GetMem
例子
///////Begin AllocMem
procedure TForm1.Button1Click(Sender: TObject);
var
I: PInteger;
begin
I := AllocMem(SizeOf(Integer));
I^ := 100;
Edit1.Text := IntToStr(I^);
FreeMem(I, SizeOf(Integer));
end;
///////End AllocMem
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AddExitProc(Proc: TProcedure); $[SysUtils.pas
成效 加多四个退出管理的经过
注脚 建议用finalization部分代表
参考 <NULL>
例子
////////Begin AddExitProc
uses
ShellApi;

例子 <参见StrNew>
━━━━━━━━━━━━━━━━━━━━━
首部 function Format(const Format: string; const Args: array of const):
string; $[SysUtils.pas
作用 重返按钦点形式格式化叁个数组常量的字符格局
证实
这一个函数是自己在Delphi中用得最多的函数,今后就罗列多少个例证给你个直观的明亮
“%” [索引 “:”] [“-“] [宽度] [“.” 摘要] 类型
Format(x=%d, [12]); //x=12 //最普通
Format(x=%3d, [12]); //x= 12 //钦赐宽度
Format(x=%f, [12.0]); //x=12.00 //浮点数
Format(x=%.3f, [12.0]); //x=12.000 //钦命小数
Format(x=%.*f, [5, 12.0]); //x=12.00000 //动态配置
Format(x=%.5d, [12]); //x=00012 //后面补充0
Format(x=%.5x, [12]); //x=0000C //十六进制
Format(x=%1:d%0:d, [12, 13]); //x=1312 //使用索引
Format(x=%p, [nil]); //x=00000000 //指针
Format(x=%1.1e, [12.0]); //x=1.2E+001 //科学记数法
Format(x=%%, []Delphi6函数大全。); //x=% //得到”%”
S := Format(%s%d, [S, I]); //S := S + StrToInt(I); //连接字符串
参考 proceduer SysUtils.FmtStr
例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text,
0)]);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FmtStr(var Result: string; const Format: string; const
Args: array of const); $[SysUtils.pas
效果 按钦点格局格式化二个数组常量的字符格局重临
说明 <参见Format>
参考 function SysUtils.FormatBuf;function System.Length;function
System.SetLength
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function StrFmt(Buffer, Format: PChar; const Args: array of const):
PChar; $[SysUtils.pas
意义 再次来到按内定方式格式化三个数组常量的字符指针格局
申明 假使Buffer和Format在那之中只要有三个为nil则赶回nil
参考 function SysUtils.FormatBuf
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar;
const Args: array of const): PChar; $[SysUtils.pas
效果 重回按钦点格局和长短格式化二个数组常量的字符指针形式
说明 StrLFmt(vBuffer, 6, %d|12345, [1024]) = 1024|1;
参考 function SysUtils.FormatBuf
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function FormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal;
$[SysUtils.pas
意义 再次来到按钦命形式格式化贰个数组常量到缓冲区Buffer中
说明 <NULL>
参考 <NULL>
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function WideFormat(const Format: WideString; const Args: array of
const): WideString; $[SysUtils.pas
职能 重回按钦定格局格式化三个数组常量的多字节字符方式
说明 <NULL>
参考 procedure SysUtils.WideFmtStr
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure WideFmtStr(var Result: WideString; const Format:
WideString; const Args: array of const); $[SysUtils.pas
效果 按钦点格局格式化二个数组常量的多字节字符方式重回
说明 <NULL>
参考 function SysUtils.WideFormatBuf
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format;
FmtLen: Cardinal; const Args: array of const): Cardinal;
$[SysUtils.pas
意义 重返按钦定格局格式化三个数组常量到缓冲区Buffer中
说明 <NULL>
参考 <NULL>
例子 <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部 function FloatToStr(Value: Extended): string; $[SysUtils.pas
职能 重返浮点数Value转变到字符串
表达 当浮点数大等于1E15将使用科学记数法
参考 function SysUtils.FloatToText
例子 Edit1.Text := FloatToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部 function CurrToStr(Value: Currency): string; $[SysUtils.pas
效果与利益 再次回到货币数Value调换到字符串
证实 货币数只保留肆位小数
参考 function SysUtils.FloatToText
例子 Edit1.Text := CurrToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部 function FloatToCurr(const Value: Extended): Currency;
$[SysUtils.pas
职能 重返浮点数Value转变来货币数
表明 假如浮点数Value越过范围则将触及万分
参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
例子 Edit1.Text := CurrToStr(FloatToCurr(Now));
━━━━━━━━━━━━━━━━━━━━━
首部 function FloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer): string; $[SysUtils.pas
效果与利益 再次来到浮点数以钦定格式转变来字符串
表达 Precision钦定精度;Digits钦命小数宽度
参考 function SysUtils.FloatToText
例子
///////Begin FloatToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values[ffGeneral] := FloatToStrF(StrToFloatDef(Edit1.Text,
0),
ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values[ffExponent] :=
FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffExponent, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values[ffFixed] := FloatToStrF(StrToFloatDef(Edit1.Text,
0),
ffFixed, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values[ffNumber] := FloatToStrF(StrToFloatDef(Edit1.Text,
0),
ffNumber, SpinEdit1.Value, SpinEdit2.Value);
Memo1.Lines.Values[ffCurrency] :=
FloatToStrF(StrToFloatDef(Edit1.Text, 0),
ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
end;
///////End FloatToStrF

━━━━━━━━━━━━━━━━━━━━━
首部 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;
Break;
end;
end;
var
LResult: Extended;
begin
Result := TryStrToFloat(S, LResult);
if Result then
Value := LResult <> 0
else
begin
Result := True; //修正处
VerifyBoolStrArray;
if CompareWith(TrueBoolStrs) then
Value := True
else if CompareWith(FalseBoolStrs) then
Value := False
else
Result := False;
end;
end;
///////End TryStrToBool
━━━━━━━━━━━━━━━━━━━━━
首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False):
string; $[SysUtils.pas
职能 再次来到逻辑值B调换来字符串
说明 BoolToStr(False, False)=0;BoolToStr(False, True)=-1
参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas
功能 重返依照标志Ident的字符串财富
说明 字符串能源是指程序的内部能源
参考 function SysUtils.FindStringResource
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部 function FmtLoadStr(Ident: Integer; const Args: array of const):
string; $[SysUtils.pas
功能 重返格式化的字符串资源
证实 字符串能源是指程序的个中财富
参考 function SysUtils.FmtStr;function SysUtils.FindStringResource
例子 <NULL>;
━━━━━━━━━━━━━━━━━━━━━
首部 function FileOpen(const FileName: string; Mode: LongWord): Integer;
$[SysUtils.pas
作用 再次回到展开文件果
注脚Mode钦点展开文件的情势(fmOpenRead,fmOpenWrite,fmOpenReadWrite….);张开战败则赶回负数
参考 function Windows.CreateFile
例子
///////Begin FileOpen,FileClose
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
CheckBox1.Checked := I > 0;
FileClose(I);
end;
///////Begin FileOpen,FileClose
━━━━━━━━━━━━━━━━━━━━━
首部 function FileCreate(const FileName: string): Integer; overload;
$[SysUtils.pas
首部 function FileCreate(const FileName: string; Rights: Integer):
Integer; overload; $[SysUtils.pas
功效 再次来到创立文件
注解 创设退步则赶回负数
参考 function Windows.CreateFile
例子
///////Begin FileCreate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileCreate(Edit1.Text);
CheckBox1.Checked := I > 0;
FileClose(I);
end;
///////End FileCreate
━━━━━━━━━━━━━━━━━━━━━
首部 function FileRead(Handle: Integer; var Buffer; Count: LongWord):
Integer; $[SysUtils.pas
效果 再次来到读取文件缓冲区的尺寸
证实 读取败北则赶回负数
参考 function Windows.ReadFile
例子 <参见FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 function FileWrite(Handle: Integer; const Buffer; Count: LongWord):
Integer; $[SysUtils.pas
成效 再次来到写入文件缓冲区的轻重缓急
注脚 写入败北则赶回负数
参考 function Windows.WriteFile
例子 <参见FileCreate>
━━━━━━━━━━━━━━━━━━━━━
首部 function FileSeek(Handle, Offset, Origin: Integer): Integer;
overload; $[SysUtils.pas
首部 function FileSeek(Handle: Integer; const Offset: Int64; Origin:
Integer): Int64; overload; $[SysUtils.pas
作用 重返内定文件偏移量
说明Offset钦点偏移量;Origin内定原点(Origin为0时指文件首;为1时指当前岗位;为2时指文件尾)
参考 function Windows.SetFilePointer
例子 <参见FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FileClose(Handle: Integer); $[SysUtils.pas
功用 重临关闭文件
表明 不闭馆张开的公文少禽占领系统财富
参考 function Windows.CloseHandle
例子 <参见FileOpen>
━━━━━━━━━━━━━━━━━━━━━
首部 function FileAge(const FileName: string): Integer;
$[SysUtils.pas
作用 重临文件创制的时光
证实 文件子虚乌有则赶回-1
参考 function Windows.FindFirstFile
例子
///////Begin FileAge,DateTimeToStr,FileDateToDateTime
procedure TForm1.Button1Click(Sender: TObject);
begin
SpinEdit1.Value := FileAge(Edit1.Text);
if SpinEdit1.Value > 0 then
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
end;
///////End FileAge,DateTimeToStr,FileDateToDateTime
━━━━━━━━━━━━━━━━━━━━━
首部 function FileExists(const FileName: string): Boolean;
$[SysUtils.pas
作用 重临文件名FileName是或不是有实体存在
证实 包涵隐形文件
参考 function SysUtils.FileAge
例子 CheckBox1.Checked := FileExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function DirectoryExists(const Directory: string): Boolean;
$[SysUtils.pas
功能 重回目录名FileName是不是有实体存在
表明 包蕴掩饰目录
参考 function Windows.GetFileAttributes
例子 CheckBox1.Checked := DirectoryExists(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ForceDirectories(Dir: string): Boolean; $[SysUtils.pas
成效 重临创立子目录是还是不是成功
证实 直接创设多级目录
参考 function SysUtils.CreateDir
例子 CheckBox1.Checked := ForceDirectories(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function FindFirst(const Path: string; Attr: Integer; var F:
TSearchRec): Integer; $[SysUtils.pas
效果 再次来到设置文件找出
表明 搜索成功则再次来到0
参考 function Windows.FindFirstFile
例子
///////Begin FindFirst,FindNext,FindClose
procedure TForm1.Button1Click(Sender: TObject);
var
vSearchRec: TSearchRec;
I: Integer;
begin
Memo1.Clear;
I := FindFirst(Edit1.Text, faAnyFile, vSearchRec);
while I = 0 do begin
Memo1.Lines.Add(vSearchRec.Name);
I := FindNext(vSearchRec);
end;
FindClose(vSearchRec);
end;
///////End FindFirst,FindNext,FindClose

procedure ExitProc;
begin
ShellExecute(0, Open, Calc.exe, nil, nil, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddExitProc(ExitProc);
end;
////////End AddExitProc
━━━━━━━━━━━━━━━━━━━━━
首部 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
━━━━━━━━━━━━━━━━━━━━━
首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas
功用 释放字符串指针P能源
表达 同盟函数NewStr使用
参考 procedure System.Dispose
事例 <如上参见,如下参见>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AssignStr(var P: PString; const S: string); deprecated;
$[SysUtils.pas
功效 将字符串S更新给字符串指针P
评释 更新值时会释放以前字符串指针的财富
参考 function SysUtils.NewStr;function SysUtils.DisposeStr
例子
////////Begin AssignStr
procedure TForm1.Button1Click(Sender: TObject);
var
P: PString;
begin
P := nil;
AssignStr(P, Edit1.Text);
Edit2.Text := P^;
DisposeStr(P);
end;
////////End AssignStr
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AppendStr(var Dest: string; const S: string); deprecated;
$[SysUtils.pas
功用 在字符串Dest后追加字符串S
表明 也正是Dest := Dest + S;Delphi6已经不建议利用
参考 <NULL>
例子
////////Begin AppendStr
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := Edit2.Text;
AppendStr(S, Edit1.Text);
Edit2.Text := S;
end;
////////End AppendStr
━━━━━━━━━━━━━━━━━━━━━
首部 function UpperCase(const S: string): string; $[SysUtils.pas
职能 重返字符串S的大写格局
表达 非小写字符不管理
参考 procedure System.SetLength
例子 Edit2.Text := UpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function LowerCase(const S: string): string; $[SysUtils.pas
功效 再次来到字符串S的小写情势
证实 非大写字符不处理
参考 procedure System.SetLength
例子 Edit2.Text := LowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function CompareStr(const S1, S2: string): Integer;
$[SysUtils.pas
作用 重返相比四个字符
注解当S1>S2重返值>0;当S1<S2再次回到值<0;当S1=S2再次来到值=0;区分轻重缓急写
参考 <NULL>
澳门葡京备用网址 ,例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;
assembler; $[SysUtils.pas
意义 重返相比多少个内部存储器指针
说明 CompareMem(PChar(12a), PChar(12c), 2)=True;CompareMem(PChar(12a),
PChar(12c), 3)=False
参考 <NULL>
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
━━━━━━━━━━━━━━━━━━━━━
首部 function CompareText(const S1, S2: string): Integer;
$[SysUtils.pas
功效 重临对比多少个字符串
申明 不区分轻重缓急写
参考 <NULL>
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
效果 重临多个字符串是不是等于
证实 不区分轻重缓急写
参考 <NULL>
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas
功效 重回字符串S的大写格局
评释 ANSI(American National Standards
Institute)花旗国国家标准协会;非小写的字符不改变
参考 function Windows.CharUpperBuff
例子 Edit2.Text := AnsiUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas
效果 重回字符串S的小写情势
表达 非大写字符不处理
参考 function Windows.CharLowerBuff
例子 Edit2.Text := AnsiLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiCompareStr(const S1, S2: string): Integer;
$[SysUtils.pas
效率 反回比相当多少个字符串
说明当S1>S2重返值>0;当S1<S2再次来到值<0;当S1=S2重回值=0;区分轻重缓急写
参考 function Windows.CompareString
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiSameStr(const S1, S2: string): Boolean;
$[SysUtils.pas
效果与利益 重返多个字符串是还是不是等于
表达 区分轻重缓急写
参考 function SysUtils.AnsiCompareStr
例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注

*
*
Website