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

编辑器 

添加安装程序
This commit is contained in:
tslediter 2023-11-22 16:13:59 +08:00
parent e1ee60f91c
commit 2c2ecaef99
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
funcext/tvclib/utslvclauxiliary.tsf
View File

@ -2315,9 +2315,9 @@ type tfileer_rwraw = class() //
begin begin
if (len=flen) and (tm=floadtime) then return 1; //´óСʱ¼äû±ä if (len=flen) and (tm=floadtime) then return 1; //´óСʱ¼äû±ä
end end
if 1 = readfile(rwraw(),fAlias,ffilename,p,len,data) then //读文件 if 1 = readfile(rwraw(),fAlias,ffilename,p,len,d) then //¶ÁÎļþ
begin begin
fdata := data; fdata := d;
flen := len; flen := len;
floadtime := tm; floadtime := tm;
floaded := true; floaded := true;
@ -2325,6 +2325,12 @@ type tfileer_rwraw = class() //
return 1; return 1;
end end
end end
function del();//ɾ³ý
begin
if not(ifstring(ffilename) and ffilename) then return 0;
if fileexists(fAlias,ffilename) then return true;
return filedelete(fAlias,ffilename)<>1;
end
function save(); //±£´æ function save(); //±£´æ
begin begin
if not(ifstring(ffilename) and ffilename) then return 0; if not(ifstring(ffilename) and ffilename) then return 0;
@ -2336,12 +2342,16 @@ type tfileer_rwraw = class() //
if sz>length(fdata) then if sz>length(fdata) then
begin begin
if filedelete(fAlias,ffilename)<>1 then return 0; if filedelete(fAlias,ffilename)<>1 then return 0;
if length(fdata)=0 then
begin
return true;
end
end else end else
begin begin
p := 0; p := 0;
if 1 = readfile(rwraw(),fAlias,ffilename,p,sz,data) then if 1 = readfile(rwraw(),fAlias,ffilename,p,sz,d) then
begin begin
if fdata=data then if fdata=d then
begin begin
return 1; return 1;
end end