TclArray

Array means many variables of the same data type. Array variables are like a list with a sequence number. Items belonging to this list are also accessed by their sequence number. Another structure that enables the use of Array on Clomosy is the TclArray structure. There are different definitions according to the data type. These;

Feature	Use of	Definition
TclArrayInteger	myArrayInteger : TclArrayInteger;	Array definition indexed by integers.
TclArrayString	myArrayString  : TclArrayString;	Array definition indexed by string.
TclArrayDouble	myArrayDouble : TclArrayDouble;	Array definition indexed by double.
TclArrayBoolean	myArrayBoolean : TclArrayBoolean;	Array definition indexed by boolean.
TclArraySingle	myArraySingle : TclArraySingle;	Array definition indexed by single.
TclArrayWord	myArrayWord : TclArrayWord;	Array definition indexed by words.
TClArrayExtended	myArrayExtended : TClArrayExtended;	Array definition indexed by extanded.
Create	myArray := TClArrayInteger.Create;	An object is created in the form.
Count	myArray.Count;	The size of the array is taken.
Add	myArray.Add(50);	The value 50 is added to the array.
GetItem	myArray (50 , 100, 70, 12, 3) myArray.GetItem(1)	Used to access the items of the array. This will return the requested item one by one, no matter how many items are in the array. I want to get the data in the 2nd element of the sample array.
RemoveAll	myArray.RemoveAll;	It is used to delete the entire directory.
RemoveAt	myArray.RemoveAt(5);	"RemoveAt" is used if you want to delete data in an index of the array. The return value of this operation is returned as boolean. The return value is "True" if data deletion has been performed. If this index does not exist in the array and cannot be deleted, it returns "False".
Destroy	myArray.Destroy;	It is used to delete an object from memory and free the memory.

Example:

var

 MyForm : TclForm;
 myArray : TClArrayInteger;
 iIndex : Integer;

begin
 MyForm := TclForm.Create(Self);
 myArray := TClArrayInteger.Create;
 myArray.Add(20); 
 myArray.Add(30);
 myArray.Add(17);
 myArray.Add(23);

 for iIndex := 0 to myArray.Count-1 do
 begin
   ShowMessage('Value: '+IntToStr(myArray.GetItem(iIndex)));
 end;

 MyForm.Run;
end;