Как удалить строку из ListView (в режиме OwnerDraw) ?

[garuna]

Имеется такая структура:

...
 type
  TSimpleRec = record
      _1: string;
      _2: string;
      _3: string;
      ImageIndex: integer;
  end;
    TSimpleArr = array of TSimpleRec;
...
var
 arr: TSimpleArr;

В ней хранятся строки для ListView (OwnerDraw).
Как из нее удалить элемент по индексу?

[Stilet]

Удалить только перезаписав в новый массив.
Сделай как делают СУБД: Добавь некое поле deleted:boolean. Пиши туда True, если считаешь этот элемент удаленным, а в циклах проходов или просто выражениях учитывай это поле. Т.е. сама запись будет существовать, но считаться исключенной из данных, обрабатываемых в программе.

[WinCoder]

Удалить только перезаписав в новый массив.

не обязательно. Можно сдвинуть все записи после удаляемой на единицу влево

for I := (Index + 1) to High(arr) do
  arr[I - 1] := arr[I];

и изменить длину массива на -1.

SetLength(arr, Length(arr) - 1);

[Аватар]

SetLength

Фактически это и есть перепись в новый массив. Можно не массив, а, например, TList, там и метод Delete есть

[WinCoder]

Аватар Так зачем делать то, что уже сделали до Вас?

[Аватар]

Так зачем делать то, что уже сделали до Вас?

Это о чем, больно загадочно

[WinCoder]

Не поверите. О массивах.

[Аватар]

Понятно, я думал о птичках
Было:

Удалить только перезаписав в новый массив.

Реплика из зала:

не обязательно

Реплика с галерки:

Фактически это и есть перепись в новый массив

Что не так?

Так зачем делать то, что уже сделали до Вас?

В огороде бузина, а в Киеве - дядька

[WinCoder]

Реплика с галёрки:

по тому что гладиолус

Что не так?

[Stilet]

WinCoder

Флудим? Ну ну.