网页功能: 加入收藏 设为首页 网站搜索  
Delphi6函数大全(2)
发表日期:2005-05-26作者:[转贴] 出处:  

  Delphi6函数大全2-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部分取代
  参考
  例子
  ////////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已经不建议使用
  参考
  例子
  ////////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  参考
  例子 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
  参考
  例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas
  功能 返回比较两个字符串
  说明 不区分大小写
  参考
  例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
  功能 返回两个字符串是否相等
  说明 不区分大小写
  参考
  例子 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  参考 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  参考 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  参考 function System.CompareString
  例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
  功能 返回比较两个指针字符串
  说明 当S1>S2返回值>0;当S1  参考 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  参考 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  参考 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  参考 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  参考 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
  功能 返回将给定字符串的行分隔符调整为CRLF序列
  说明 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
  例子
  ━━━━━━━━━━━━━━━━━━━━━
  首部 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 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
  例子 ;
  ━━━━━━━━━━━━━━━━━━━━━
  首部 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

 

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 Delphi6函数大全(2)
本类热点文章
  DBGrid 应用全书
  DBGrid 应用全书
  TWebBrowser编程简述
  用户界面设计的技巧与技术
  用户界面设计的技巧与技术
  初探Delphi 7 中的插件编程
  获取主板BIOS的信息
  网卡的远程网络唤醒
  Delphi 2006简介(Dexter)
  用Delphi开发数据库程序经验三则
  Delphi面向对象编程的20条规则
  Delphi面向对象编程的20条规则
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00483