Mark
2011-12-20 16:49:17
Im trying to add the results from one Array to the other without success
i need to add it like so
i need to add it like so
array2[1] := [IntToStr(b[1]),IntToStr(b[2]),IntToStr(b[3]),IntToStr(b[4]),IntToStr(b[5]),IntToStr(b[6]),IntToStr(b[7]),IntToStr(b[8]),IntToStr(b[9])];
array2[2] := [IntToStr(b[10]),IntToStr(b[11]),IntToStr(b[12]),IntToStr(b[13]),IntToStr(b[14]),IntToStr(b[15]),IntToStr(b[16]),IntToStr(b[17]),IntToStr(b[18])];
array2[3] := [IntToStr(b[19]),IntToStr(b[20]),IntToStr(b[21]),IntToStr(b[22]),IntToStr(b[23]),IntToStr(b[24]),IntToStr(b[25]),IntToStr(b[26]),IntToStr(b[27])];
array2[4] := [IntToStr(b[28]),IntToStr(b[29]),IntToStr(b[30]),IntToStr(b[31]),IntToStr(b[32]),IntToStr(b[33]),IntToStr(b[34]),IntToStr(b[35]),IntToStr(b[36])];
array2[5] := [IntToStr(b[37]),IntToStr(b[38]),IntToStr(b[39]),IntToStr(b[40]),IntToStr(b[41]),IntToStr(b[42]),IntToStr(b[43]),IntToStr(b[44]),IntToStr(b[45])];
array2[6] := [IntToStr(b[46]),IntToStr(b[47]),IntToStr(b[48]),IntToStr(b[49]),IntToStr(b[50]),IntToStr(b[51]),IntToStr(b[52]),IntToStr(b[53]),IntToStr(b[54])];
array2[7] := [IntToStr(b[55]),IntToStr(b[56]),IntToStr(b[57]),IntToStr(b[58]),IntToStr(b[59]),IntToStr(b[60]),IntToStr(b[61]),IntToStr(b[62]),IntToStr(b[63])];
array2[8] := [IntToStr(b[64]),IntToStr(b[65]),IntToStr(b[66]),IntToStr(b[67]),IntToStr(b[68]),IntToStr(b[69]),IntToStr(b[70]),IntToStr(b[71]),IntToStr(b[72])];
array2[9] := [IntToStr(b[73]),IntToStr(b[74]),IntToStr(b[75]),IntToStr(b[76]),IntToStr(b[77]),IntToStr(b[78]),IntToStr(b[79]),IntToStr(b[80]),IntToStr(b[81])];
array2[10] := [IntToStr(b[82]),IntToStr(b[83]),IntToStr(b[84]),IntToStr(b[85]),IntToStr(b[86]),IntToStr(b[87]),IntToStr(b[88]),IntToStr(b[89]),IntToStr(b[90])];
array2[11] := [IntToStr(b[91]),IntToStr(b[92]),IntToStr(b[93]),IntToStr(b[94]),IntToStr(b[95]),IntToStr(b[96]),IntToStr(b[97]),IntToStr(b[98]),IntToStr(b[99])];
Array1:= ['10', '15', '9', '0', '0', '0', '5', '0', '0', '0', '0', '7', '8', '0', '1', '2', '0', '0', '5', '0', '0', '0', '9', '0', '0', '0', '0', '0', '6', '1', '2', '0', '5', '8', '7', '0', '0', '0', '0', '0', '0', '0', '2', '0', '10', '0', '4', '8', '6', '6', '3', '1', '2', '0', '1', '10', '9', '8', '2', '0', '0', '0', '7', '0', '0', '5', '9', '0', '6', '4', '0', '5', '0', '12', '6', '0', '0', '0', '3', '7', '0' '3', '0', '0','6', '4', '0', '0', '0', '0', '6', '0', '0', '0', '3', '0', '0' '3', '0',];
For i:= 1 to 99 do
b[i] := StrToInt(Array1[i-1]); Thanks in adnvance………