procedure OOQCCOQOO0(O0QCCOQOO0:integer);
begin
raise ENetError.Create(O0QCCOQOO0,'Net error '+IntToStr(O0QCCOQOO0));
end;
procedure OCQCCOQOO0(OQQCCOQOO0:integer);
begin
raise EDBError.Create(OQQCCOQOO0,'Unknown error '+IntToStr(OQQCCOQOO0));
end;
function OOOQCOQOO0:sword;
begin
OQ0CCOQOO0('Function is not supported');
Result:=0;
end;
function O0QC0OCOO0.OQQC0OCOO0:boolean;
begin
Result:=OOOQ0OCOO0<>nil;
end;
constructor O0QC0OCOO0.Create(OCOQ0OCOO0:TObject);
begin
inherited Create;
OCQC0OCOO0:=1;
OOOQ0OCOO0:=OCOQ0OCOO0;
end;
procedure O0QC0OCOO0.OQOQ0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
inherited Free;
end;
end;
end;
procedure O0QC0OCOO0.OO0Q0OCOO0;
begin
if(Self<>nil)and(OCQC0OCOO0>0)then begin
if OOOQ0OCOO0<>nil then begin
OOOQ0OCOO0.Free;
OOOQ0OCOO0:=nil;
end;
Dec(OCQC0OCOO0);
if OCQC0OCOO0=0 then
inherited Free;
end;
end;
procedure O0QC0OCOO0.O00Q0OCOO0;
begin
Inc(OCQC0OCOO0);
end;
function O0OQCOQOO0(OCOQCOQOO0,OQOQCOQOO0:String):String;
var
OO0QCOQOO0:integer;
begin
Result:='';
OO0QCOQOO0:=Pos(OQOQCOQOO0,OCOQCOQOO0);
if OO0QCOQOO0=0 then
Exit;
OO0QCOQOO0:=OO0QCOQOO0+Length(OQOQCOQOO0);
if OCOQCOQOO0[OO0QCOQOO0]='='then begin
Inc(OO0QCOQOO0);
while not((OCOQCOQOO0[OO0QCOQOO0]=')')or(OCOQCOQOO0[OO0QCOQOO0]=#0))do begin
Result:=Result+OCOQCOQOO0[OO0QCOQOO0];
Inc(OO0QCOQOO0);
end;
end;
end;
function O00QCOQOO0(OC0QCOQOO0,OQ0QCOQOO0,OOCQCOQOO0:String):String;
var
O0CQCOQOO0,OCCQCOQOO0:integer;
begin
O0CQCOQOO0:=Pos(OQ0QCOQOO0,OC0QCOQOO0);
if O0CQCOQOO0=0 then
OQ0CCOQOO0(OQ0QCOQOO0+' not found');
O0CQCOQOO0:=O0CQCOQOO0+Length(OQ0QCOQOO0);
if OC0QCOQOO0[O0CQCOQOO0]='='then begin
Inc(O0CQCOQOO0);
OCCQCOQOO0:=O0CQCOQOO0;
while not((OC0QCOQOO0[OCCQCOQOO0]=')')or(OC0QCOQOO0[OCCQCOQOO0]=#0))do
Inc(OCCQCOQOO0);
Delete(OC0QCOQOO0,O0CQCOQOO0,OCCQCOQOO0-O0CQCOQOO0);
Insert(OOCQCOQOO0,OC0QCOQOO0,O0CQCOQOO0);
end;
Result:=OC0QCOQOO0;
end;
function OQCQCOQOO0(OOQQCOQOO0:word):boolean;
begin
if(OOQQCOQOO0>=OQCCO00OO0)and(OOQQCOQOO0<=OCQCO00OO0)then
Result:=True
else
Result:=False;
end;