From 26fc2114745915c492fd555327cda92ba4d75839 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Fri, 2 Sep 2022 10:50:23 +0800 Subject: [PATCH] =?UTF-8?q?=E7=BC=96=E8=BE=91=E5=99=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 缓存处理 --- designer/utslsynmemo.tsf | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/designer/utslsynmemo.tsf b/designer/utslsynmemo.tsf index 20c0e43..a1517f9 100644 --- a/designer/utslsynmemo.tsf +++ b/designer/utslsynmemo.tsf @@ -1551,7 +1551,8 @@ type TTsfFileParser = class // fiofs; public function Create(); - begin + begin + fmsgcaches := array(); fiofs := ioFileseparator(); FCacheDir :=TS_GetUserProfileHome()+"TslSynMemo"+fiofs+"cmpCaches";// d["value"]; //FCacheAbsFileName := FCacheDir+"\\cacheabstruct.stm"; @@ -2002,8 +2003,13 @@ type TTsfFileParser = class // function ModifyFname(n); begin nn := lowercase(n); - dg := getmsgd_Crc32(nn);//GetMsgdigest(nn,0); - return dg[1]+fiofs+n; + dg := fmsgcaches[nn]; + 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 function WriteParseredFile(n,d,t); begin @@ -2078,6 +2084,8 @@ type TTsfFileParser = class // FCacheList;//Ŀ¼б //FCacheAbsFileName;//Ҫ FFindDirs; //Ŀ¼ + + fmsgcaches; end function FileSaveThreader(o,d); begin