Delphi6函数大全-SysUtils.pas

<<Delphi6函数大全-SysUtils.pas>>
首部  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;区分大小写;采用现场效验;Locale(现场)
参考  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
功能  返回两个双字节字符串是否相同
说明  区分大小写
参考  funciton 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
功能  返回两个双字节字符串是否相同
说明  不区分大小写
参考  funciton 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
说明  字符非数字表达时则返回默认值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
说明  字符非数字表达时则返回默认值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
说明  字符非逻辑表达时则返回默认值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 如下修正
参考  funciton 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>
────────────────────────
首部  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
────────────────────────
首部  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 SysUtils.LastDelimiter;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 SysUtils.LastDelimiter;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 SysUtils.LastDelimiter;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 SysUtils.LastDelimiter;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 SysUtils.LastDelimiter;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
功能  返回将DOS的日期格式转换为DELPHI的日期格式
说明  FileDate非法是将触发异常
参考  function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子  <参见FileAge>
────────────────────────
首部  function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas
功能  返回将DELPHI的日期格式转换为DOS的日期格式
说明  年份在1980到2107之外则返回0
参考  function SysUtils.DecodeDate;function SysUtils.DecodeTime
例子  <参见FileSetDate>
──────────────────────── 
首部  function GetCurrentDir: string; $[SysUtils.pas
功能  返回当前操作目录
说明  [注意]调用文件对话框会改变当前操作目录
参考  function System.GetDir
例子  Edit1.Text := GetCurrentDir;
──────────────────────── 
首部  function SetCurrentDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回设置当前操作目录是否成功
说明  [注意]调用文件对话框会改变当前操作目录
参考  function Windows.SetCurrentDirectory
例子  CheckBox1.Checked := SetCurrentDir(Edit1.Text);
────────────────────────
首部  function CreateDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回创建目录是否成功
说明  不支持多级目录;已经存在则返回False
参考  function Windows.CreateDirectory
例子  CheckBox1.Checked := CreateDir(Edit1.Text);
────────────────────────
首部  function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回删除目录是否成功
说明  必须是空目录
参考  function Windows.RemoveDirectory
例子  CheckBox1.Checked := RemoveDir(Edit1.Text);
────────────────────────
首部  function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
功能  返回指针字符串的长度
说明  当指针字符串Str为nil时将触发异常
参考  <NULL>
例子  SpinEdit2.Value := StrLen(PChar(Edit1.Text));
────────────────────────
首部  function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串的结尾
说明  当指针字符串Str为nil时将触发异常
参考  <NULL>
例子  Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值