105 lines
2.7 KiB
Plaintext
105 lines
2.7 KiB
Plaintext
type TSComponentsBase = class
|
|
public
|
|
function Create();
|
|
function Init();virtual;
|
|
function InitZip(zip: ZipFile);
|
|
function Open(alias: string; file: string; password: string): tableArray;
|
|
function Save(): array of info; // array(err, errmsg)
|
|
function SaveAs(alias: string; file: string): array of info;
|
|
function Zip(): ZipFile;
|
|
|
|
protected
|
|
function GetProp(_variable: tslobj; _name: string): tslobj;
|
|
function GetPropArr(_variable: tslobj; _name: string; _index: integer): tslobj;
|
|
function NewObject(_name: string): tslobj;virtual;
|
|
|
|
protected
|
|
zipfile_: ZipFile;
|
|
conf_: tableArray;
|
|
|
|
end;
|
|
|
|
function TSComponentsBase.Create();
|
|
begin
|
|
end;
|
|
|
|
function TSComponentsBase.InitZip(zip: ZipFile);
|
|
begin
|
|
{self.}Init();
|
|
zipfile_ := zip;
|
|
end;
|
|
|
|
function TSComponentsBase.Open(alias: string; file: string; password: string): tableArray;
|
|
begin
|
|
{self.}Init();
|
|
zipfile_ := new ZipFile();
|
|
return zipfile_.Open(alias, file, password);
|
|
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;
|
|
begin
|
|
return zipfile_;
|
|
end
|
|
|
|
function TSComponentsBase.GetProp(_variable: tslobj; _name: string): tslobj;
|
|
begin
|
|
if ifnil(_variable) then
|
|
begin
|
|
name := conf_[_name][0];
|
|
xml := zipfile_.Get(name);
|
|
if ifObj(xml) then
|
|
begin
|
|
node := xml.FirstChild(conf_[_name][1]);
|
|
if not ifObj(node) then raise (name $ " error.");
|
|
_variable := {self.}NewObject(_name);
|
|
_variable.InitNode(node);
|
|
end
|
|
end
|
|
return _variable;
|
|
end;
|
|
|
|
function TSComponentsBase.GetPropArr(_variable: tslobj; _name: string; _index: integer): tslobj;
|
|
begin
|
|
if not ifNumber(_index) then
|
|
begin
|
|
ind := 1;
|
|
name := format(conf_[_name][0], ind);
|
|
xml := zipfile_.Get(name);
|
|
while ifObj(xml) do
|
|
begin
|
|
node := xml.FirstChild(conf_[_name][1]);
|
|
obj := {self.}NewObject(_name);
|
|
obj.InitNode(node);
|
|
_variable[length(_variable)] := obj;
|
|
name := format(conf_[_name][0], ++ind);
|
|
xml := zipfile_.Get(name);
|
|
end
|
|
return _variable;
|
|
end
|
|
if ifnil(_variable[_index]) then
|
|
begin
|
|
obj := nil;
|
|
name := format(conf_[_name][0], _index);
|
|
xml := zipfile_.Get(name);
|
|
if ifObj(xml) then
|
|
begin
|
|
node := xml.FirstChild(conf_[_name][1]);
|
|
obj := {self.}NewObject(_name);
|
|
obj.InitNode(node);
|
|
_variable[_index] := obj;
|
|
end
|
|
end
|
|
return _variable[_index];
|
|
end;
|
|
|