Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Использование стандартных классов

Автор: saneea 5.4.2008, 15:37

Не могу понять, почему не работает такой код:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
s: TStrings;
begin
s:=TStrings.Create;
s.Add('');//-вот здесь вылетает Abstract error
end;

Или это просто особенность TStrigs'а?

Автор: Alexeis 5.4.2008, 15:47

saneea, TStrings это абстрактный класс, следует использовать TStringList

Автор: saneea 5.4.2008, 15:54

Alexeis, спасибо!

Автор: pseud 7.4.2008, 09:37

переменная может оставаться TStrings, но созавать ее надо как TStringList

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  s.Add(''); 
end;

Автор: Alexeis 7.4.2008, 09:53

pseud, для этого нужны основания. Просто так, зачем ограничивать интерфейс класса?

Автор: pseud 7.4.2008, 11:41

Alexeis, я не ограничиваю
но если человеку достаточно интерфейса TStrings (ведь он именно к нему обратился)

Добавлено через 5 минут и 8 секунд
да. у TStrings в стандартных классах - один потомок. но ведь это частный случай.

Ведь не редеки случаи, когда есть класс предок, у которого объявлены куча абстрактных методов.
А реализованы они в потомках по разному (например валидация объектов).
Ведь мы будем обращаться к объекту именно как к классу предку.

Автор: MetalFan 7.4.2008, 16:43

согласен с Alexeis. зачем без необходимости использовать переменные класса предка.

Автор: Rennigth 7.4.2008, 17:18

Цитата(pseud @ 7.4.2008, 11:41

)

у TStrings в стандартных классах - один потомок

Два. THashedStringList еще smile

Автор: MetalFan 7.4.2008, 21:54

да на самом деле куча наследников.
TMemoStrings, TCustomBoxStrings etc...

Автор: pseud 8.4.2008, 09:18

Цитата(Rennigth @ 7.4.2008, 17:18

)

Два. THashedStringList еще

THashedStringList - потомок уже TStringList

Цитата(MetalFan @ 7.4.2008, 21:54

)

да на самом деле куча наследников.TMemoStrings, TCustomBoxStrings etc...

ну это уже не Delphi6 в базовой комплектации (которой пользуюсь)

вот я и говорю, допустим у нас массив элементов TMemoStrings, TCustomBoxStrings, THashedStringList, TStringList, а чтобы с ними иногда универсально пообщаться называем их TStrings'ами
пример (бессмысленный, но если надо - можно и разумный изобразить):

Код


  FList.Add(TStringList.Create);
  FList.Add(THashedStringList.Create);
  FList.Add(TCustomBoxStrings.Create);
  FList.Add(TMemoStrings.Create);

  for i := 0 to FList.Count - 1 do
  begin
    ShowMessage(TStrings(FList[i]).Text);
  end;

Добавлено через 2 минуты и 10 секунд

Цитата(MetalFan @ 7.4.2008, 16:43

)

согласен с Alexeis. зачем без необходимости использовать переменные класса предка.

ООП все-таки. В бизнес-логике такое часто приходится изображать.