это глюк?

[TotKtoNado]

begin

  SetLength(AllDateArray , 1);
  AllDateArray[FormRashod.stringgridRashod.Col]:=FormRashodDob.DateTimePickerRashodDob.Date;
  FormRashod.StringgridRashod.Cells[0,FormRashod.StringgridRashod.Row]:=DateToStr(AllDateArray[i]);
  //вставляет дату в таблицу StrinGridRashod
  setLength(summa,64);
  summa[i]:=StrToCurr(editRashodDobSumma.text);
  FormRashod.StringGridRashod.cells[1,FormRashod.StringgridRashod.Row]:=CurrToStr(summa[i]);
  //вставляет сумму в таблицу stringgridRashod
  SetLength(val,1);
  if ComboBoxRashodDob.ItemIndex=0 then
  begin
    val[i]:='руб';
  end;
  if ComboBoxRashodDob.ItemIndex=1 then
  begin
    val[i]:='грн';
  end;
  if ComboBoxRashodDob.ItemIndex=2 then
  begin
    val[i]:='$';
  end;
  if ComboBoxRashodDob.ItemIndex=4 then
  begin
    val[i]:='€';
  end;
  FormRashod.StringgridRashod.Cells[2,FormRashod.StringGridRashod.row]:=val[i];
  //добавляет валюту в таблицу stringgridRashod
  SetLength(com,1);
  com[i]:=FormRashodDob.EditRashodDobCom.Text;
  FormRashod.StringgridRashod.Cells[3,FormRashod.StringGridRashod.row]:=com[i];
  //Добавляет коментариив таблицу stringgridRashod
  FormRashodDob.close;
  if formRashod.stringgridRashod.cells[1,1]<>'0' then
  begin
    FormRashod.StringGridRashod.RowCount:=FormRashod.StringGridRashod.RowCount+1;
    FormRashod.StringGridRashod.Row:=FormRashod.StringGridRashod.Row+1;
    FormRashod.StringGridRashod.Cells[FormRashod.StringGridRashod.col,FormRashod.StringGridRashod.row]:=DateToStr(AllDateArray[i]);
    formRashod.StringGridRashod.Col:=formRashod.StringGridRashod.Col+1;
    formRashod.StringGridRashod.Cells[FormRashod.StringGridRashod.col,FormRashod.StringGridRashod.row]:=CurrToStr(summa[i]);
    formRashod.StringGridRashod.Col:=formRashod.StringGridRashod.Col+1;
    formRashod.StringGridRashod.Cells[FormRashod.StringGridRashod.col,FormRashod.StringGridRashod.row]:=val[i];
    formRashod.StringGridRashod.Col:=formRashod.StringGridRashod.Col+1;
    formRashod.StringGridRashod.Cells[FormRashod.StringGridRashod.col,FormRashod.StringGridRashod.row]:=com[i];
  end;
end;

вставил этот код и все работает нормально
затем вставил цикл

    for I := 0 to  - 1 do
      begin

      end;

и у меня выскачила ошибка
---------------------------
Financialadvisor
---------------------------
Access violation at address 004D48A8 in module 'FinancialAdvisor.exe'. Read of address 04454BF8.
---------------------------
ОК
---------------------------
затем убрал этот цикл и она снова выскакивает
что за фигня7

[Вадим Мошев]

Потому что вы неправильно написали цикл.

Они пишется так (с учётом тех границ, которые вы указали).

for i:=0 DOWNTO -1 do // ляляляля