как удалить индекс массива так чтоб стало на 1 индекс меньше а номера индексов были по порядку?
Код:
i:=ListViewRashod.itemindex;
ListViewRashod.Items.Delete(i);
ItemList[i].AllDateArray:=0;
ItemList[i].Statya:='';
ItemList[i].Summa:=0;
ItemList[i].skidka:=0;
ItemList[i].schet:='';
ItemList[i].val:='';
ItemList[i].com:='';
setLength(ItemList,i-1);
ругаеться
---------------------------
Financialadvisor
---------------------------
Range check error.
---------------------------
ОК
---------------------------