SRL Archive - OSR Help

Adding Results From Array1 To Array2


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

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………

Trippeh

2011-12-20 16:51:43

What you cooking mate? :stirthepot:

senrath

2011-12-20 16:52:01

What exactly are you trying to do? Because right now you have Array1 as an array of String, while you have array2 as an array of array of String.

Mark

2011-12-20 17:01:46

i need to add the result of the array of string to the represented array1 number


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',];

i want to take the first value from this array which is '10'
then add it to the other arrays value
like this
b[1]:='10';

but for all the values