Delphi函数大全

Delphi函数大全
首部function Languages: TLanguages; $[SysUtils.pas
功能返回系统语言对象
说明通过此函数可以得到系统的语言环境
参考type SysUtils.TLanguages
例子
///////Begin Languages
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Memo1.Clear;
for I := 0 to Languages.Count - 1 do
;
end;
///////End Languages
━━━━━━━━━━━━━━━━━━━━━
首部function AllocMem(Size: Cardinal): Pointer; $[SysUtils.pas 功能返回一个指定大小Size的内存块
说明配合用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;
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 pareString
例子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);
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas
功能反回比较两个字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考function pareString
例子SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas
功能返回两个字符串是否相等
说明不区分大小写
参考function SysUtils.AnsiCompareText
例子CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能返回比较两个指针字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
参考function pareString
例子SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能返回比较两个指针字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 参考function pareString
例子SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能返回比较两个指针字符串指定长度
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度)
参考function pareString
例子SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能返回比较两个指针字符串指定长度
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考function pareString
例子SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas
功能返回指针字符串小写形式
说明非大写字符不处理
参考function Windows.CharLower
例子Edit2.Text := AnsiStrLower(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas
功能返回指针字符串大写形式
说明非小写字符不处理
参考function Windows.CharUpper
例子Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiLastChar(const S: string): PChar; $[SysUtils.pas
功能返回字符串S的最后一个指针字符
说明当字符串S为空串则返回空指针
参考function SysUtils.ByteType
例子Edit2.Text := AnsiLastChar(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas
功能返回指针字符串P的最后一个指针字符
说明当字符串P为空空指针则返回空指针
参考function SysUtils.ByteType
例子Edit2.Text := AnsiLastChar(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas
功能返回双字节字符串的大写形式
说明WideChar双字节字符
参考function Windows.CharUpperBuffW
例子Edit2.Text := WideUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas
功能返回双字节字符串的小写形式
说明我怎么就测试不出来呢
参考function Windows.CharLowerBuffW
例子Edit2.Text := WideLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas 功能返回比较两个双字节字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
参考function pareStringW
例子SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas
功能返回两个双字节字符串是否相同
说明区分大小写
参考function SysUtils.WideCompareStr
例子CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas 功能返回比较两个双字节字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考function pareStringW
例子SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function WideSameText(const S1, S2: WideString): Boolean; $[SysUtils.pas 功能返回两个双字节字符串是否相同
说明不区分大小写
参考function SysUtils.WideCompareText
例子CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function Trim(const S: string): string; overload; $[SysUtils.pas
首部function Trim(const S: WideString): WideString; overload; $[SysUtils.pas
功能返回除去字符串S左右不可见字符
说明小于#32的字符看作不可见字符
参考function System.Copy
例子Edit2.Text := Trim(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function TrimLeft(const S: string): string; overload; $[SysUtils.pas
首部function TrimLeft(const S: WideString): WideString; overload; $[SysUtils.pas
功能返回除去字符串S左边不可见字符
说明小于#32的字符看作不可见字符
参考function System.Copy
例子Edit2.Text := TrimLeft(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function TrimRight(const S: string): string; overload; $[SysUtils.pas
首部function TrimRight(const S: WideString): WideString; overload; $[SysUtils.pas
功能返回除去字符串S右边不可见字符
说明小于#32的字符看作不可见字符
参考function System.Copy
例子Edit2.Text := TrimRight(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function QuotedStr(const S: string): string; $[SysUtils.pas
功能返回字符串S在pascal中的表现形式
说明单引号中的一个单引号将转成两个
参考procedure System.Insert
例子Edit2.Text := QuotedStr(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas
功能返回字符串S以字符Quote为引号的表现形式
说明AnsiQuotedStr('hello"world', '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"'
参考function SysUtils.AnsiStrScan
例子Edit2.Text := AnsiQuotedStr(Edit1.Text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUtils.pas
功能返回以字符Quote为引号的表现形式原形
说明表现形式非法时Src不变否则为空
参考function SysUtils.AnsiStrScan
例子
///////Begin AnsiExtractQuotedStr
procedure TForm1.Button1Click(Sender: TObject);
var
P: PChar;
begin
P := PChar(Edit1.Text);
Edit2.Text := AnsiExtractQuotedStr(P, '"');
Edit3.Text := P;
end;
///////End AnsiExtractQuotedStr
━━━━━━━━━━━━━━━━━━━━━
首部function AnsiDequotedStr(const S: string; AQuote: Char): string; $[SysUtils.pas
功能返回以字符AQuote为引号的表现形式原形
说明表现形式非法时则返回S
参考function SysUtils.AnsiExtractQuotedStr
例子Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string; $[SysUtils.pas
功能返回将给定字符串的行分隔符调整为CR/LF序列
说明AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2' #13#10
参考function SysUtils.StrNextChar
例子<NULL>
━━━━━━━━━━━━━━━━━━━━━
首部function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas
功能返回字符串Ident是否是正确的标识符
说明标识符::字母|下划线[字母|下划线|数字]...
参考<NULL>
例子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(V alue: Integer; Digits: Integer): string; overload; $[SysUtils.pas
首部function IntToHex(V alue: 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 StrToInt(const S: string): Integer; $[SysUtils.pas
功能返回字符串S转换成整数
说明字符串非整数表达时将引起异常
参考procedure System.Val
例子SpinEdit1.Value := StrToInt(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function StrToIntDef(const S: string; Default: Integer): Integer; $[SysUtils.pas
功能返回字符串S转换成整数
说明字符串非整数表达时则返回默认值Default
参考procedure System.Val
例子SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
━━━━━━━━━━━━━━━━━━━━━
首部function TryStrToInt(const S: string; out Value: Integer): Boolean; $[SysUtils.pas 功能返回字符串S转换成整数V alue是否成功
说明字符串非整数表达时返回False并且Value将输出为0
参考procedure System.Val
例子
///////Begin TryStrToInt
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
CheckBox1.Checked := TryStrToInt(Edit1.Text, I);
SpinEdit1.Value := I;
end;
///////End TryStrToInt
━━━━━━━━━━━━━━━━━━━━━
首部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;
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
V alue := True
else if CompareWith(FalseBoolStrs) then
V alue := 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
;
I := FindNext(vSearchRec);
end;
FindClose(vSearchRec);
end;
///////End FindFirst,FindNext,FindClose
━━━━━━━━━━━━━━━━━━━━━
首部function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas
功能返回继续文件搜索
说明搜索成功则返回0
参考function Windows.FindNextFile
例子<参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部procedure FindClose(var F: TSearchRec); $[SysUtils.pas
功能结束当前文件搜索
说明不关闭查询会占用系统资源
参考function Windows.FindClose
例子<参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部function FileGetDate(Handle: Integer): Integer; $[SysUtils.pas
功能返回文件的修改时间
说明读取失败则返回-1
参考function Windows.GetFileTime
例子
///////Begin FileGetDate
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := FileOpen(Edit1.Text, fmOpenRead);
if I < 0 then Exit;
SpinEdit1.Value := FileGetDate(I);
Edit2.Text := DateTimeToStr(FileDateToDateTime(SpinEdit1.Value));
FileClose(I);
end;
///////End FileGetDate
━━━━━━━━━━━━━━━━━━━━━
真诚的海2005-7-26 10:53
首部function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas
首部function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能返回设置文件的修改时间
说明修改成功则返回0
参考function Windows.SetFileTime
例子SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
━━━━━━━━━━━━━━━━━━━━━
首部function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能返回文件的属性
说明读取失败则返回$FFFFFFFF
参考function Windows.GetFileAttributes
例子SpinEdit1.Value := FileGetAttr(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能返回设置文件的属性
说明设置成功则返回0
参考function Windows.SetFileAttributes
例子SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部function FileIsReadOnly(const FileName: string): Boolean; $[SysUtils.pas
功能返回文件是否只读
说明文件不存在看作只读
参考function Windows.GetFileAttributes
例子CheckBox1.Checked := FileIsReadOnly(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean; $[SysUtils.pas
功能返回设置文件是否只读是否成功
说明文件不存在则返回False
参考function Windows.GetFileAttributes;function Windows.SetFileAttributes
例子CheckBox1.Checked := FileSetReadOnly(Edit1.Text, CheckBox2.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部function DeleteFile(const FileName: string): Boolean; $[SysUtils.pas
功能返回删除文件是否成功
说明文件不存在则返回False
参考function Windows.DeleteFile
例子CheckBox1.Checked := DeleteFile(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils.pas
功能返回重命名文件是否成功
说明文件不存在则返回False
参考function Windows.MoveFile
例子CheckBox1.Checked := RenameFile(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas
功能返回改变扩展名后的文件名
说明[注意]扩展名Extension前要加点;ChangeFileExt('a.jpg', 'bmp')='abmp'
参考function stDelimiter;function System.Copy
例子Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractFilePath(const FileName: string): string; $[SysUtils.pas
功能返回文件名所在的路径
说明ExtractFilePath('C:\')='C:\';ExtractFilePath('\\Server\Tool\Calc.exe')='\\Server\Tool\'
参考function stDelimiter;function System.Copy
例子Edit1.Text := ExtractFilePath(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractFileDir(const FileName: string): string; $[SysUtils.pas
功能返回文件名所在的目录
说明ExtractFileDir('C:\')='C:\';ExtractFileDir('\\Server\Tool\Calc.exe')='\\Server\Tool'
参考function stDelimiter;function System.Copy
例子Edit1.Text := ExtractFileDir(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas
功能返回文件名所在驱动器
说明ExtractFileDrive('C:\')='C:';ExtractFileDrive('\\Server\Tool\Calc.exe')='\\Server\Tool'
参考function System.Copy
例子Edit1.Text := ExtractFileDrive(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractFileName(const FileName: string): string; $[SysUtils.pas
功能返回绝对文件名
说明ExtractFileName('C:\')='';ExtractFileName('\\Server\Tool\Calc.exe')='Calc.exe'
参考function stDelimiter;function System.Copy
例子Edit1.Text := ExtractFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractFileExt(const FileName: string): string; $[SysUtils.pas
功能返回文件名的扩展名
说明ExtractFileExt('C:\')='';ExtractFileExt('\\Server\Tool\Calc.exe')='.exe'
参考function stDelimiter;function System.Copy
例子Edit1.Text := ExtractFileExt(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExpandFileName(const FileName: string): string; $[SysUtils.pas
功能返回文件名的完整表示
说明ExpandFileName('hello.pas')='C:\Program Files\Borland\Delphi6\Projects\hello.pas'
参考function Windows.GetFullPathName
例子Edit1.Text := ExpandFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas
功能分情况返回文件名的完整表示
说明type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous); 参考function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst
例子
///////Begin ExpandFileNameCase
procedure TForm1.Button1Click(Sender: TObject);
var
vFilenameCaseMatch: TFilenameCaseMatch;
begin
Edit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch);
SpinEdit1.Value := Ord(vFilenameCaseMatch);
end;
///////End ExpandFileNameCase
━━━━━━━━━━━━━━━━━━━━━
首部function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas
功能返回LINUX文件名的完整表示
说明ExpandUNCFileName('C:/')='C:\'
参考function SysUtils.ExpandFileName
例子Edit1.Text := ExpandUNCFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas 功能返回参数的相对路径
说明ExtractRelativePath('C:\Windows\', 'C:\Windows\System')='System'
参考function SysUtils.SameFilename;function SysUtils.ExtractFileDrive
例子Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas
功能返回参数的DOS路径
说明ExtractShortPathName('C:\Program Files\Borland')='C:\PROGRA~1\BORLAND'
参考function Windows.GetShortPathName
例子Edit1.Text := ExtractShortPathName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function FileSearch(const Name, DirList: string): string; $[SysUtils.pas
功能返回目录列表中DirList搜索的第一个结果
说明FileSearch('Calc.exe', 'd:\winxp\system32;c:\windows')='d:\winxp\system32\calc.exe'
参考function SysUtils.FileExists;function SysUtils.AnsiLastChar
例子Edit1.Text := FileSearch(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function DiskFree(Drive: Byte): Int64; $[SysUtils.pas
功能返回驱动器可用空间
说明参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1
参考function Windows.GetDiskFreeSpaceExA
例子SpinEdit1.Value := DiskFree(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部function DiskSize(Drive: Byte): Int64; $[SysUtils.pas
功能返回驱动器全部空间
说明参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1
参考function Windows.GetDiskFreeSpaceExA
例子SpinEdit1.Value := DiskSize(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas
功能返回将文件日期时间类型转换日期时间类型
说明FileDate非法是将触发异常
参考function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子<参见FileAge>
━━━━━━━━━━━━━━━━━━━━━
首部function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas。