更新基础组件

This commit is contained in:
csh 2024-11-21 10:27:56 +08:00
parent 5a5906a636
commit 6385b6300f
1 changed files with 12 additions and 0 deletions

View File

@ -4,6 +4,8 @@ public
function Init();virtual; function Init();virtual;
function InitZip(zip: ZipFile); function InitZip(zip: ZipFile);
function OpenFile(alias: string; file: string; password: string): tableArray; function OpenFile(alias: string; file: string; password: string): tableArray;
function Save(): tableArray;
function SaveAs(alias: string; file: string): tableArray;
function Zip(): ZipFile; function Zip(): ZipFile;
protected protected
@ -34,6 +36,16 @@ begin
return zipfile_.Open(alias, file, password); return zipfile_.Open(alias, file, password);
end; end;
function TSComponentsBase.Save(): tableArray;
begin
return zipfile_.Save();
end;
function TSComponentsBase.SaveAs(alias: string; file: string): tableArray;
begin
return zipfile_.Save(alias, file);
end;
function TSComponentsBase.Zip(): ZipFile; function TSComponentsBase.Zip(): ZipFile;
begin begin
return zipfile_; return zipfile_;