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