TLIST, ANSISTRING and DYNAMICARRAY

System :: ANSISTRING LABPATH = extractfilepath (".//"); tinifile * labini = new tinifile (LabPath "Labini.ini");

Void mylist :: readlist (ANSISTRING TS) {System :: Ansistring LabPath = extractfilepath (".//"); tinifile * labini = new tinifile (LabPath "Labini.ini");

FORM2-> addlist (); for (int i = 0; i labellist-> count; i ) {tlabel * lab; lab = (tlabel *) Form2-> labellist-> items [i]; lab- > Left = Labini-> Readinteger (TS, "Left" INTOSTR (I), LAB-> Left); lab-> top = Labini-> Readinteger (TS, "TOP" INTOSTR (i), lab-> top }}

/ / -------------------------------------------------------------------------------------------- ---------------------------- Void MyList :: Writelist (ANSISTRING TS) {system :: Ansistring LabPath = extractfilepath (". // "); Tinifile * labini = new tinifile (labpath " labini.ini "); form2-> addlist (); for (int i = 0; i labellist-> count; i ) {TLABEL * LAB; LAB = (TLabel *) Form2-> Labellist-> Items [i]; labini-> Writeinteger (TS, "Left" INTOSTR (I), LAB-> Left; Labini-> WriteInteger (TS, "TOP" INTSTRR (i), lab-> TOP);}}

File: // ---------------------------------------------- -------------------------------------------------- ----