delphi
moon_rern
这个作者很懒,什么都没留下…
展开
-
delphi 与 C++
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 ...原创 2019-08-26 14:37:57 · 723 阅读 · 0 评论 -
delphi(文件夹拷贝)
function TFilecopy.Opendirectory(path : string ;SitePath : string ; filters : TStringList ;start : Tdatetime;endtime :Tdatetime):integer;var FileName: string; filenametemp : string; time1...原创 2019-08-22 14:07:36 · 1079 阅读 · 0 评论 -
delphi(配置文件)
procedure TFileCopy.ReadIniFile();varInifile: TIniFile;begin IniFile:=TIniFile.Create('files.ini'); if IniFile = nil then begin exit; end; Inifile.ReadString('top1','src',edtSrc...原创 2019-08-26 10:40:13 · 275 阅读 · 0 评论 -
delphi bese64
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...原创 2019-10-11 16:00:39 · 219 阅读 · 0 评论