Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

Абстрактные методы класса   Найти похожие ветки 

 
reticon ©   (2003-11-06 23:33) [0]

Имеется некоторая процедура

DoSomething(s: string; str: TStrings);

Делаю так:

Str := TStrings.Create;

на что компилятор выдает предупреждение следующего вида

[Warning] Unit1.pas(81): Constructing instance of "TStrings" containing abstract method "TStrings.Clear"
[Warning] Unit1.pas(81): Constructing instance of "TStrings" containing abstract method "TStrings.Delete"
[Warning] Unit1.pas(81): Constructing instance of "TStrings" containing abstract method "TStrings.Insert"

Соответственно, при попытке вызова процедуры DoSomething получаем ошибку "Abstract Error".

Где грабли?


 
willys ©   (2003-11-06 23:36) [1]

TStrings - абстрактный класс. пиши Str := TStringList.Create;


 
Palladin ©   (2003-11-06 23:38) [2]

Грабли именно в абстрактных методах. Они не предназначены для прямого вызова.
И еще, какой смысл в Str:=TStrings.Create? Если параметр не возвращаемый. Никакого смысла эта конструкция за пределами процедуры не имеет. Соответственно никакого смысла объявлять str параметром тоже нет, объявляй как локальную переменную.
И еще, лучше не объявлять идентификаторы совпадающие с названиями уже существующих функций и типов. Может быть чревато последствиями. В частности путанницей или удивлением что System.Str не работает.


 
Юрий Федоров ©   (2003-11-06 23:51) [3]

str - это на самом деле Pointer, причем переданный в процедуру по значению. То есть при попытке считать его ппосле вызова DoSomething ты ничего не получишь.
Если тебя интересует этот объект снаружи, объяви его как var параметр. И не надо создавать экхемпляры абстрактных классов )))


 
Palladin ©   (2003-11-06 23:53) [4]

тьфу :) записался

> Никакого смысла эта конструкция за пределами процедуры не
> имеет.

Читать как

Никакого смысла результат работы этой конструкции за пределами процедуры не имеет.


 
reticon ©   (2003-11-07 00:27) [5]

Да, все верно, замена Str := TStrings.Create на
Str := TStringList.Create решила проблему. Спасибо :)

ЗЫ это я ковырял функцию StringToWords, взятую с
http://delphibase.endimus.ru/, если кому интересно


 
Anatoly Podgoretsky ©   (2003-11-07 08:57) [6]

Palladin © (06.11.03 23:53) [4]
Она не имеет вообще никакого смысл ни за перделами ни в ней.



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

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
1-56610
MaG
2003-11-05 17:05
2003.11.17
Регистрация


1-56741
satron
2003-11-06 17:17
2003.11.17
Как вызвать OutLook ?


1-56680
nevalex
2003-11-04 22:38
2003.11.17
ListView Itemindex


3-56448
paul_k
2003-10-29 10:45
2003.11.17
Борьба с дублированием


14-56882
MPS
2003-10-26 04:35
2003.11.17
Borland C++ НЕ Устанавливается на WinXP