更新基础组件
This commit is contained in:
parent
5a5906a636
commit
6385b6300f
|
|
@ -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_;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue