VPF::Использование стандартных классов

saneea

Дата 5.4.2008, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 13.7.2005

Репутация: нет
Всего: 0

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

Код


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

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

Alexeis

Дата 5.4.2008, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

saneea

Дата 5.4.2008, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 13.7.2005

Репутация: нет
Всего: 0

Alexeis, спасибо!

Это сообщение отредактировал(а) saneea - 5.4.2008, 15:55

pseud

Дата 7.4.2008, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

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

Код


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

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Alexeis

Дата 7.4.2008, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

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

--------------------

pseud

Дата 7.4.2008, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

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

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

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

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

MetalFan

Дата 7.4.2008, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

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

--------------------

There are always someone smarter than you...

Rennigth

Дата 7.4.2008, 17:18 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

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

)

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

Два. THashedStringList еще smile

--------------------

(* Honesta mors turpi vita potior *)

MetalFan

Дата 7.4.2008, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

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

--------------------

There are always someone smarter than you...

pseud

Дата 8.4.2008, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(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. зачем без необходимости использовать переменные класса предка.

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

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »