Delphi 部分函数收集资料

1、StringOfChar

2、 FileSetAttr(const FileName: string; Attr: Integer): Integer;

3、 FileGetAttr(const FileName: string): Integer;

4、 SaveToFile

5、 LoadFromFile

6、 FileExists文件是否存在

7、 directoryexists目录是否存在

8、 createdir创建目录

9、createfile创建文件

10、AssignFile

11、 rewrite

12、 append

13、 writeln

14、 closefile

15、Reset

16、 Readln

17、write

18、read

19、ClientDataSet1.Locate

20、ShellExecute

21、function StrPas(const Str: PChar): string;Pchar转换成string

22、Pchar(sting);string转换成Pchar

23、 VarArrayOf

24、 IntToHex

25、IsIconic（判断窗口是否最小化）

----------------------------------------------------------------

1、StringOfChar

　　　StringOfChar用于获得一个串，此串中含有n个重复的字符。
例如stringOfChar('a',5),结果为'aaaaa'。

2、 function FileSetAttr(const FileName:string;Attr:Integer):Integer;        
   功能 返回设置文件的属性
   说明 设置成功则返回0   
   例： FileSetAttr('dbconn.txt',faReadOnly);设置文件dbconn.txt的属性为只读。

   文件属性有： faReadOnly = $00000001 platform;
               faHidden    = $00000002 platform;
               faSysFile   = $00000004 platform;
               faVolumeID = $00000008 platform;
               faDirectory = $00000010;
               faArchive   = $00000020 platform;
               faSymLink   = $00000040 platform;
               faAnyFile   = $0000003F;

3、 function FileGetAttr(const FileName:string):Integer;platform;   
   功能 返回文件的属性
   说明 读取失败则返回$FFFFFFFF
   参考 function Windows.GetFileAttributes
   例子 SpinEdit1.Value := FileGetAttr(Edit1.Text);

 

4、 function SaveToFile(FileName: String);

   例：

      slFile:Tstringlist;

       slFile:=Tstringlist.Create;
      slFile.LoadFromFile('dbconn.txt');
      slFile[1] := 'abc';
      slFile.SaveToFile('dbconn.txt');
      freeandnil(slFile);

5、 function SaveToFile(FileName: String);(见4)

6、 FileExists

19、 self.ClientDataSet1.Locate('ttid;prnid',VarArrayOf([inttostr(iTmp),inttostr(jTmp)]),[loPartialKey ]);

20、 Application.Terminate;
// shellexecute(handle,'open','CashBar.exe',nil,nil,sw_shownormal)
ShellExecute(Application.Handle, Nil,Pchar(ExtractFilePath(Application.ExeName)+ 'CashBar.exe'),
              Pchar(IntToStr(Fm1Main.Handle)), Nil, SW_SHOWNORMAL);

23、举例

var

A: Variant;
begin
A := VarArrayCreate([0, 4], varVariant);
A[0] := 1;
A[1] := 1234.5678;
A[2] := 'Hello world';
A[3] := True;
A[4] := VarArrayOf([1, 10, 100, 1000]);
WriteLn(A[2]); { Hello world }
WriteLn(A[4][2]); { 100 }

end;

24、十进制转换十六进制

function IntToHex(Value: Integer; Digits: Integer): string; overload;
function IntToHex(Value: Int64; Digits: Integer): string; overload;

25、IsIconic（判断窗口是否最小化）