liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器 

缓存处理
This commit is contained in:
JianjunLiu 2022-09-02 10:50:23 +08:00
parent d78a8a0f7c
commit 26fc211474
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/utslsynmemo.tsf
View File

@ -1552,6 +1552,7 @@ type TTsfFileParser = class //
public public
function Create(); function Create();
begin begin
fmsgcaches := array();
fiofs := ioFileseparator(); fiofs := ioFileseparator();
FCacheDir :=TS_GetUserProfileHome()+"TslSynMemo"+fiofs+"cmpCaches";// d["value"]; FCacheDir :=TS_GetUserProfileHome()+"TslSynMemo"+fiofs+"cmpCaches";// d["value"];
//FCacheAbsFileName := FCacheDir+"\\cacheabstruct.stm"; //FCacheAbsFileName := FCacheDir+"\\cacheabstruct.stm";
@ -2002,8 +2003,13 @@ type TTsfFileParser = class //
function ModifyFname(n); function ModifyFname(n);
begin begin
nn := lowercase(n); nn := lowercase(n);
dg := getmsgd_Crc32(nn);//GetMsgdigest(nn,0); dg := fmsgcaches[nn];
return dg[1]+fiofs+n; if not dg then
begin
dg := getmsgd_Crc32(nn);//GetMsgdigest(nn,0);
fmsgcaches[nn] := dg;
end
return dg[1]+fiofs+dg[2]+fiofs+n;
end end
function WriteParseredFile(n,d,t); function WriteParseredFile(n,d,t);
begin begin
@ -2078,6 +2084,8 @@ type TTsfFileParser = class //
FCacheList;//目录列表 以 FCacheList;//目录列表 以
//FCacheAbsFileName;//缓存概要 //FCacheAbsFileName;//缓存概要
FFindDirs; //查找目录 FFindDirs; //查找目录
fmsgcaches;
end end
function FileSaveThreader(o,d); function FileSaveThreader(o,d);
begin begin