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

Вниз

Abstrack Error   Найти похожие ветки 

← →
Kolan ©   (2004-11-03 00:38) [0]

Здравствуйте,

Вот возникает такая ошибка, вот код.

TLineParser = class
 private
   {***}    
   FCommands: TStrings;
   {***}
   procedure SetCommands(const Value: TStrings);
   function  GetCommands: TStrings;
 protected
   {***}

 public
   constructor Create;
   procedure ParseLine();
   procedure Clear;
 published
   {***}

 end;

вот конструктор

constructor TLineParser.Create;
begin
 FLine := "";
 FErrorString := "";
 FCommands := TStrings.Create;
end;
{***}
При использовании FCommands напр add и возникает ошибка.

Как исправить?

---

← →
GuAV ©   (2004-11-03 00:44) [1]

Kolan ©   (03.11.04 0:38)

>  FCommands := TStrings.Create;

TStrings это абстрактный класс. Используй наследника реалищующего абстрактные методы TString, например TStringList.
FCommands := TStringList.Create;

---

← →
Kolan ©   (2004-11-03 01:05) [2]

> GuAV ©   (03.11.04 00:44) [1]

Благо дарю.
Я вот тут чужой исходник смотрю там так
constructor Create(AOwner: TComponent);override;
прпробовал получаю
: Cant override  static method

---

← →
Defunct ©   (2004-11-03 01:21) [3]

чтобы override написать нужно чтобы у предка этот метод был виртуальным.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.024 c