| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка TStrListEx.DeleteLast ?? [Delphi, Windows]
VPBar © (2007-05-26 16:26:00)Вопрос вот в чем (для версии 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:00) [1]В 2.62 - эта ошибка тоже присутствует.
Версию 2.63 здесь http://www.kolnmck.ru/start.shtmlне нашел
VPBar (2007-05-26 16:32:00) [2]В 2.62 - эта ошибка тоже присутствует.
Версию 2.63 здесь http://www.kolnmck.ru/start.shtmlне нашел
| |
