Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.015 c