Delphi6函数大全2-SysUtils.pas

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部分取代
参考 <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
━━━━━━━━━━━━━━━━━━━━━

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/587795.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

【Latex错误:】Package fontspec: The font “SIMLI“ cannot be found. LaTex [行 37,列1]

【Latex错误&#xff1a;】Package fontspec: The font "SIMLI" cannot be found. LaTex [行 37&#xff0c;列1] 解决方案 错误详情如下图所示&#xff1a; 最近使用latex写毕业论文&#xff0c;效率是快&#xff0c;但是出些一些错误就难得搞了&#xff0c;上面的…

2023年终总结丨很苦,很酷!

文章目录 个人简介丨了解博主写在前面丨博主介绍年终总结丨博主成就年终总结丨博主想说年终总结丨学习芝士年终总结丨未来展望写在后面丨新年快乐 个人简介丨了解博主 主页地址&#xff1a;https://blog.csdn.net/m0_68111267 荣誉身份 ⭐2022年度CSDN 社区之星 Top6 ⭐2023年…

什么是SEO?

什么是SEO&#xff1f; SEO代表“搜索引擎优化”。这是通过非付费&#xff08;也称为“自然”&#xff09;搜索引擎结果来提高网站流量的质量和数量以及品牌曝光率的做法。 尽管有首字母缩略词&#xff0c;但 SEO 既关乎搜索引擎本身&#xff0c;也关乎人。这是关于了解人们在…

有了向量数据库,我们还需 SQL 数据库吗?

“除了向量数据库外&#xff0c;我是否还需要一个普通的 SQL 数据库&#xff1f;” 这是我们经常被问到的一个问题。如果除了向量数据以外&#xff0c;用户还有其他标量数据信息&#xff0c;那么其业务可能需要在进行语义相似性搜索前先根据某种条件过滤数据&#xff0c;例如&a…

文心一言 VS 讯飞星火 VS chatgpt (168)-- 算法导论13.2 1题

一、用go语言&#xff0c;写出 RIGHT-ROTATE 的伪代码。 文心一言&#xff1a; 在计算机科学中&#xff0c;右旋转&#xff08;RIGHT-ROTATE&#xff09;是一种常见的操作&#xff0c;通常用于数组或链表。以下是一个使用Go语言实现右旋转的伪代码&#xff1a; func rightRo…

【PHP】TP5.0及Fastadmin中将查询数据返回对象转为数组

目录 方法一&#xff1a;使用collection助手函数 方法二&#xff1a;设置返回数据集的对象名 在 ThinkPHP 5.0 中&#xff0c;对模型查询返回的对象进行了优化&#xff0c;默认情况下&#xff0c;使用 all 或 select 方法查询数据库将返回一个对象数组集合。这个集合是模型的…

计算机组成原理复习7

内存管理 文章目录 内存管理存储器概述存储器的分类按在计算机中的作用&#xff08;层次&#xff09;分类按存储介质分类按存取方式分类按信息的可保存性分类 存储器的性能指标存储容量单位成本存储速度&#xff1a;数据传输率数据的宽度/存储周期 存储器的层次化结构多级存储系…

Eureka相关面试题及答案

1、什么是Eureka&#xff1f; Eureka是一个由Netflix开发的服务发现&#xff08;Service Discovery&#xff09;工具&#xff0c;它是Spring Cloud生态系统中的一个关键组件。服务发现是微服务架构中的一个重要概念&#xff0c;它允许服务实例在启动时注册自己&#xff0c;以便…

SpringBoot 医药咨询系统

概述 智慧医药系统&#xff08;smart-medicine&#xff09;是一个基于 SpringBoot 开发的Web 项目。整体页面简约大气&#xff0c;增加了AI医生问诊功能&#xff0c;功能设计的较为简单。 开源地址 https://gitcode.net/NVG_Haru/Java_04 界面预览 功能介绍 游客功能介绍 …

算法中浅谈分支限界法,并区分回溯法

回溯法一般递归&#xff0c;分支一般不递归 布线问题 先判断是四个分叉&#xff0c;四叉树 如何减枝 如果加完减一都是不符合的&#xff0c;没走一步加一 注意是bfs搜索 我们再看一下最大团问题 旅行售货员问题 h(x) 为 已经花费的费用&#xff0c;g(x) 为剩下顶点的最小出…

