<group id="709">
<fact term="Amount" value="141578823.7700" typ="Decimal"/>
<fact term="Currency" value="RSD" typ="String"/>
</group>
<group id="709">
<fact term="Amount" value="2854.2100" typ="Decimal"/>
<fact term="Currency" value="USD" typ="String"/>
</group>
<group id="709">
<fact term="Amount" value="42182.5000" typ="Decimal"/>
<fact term="Currency" value="EUR" typ="String"/>
</group>
Data[1]=709/141578823.7700/RSD
Data[2]=709/141578823.7700/RSD
Data[3]=709/141578823.7700/RSD
Data[1]=709/141578823.7700/RSD
Data[2]=709/2854.2100/USD
Data[3]=709/42182.5000/EUR
Fact = class(TRemotable)
private
Fterm: string;
Fterm_Specified: boolean;
Fvalue: string;
Fvalue_Specified: boolean;
Ftyp: string;
Ftyp_Specified: boolean;
procedure Setterm(Index: Integer; const Astring: string);
function term_Specified(Index: Integer): boolean;
procedure Setvalue(Index: Integer; const Astring: string);
function value_Specified(Index: Integer): boolean;
procedure Settyp(Index: Integer; const Astring: string);
function typ_Specified(Index: Integer): boolean;
published
property term: string Index (IS_ATTR or IS_OPTN) read Fterm write Setterm stored term_Specified;
property value: string Index (IS_ATTR or IS_OPTN) read Fvalue write Setvalue stored value_Specified;
property typ: string Index (IS_ATTR or IS_OPTN) read Ftyp write Settyp stored typ_Specified;
end;
Record = array of Fact;
Group = class(TRemotable)
private
Fid: string;
Fid_Specified: boolean;
Ffact: Record;
Ffact_Specified: boolean;
procedure Setid(Index: Integer; const Astring: string);
function id_Specified(Index: Integer): boolean;
procedure Setfact(Index: Integer; const ARecord: Record);
function fact_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
property fact: Record Index (IS_OPTN or IS_UNBD) read Ffact write Setfact stored fact_Specified;
end;
Array_Of_Group = array of Group;
Main = class(TRemotable)
private
Fgroup: Array_Of_Group;
Fgroup_Specified: boolean;
procedure Setgroup(Index: Integer; const AArray_Of_Group: Array_Of_Group);
function group_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property group: Array_Of_Group Index (IS_OPTN or IS_UNBD) read Fgroup write Setgroup stored group_Specified;
end;
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE