удаление индексов массива

[TotKtoNado]

Сообщение от KAMENYKA

Опешите пожалуйста подробно задачу что вам нужно сделать и приведите нормальный кусок кода, этого слишком мало, тут сразу возникают у меня куча вопросов(Из вашего кода даже не понятно какого типа у вас переменные)! Почему то мне кажется что вы начали совсем не стой стороны расскажите постановку задачи и я попытаюсь вам помочь!!! Скорей всего вам массив то и ненужен!

мне нужно сделать кнопку удаления строк ListView.
Строки я удалять могу. Проблема в удалении индекса массива.Удалить индекс нельзя ты сам сказал. Нужно сразу при удалении выбрасывать в конец списка или вобще в другой массив чтоб в дальнейшем с ним можно удобнее работать.

  type
    TItemList = record
      AllDateArray: TDateTime;
      summa, skidka: currency;
      val, schet, com, statya: string;
  end;

var
  FormRashod: TFormRashod;
  ItemList:array of TItemList;
  I:integer;
  iMusor:integer;
implementation

procedure TFormRashod.BitBtnUdRashodClick(Sender: TObject);
begin
  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:='';
  ItemList[i]:=ItemList[iMusor];
  if ListViewRashod.ItemIndex=-1 then
  Begin
    NIzmRashod.Enabled:=false;
    BitBtnIzmRashod.Enabled:=False;
    NUdRashod.Enabled:=false;
    BitBtnUdRashod.Enabled:=False;
  end;
  //Если ListViewRashod.ItemIndex=-1 тогда заблокировать все кнопки удаления и
  //изменеия строк ListViewRashod
end;

[KAMENYKA]

А вы сами понемаите что вы написали? Зачем вам это:

type
    TItemList = record
      AllDateArray: TDateTime;
      summa, skidka: currency;
      val, schet, com, statya: string;
  end;

и это

ItemList:array of TItemList;

если вы работаете с ListView!

Зачем вам массив записей? Работайте с ListView удаляйте строку сколько вашей душе угодно, он сам переиндексирует записи, если вам нужно сохранить удаленные записи копируйте их в другой ListView(хотя способов куча где их можно хранить). А со своим исходным работайте так же как и работали!

[TotKtoNado]

Сообщение от KAMENYKA

А вы сами понемаите что вы написали? Зачем вам это:

type
    TItemList = record
      AllDateArray: TDateTime;
      summa, skidka: currency;
      val, schet, com, statya: string;
  end;

и это

ItemList:array of TItemList;

если вы работаете с ListView!

Зачем вам массив записей? Работайте с ListView удаляйте строку сколько вашей душе угодно, он сам переиндексирует записи, если вам нужно сохранить удаленные записи копируйте их в другой ListView(хотя способов куча где их можно хранить). А со своим исходным работайте так же как и работали!

да понимаю
Если без записей работать то данные в массиве неправильно записываються. И то есть как переиндексирует?
Я сам сейчас только что проверял он ничего не переиндексировал.

[KAMENYKA]

  for i := 0 to ListView1.Items.Count -1 do begin
    ListView1.Items.Delete(i);//удаление по индексу
    ListView1.Items.Insert(i);//вставка в нужную позицию
    ListView1.Items.Item[i].SubItems.Values['имя колонки']//получение значения колонки по индексу
    ListView1.ItemFocused.SubItems.ValueFromIndex['нидекс колнки']//получение значения колонки по фокусу
  end;

После всего этого вы мне будете говорить что у компонента класса TListView нет индексов? Читайте теорию не руште не себе не окружающим мозг!