Ошибка TStrListEx.DeleteLast ??

← →
VPBar (2007-05-26 16:26) [0]

Вопрос вот в чем (для версии 2.58, может в новой это исправлено):
TStrListEx наследуется от TStrList в котором определен метод DeleteLast.
если у нас есть
SL:TStrListEx
.......
// И мы вызываем
SL.DeleteLast;
.......
То ожидается что удалится последние строка и объект, но на самом деле удаляется только последняя строка.
Это конечно соответствует описанию KOL, но там же написано "Объект TStrListEx отличается от своего предка TStrList (один из редких случаев в KOL, когда объектный тип наследуется не напрямую от TObj) тем, что имеет свойство Objects, сопоставляющее каждой строке 32-разрядное число, или указатель (фактически, TStrListEx строится как объединение TStrList и TList, и операции над их элементами производятся синхронно)."
А при использовании метода DeleteLast эта синхронность нарушается.
Можно ли такое поведение считать ошибочным?
Вероятно надо перекрыть DeleteLast в TStrListEx?
Например так
procedure TStrListEx.DeleteLast;
begin
inherited;
FObjects.Delete( FObjects.fCount-1 );
end;
А лучше (уж если используется наследование) сделать DeleteLast виртуальным, чтобы небыло проблем при присваивании к предку.
SL:TStrList
SL:=NewStrListEx
SL.DeleteLast

← →
VPBar (2007-05-26 16:32) [1]

В 2.62 - эта ошибка тоже присутствует.
Версию 2.63 здесь http://www.kolnmck.ru/start.shtml не нашел

← →
VPBar (2007-05-26 16:32) [2]

В 2.62 - эта ошибка тоже присутствует.
Версию 2.63 здесь http://www.kolnmck.ru/start.shtml не нашел

Ошибка TStrListEx.DeleteLast ?? Найти похожие ветки