Скачать: CL | DM;

Ошибка 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 не нашел

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c