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

[WhiskasTM]

>>Как из нее удалить...
Из этой типа записи удалить элемент в "где-то там"? Нужно делать событие OnDelete. Если просто список этих записей и нужно удалить одну из них, то эмбаркадеро делает приблизительно так:

type
  TSimpleRec = record
      _1: string;
      _2: string;
      _3: string;
      ImageIndex: integer;
  end;

  TSimpleRecList = class
    FList   : array of TSimpleRec;
    FCount  : Integer;
    FCapacity : Integer;
  public
    procedure Delete(const Index:Integer);
  end;

procedure TSimpleRecList.Delete(const Index:Integer);
begin
Dec(FCount);
Finalize(FList[Index]);
if Index<FCount then
begin
  Move(FList[Index+1],FList[Index],(FCount-Index)*SizeOf(TSimpleRec));
  PPointer(@FList[FCount]._1)^ := nil;
  PPointer(@FList[FCount]._2)^ := nil;
  PPointer(@FList[FCount]._3)^ := nil;
end;
end;

[Stilet]

Finalize(FList[Index]);

О_о

Move(FList[Index+1],FList[Index],(FCount-Index)*SizeOf(TSimpleRec));
PPointer(@FList[FCount]._1)^ := nil;
PPointer(@FList[FCount]._2)^ := nil;
PPointer(@FList[FCount]._3)^ := nil;

о_О

Спорить конечно не стану, но я бы так не поступал.

[WhiskasTM]

А что не так? TStringList же юзаем. И другие списки. Там идентично.

[Stilet]

Не не, все нормуль.
Продолжай. Я за попкорном отлучусь ненадолго...

[WhiskasTM]

Мне с сахаром. Что, посмотрел исходники и схватился за глову ибо как у тебя миллиард строк кода написаны не в том же ключе и придется теперь все переписывать? Я помогу: http://dn.embarcadero.com/article/33423 Но там реально фигня, поганый setlength.

[Stilet]

Что, посмотрел исходники и схватился за глову ибо как у тебя миллиард строк кода написаны не в том же ключе и придется теперь все переписывать?

Что ты? )))

Я помогу

Благодарю, не требуется. Чинить то нечего...

[WhiskasTM]

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

Что ты? )))

Не нужно скромничать, сколько строк уже? Можещь создать тему во фрилансе, посмотрим.

[WinCoder]

Stilet Как флудится? Или ты мне возразишь, что твой последний пост ну вообще не в тему? Давай, возрази.

[Stilet]

Не нужно скромничать, сколько строк уже?

Ой, да не считал как-то... Вообще их кол-во уменьшается с каждым разом )

Или ты мне возразишь, что твой последний пост ну вообще не в тему? Давай, возрази.

Ой все все. Умолкаю ) Действительно нехорошо комментировать сериалы. Давайте еще сезончик, не терпится узнать развязку.

[WhiskasTM]

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

Ой, да не считал как-то... Вообще их кол-во уменьшается с каждым разом )

0 строк кода было в исходнике, уменьшили ещё на одну - 4294967296 строк кода стало в исходнике.

Развязку я жду, когда Ваше превосходительство соизволит пояснить страхыужас почти оффициального кода удаления элементов? В частности Вам надлежит: 1) пояснить левоглазое удивление на Finalize 2) пояснить правоглазое удивление на PPointer(@)^ := nil. Всего наилучшего, "КНМСК" (комитет ненаписавших миллиард строк кода).