4.5.2.4 Assign

Assign procedure

Prototype:	procedure Assign(Source :TintegerListWrapper);
Description:	Assign procedure replaces the current IntegerList with the contents of another IntegerList.
Syntax:	IntegerList.Assign(Source);
	Part	Description
	IntegerList	A reference to an instance of a TIntegerListWrapper
	Source	An IntegerList which replaces current IntegerList. A reference to an instance of a TIntegerListWrapper
Return value:	none

Example:

var

intList1, intList2 : TIntegerListWrapper;

v, i : integer;

begin

intList1 := CreateIntegerList;

intList2 := CreateIntegerList;

intList1.Add(2);

intList1.Add(4);

intList1.Add(8);

intList2.Add(3);

intList2.Add(6);

intList2.Assign(intList1);

for i:= 0 to (intList2.Count - 1) do

begin

ShowMessage(IntToStr(intList2.Value[i]));

end;

intList1.Free;

intList2.Free;

end.

Output in Field-Map Data Collector: