moon_rern的博客

C++——delphi声明变量：int i--i :integer;int * a--a: ^integer;int**a--a:^^integer;int a[10]-- a: array[0..10] of integer;string a--a : string\a: string[255];char* a --a:pchar;声明函数：void ...

function TFilecopy.Opendirectory(path : string ;SitePath : string ; filters : TStringList ;start : Tdatetime;endtime :Tdatetime):integer;var FileName: string; filenametemp : string; time1...

procedure TFileCopy.ReadIniFile();varInifile: TIniFile;begin IniFile:=TIniFile.Create('files.ini'); if IniFile = nil then begin exit; end; Inifile.ReadString('top1','src',edtSrc...

const BASE_OFFSET = $3C; XOR_KEY = $AC;function GetEncodeSize(InSize: Integer): Integer;begin Result := (InSize * 4 + 2) div 3;end;function GetDecodeSize(InSize: Integer): Integer;begin...