Topic: Проблема с массивом
Добрый день, есть на форме, очень много текстовых блоков в виде календаря. Загоняю данные т.блоков в массив, теперь надо на данных одного массива, просуммировать в другом блоке.
Код вставляю такой
procedure frmNewRecord_Button3_OnClick (Sender: TObject; var Cancel: boolean);
var
td1: string = frmNewRecord.td1.text; td2: string = frmNewRecord.td1.text; td3: string = frmNewRecord.td1.text; td4: string = frmNewRecord.td1.text;
td5: string = frmNewRecord.td1.text; td6: string = frmNewRecord.td1.text; td7: string = frmNewRecord.td1.text; td8: string = frmNewRecord.td1.text;
td9: string = frmNewRecord.td1.text; td10: string = frmNewRecord.td1.text; td11: string = frmNewRecord.td1.text; td12: string = frmNewRecord.td1.text;
td13: string = frmNewRecord.td1.text; td14: string = frmNewRecord.td1.text; td15: string = frmNewRecord.td1.text; td16: string = frmNewRecord.td1.text;
td17: string = frmNewRecord.td1.text; td18: string = frmNewRecord.td1.text; td19: string = frmNewRecord.td1.text; td20: string = frmNewRecord.td1.text;
td21: string = frmNewRecord.td1.text; td22: string = frmNewRecord.td1.text; td23: string = frmNewRecord.td1.text; td24: string = frmNewRecord.td1.text;
td25: string = frmNewRecord.td1.text; td26: string = frmNewRecord.td1.text; td27: string = frmNewRecord.td1.text; td28: string = frmNewRecord.td1.text;
td29: string = frmNewRecord.td1.text; td30: string = frmNewRecord.td1.text; td31: string = frmNewRecord.td1.text;
td: Array[1..31] of String = [td1, td2, td3, td4, td5, td6, td7, td8, td9, td10, td11, td12, td13, td14, td15, td16, td17, td18, td19, td20, td21, td22, td23, td24, td25, td26, td27, td28, td29, td30, td31];
d1: double = frmNewRecord.d1.value; d2: double = frmNewRecord.d1.value; d3: double = frmNewRecord.d1.value; d4: double = frmNewRecord.d1.value;
d5: double = frmNewRecord.d1.value; d6: double = frmNewRecord.d1.value; d7: double = frmNewRecord.d1.value; d8: double = frmNewRecord.d1.value;
d9: double = frmNewRecord.d1.value; d10: double = frmNewRecord.d1.value; d11: double = frmNewRecord.d1.value; d12: double = frmNewRecord.d1.value;
d13: double = frmNewRecord.d1.value; d14: double = frmNewRecord.d1.value; d15: double = frmNewRecord.d1.value; d16: double = frmNewRecord.d1.value;
d17: double = frmNewRecord.d1.value; d18: double = frmNewRecord.d1.value; d19: double = frmNewRecord.d1.value; d20: double = frmNewRecord.d1.value;
d21: double = frmNewRecord.d1.value; d22: double = frmNewRecord.d1.value; d23: double = frmNewRecord.d1.value; d24: double = frmNewRecord.d1.value;
d25: double = frmNewRecord.d1.value; d26: double = frmNewRecord.d1.value; d27: double = frmNewRecord.d1.value; d28: double = frmNewRecord.d1.value;
d29: double = frmNewRecord.d1.value; d30: double = frmNewRecord.d1.value; d31: double = frmNewRecord.d1.value;
d: Array[1..31] of Double = [d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, d11, d12, d13, d14, d15, d16, d17, d18, d19, d20, d21, d22, d23, d24, d25, d26, d27, d28, d29, d30, d31];
begin
for i:=1 to 31 DO
begin
if td[i] = '"П"' then ds:=ds+d[i];
end;
frmNewRecord.EDailyHours.Value := ds;
end;
При нажатии Расчет, получаю ошибку: Variant or safe array out of bounds
Подскажите, пожалуйста, где нужно исправить?
Заранее благодарю