数据结构: 位图

位图 概念 用一个bit为来标识数据在不在 功能 节省空间快速查找一个数在不在一个集合中排序 去重求两个集合的交集,并集操作系统中的磁盘标记 简单实现 1.设计思想:一个bit位标识一个数据, 使用char(8bit位)集合来模拟 2.预备工作:a.计算这个数在第几个char b.是这个ch…

vue-springboot基于JavaWeb的家装一体化商城平台guptn

针对用户需求开发与设计&#xff0c;该技术尤其在各行业领域发挥了巨大的作用&#xff0c;有效地促进了家装一体化的发展。然而&#xff0c;由于用户量和需求量的增加&#xff0c;信息过载等问题暴露出来&#xff0c;为改善传统线下管理中的不足&#xff0c;本文将提出一套基于…

【YOLO系列】YOLOv4论文超详细解读2(网络详解)

上一篇我们一起读了YOLOv4的论文《YOLOv4&#xff1a;Optimal Speed and Accuracy of Object Detection》&#xff08;直通车→【YOLO系列】YOLOv4论文超详细解读1&#xff08;翻译 &#xff0b;学习笔记&#xff09;&#xff09;&#xff0c;有了初步的印象&#xff0c;论文里…

伪类和伪元素选择器

伪元素选择器 /* 选中的是div中的第一行文字 */div::first-line { /* 选中的是div中被鼠标选择的文字 */div::selection ( /* 选中的是input元素中的提示文字 */input::placeholder/* 选中的是p元素最开始的位置&#xff0c;随后创建一个子元素 */p::before (content:"…

15-网络安全框架及模型-BLP机密性模型

目录 BLP机密性模型 1 背景概述 2 模型原理 3 主要特性 4 优势和局限性 5 困难和挑战 6 应用场景 7 应用案例 BLP机密性模型 1 背景概述 BLP模型&#xff0c;全称为Bell-LaPadula模型&#xff0c;是在1973年由D.Bell和J.LaPadula在《Mathematical foundations and mod…

C语言实现base64编解码

本文写给需要用到base64编解码的朋友们&#xff0c;可以作为工具文章&#xff0c;在需要时查阅。 关于什么是base64编解码&#xff0c;度娘比我解释的更清楚。这里只说一下&#xff0c;在一些二进制数据或不可见字符操作不便的情况下&#xff08;例如http请求参数等&#xff0…

波特云 集装箱和 海恒蓝 集装箱 自动化集装箱下单方案

背景&#xff1a; 这几天 遇到了一个客户 是做外贸的 需要大量多的集装箱&#xff0c;了解后 他们是需要在平台上 下单集装箱 才有可能预约到集装箱使用&#xff0c;所以公司每天都需要都需要派个人 盯着电脑来 下单集装箱。 波特云 网站&#xff1a;https://www.eportyun.com…

vue-springboot基于JavaWeb的汽配汽车配件销售采购管理系统

过对知识内容的学习研究&#xff0c;进而设计并实现一个基于JavaWeb的汽配销售管理系统。系统能实现的主要功能应包括&#xff1b;汽车配件、销售订单、采购订单、采购入库等的一些操作&#xff0c;ide工具&#xff1a;IDEA 或者eclipse 编程语言: java 数据库: mysql5.7 框架&…

回首2023: 程序员跳出舒适圈

1 前言 今天的冬日暖阳高照&#xff0c;照耀着我穿着羽绒服的身体&#xff0c;让我感到火一般的燥热&#xff0c;仿佛错觉中已经到了阳春三月。刚刚把孩子洗好&#xff0c;我坐在电脑前&#xff0c;准备整理一下思绪&#xff0c;回顾一下2023年的生活和工作。 2 2023 回顾 回…

STL——排序算法

算法简介 sort ——//对容器内元素进行排序random_shuffle ——//洗牌 指定范围内的元素随机调整次序merge ——// 容器元素合并&#xff0c;并存储到另一容器中reverse ——// 反转指定范围的元素 1.sort 函数原型&#xff1a; sort(iterator beg, iterator end, _Pred);—…