Delphi函数大全1

转载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
    Memo1.Lines.Add(Languages.Name[I]);
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 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);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas
功能  反回比较两个字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考  function Windows.CompareString
例子  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 System.CompareString
例子  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 Windows.CompareString
例子  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 Windows.CompareString
例子  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 Windows.CompareString
例子  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 Windows.CompareStringW
例子  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 Windows.CompareStringW
例子  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(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 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转换成整数Value是否成功
说明  字符串非整数表达时返回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
      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
━━━━━━━━━━━━━━━━━━━━━
首部  function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas
功能  返回继续文件搜索
说明  搜索成功则返回0
参考  function Windows.FindNextFile
例子  <参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FindClose(var F: TSearchRec); $[SysUtils.pas
功能  结束当前文件搜索
说明  不关闭查询会占用系统资源
参考  function Windows.FindClose
例子  <参见FindFirst>
━━━━━━━━━━━━━━━━━━━━━

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: delphidelphi
相关日志: