VPF::Зачем ссылка и объект разных типов?

Rohoss

Дата 22.2.2009, 10:41 (ссылка)

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

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: 4
Всего: 18

Это из модуля Classes

Какой смысл ссылку делать типа TStream, а объект типа TFileStream?

Код


procedure TCustomMemoryStream.SaveToFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    SaveToStream(Stream);
  finally
    Stream.Free;
  end;
end;

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

Файловый менеджер Explorer.Net скачать video

THandle

Дата 22.2.2009, 10:56 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

В начале статьи про такое есть:
http://forum.vingrad.ru/articles/topic-211911.html

В данном случае, ИМХО, все равно как объявить.

Rohoss

Дата 22.2.2009, 11:14 (ссылка)

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

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: 4
Всего: 18

Цитата(THandle @ 22.2.2009, 10:56

)

В начале статьи про такое есть:http://forum.vingrad.ru/articles/topic-211911.html

THandle, там статья о файловых потоках, а я спрашивал о смысле использовать ссылку другого типа. Мы так же можем создать и TStringList

Код


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

С точки зрения работы кода я тоже думаю будет одинаково (не считая, что некоторые атрибуты класса, которые есть в TStringList и нет в TStrings будут не доступны). Ну наверное есть ещё какая-то причина, по которой так поступают…

Это сообщение отредактировал(а) Rohoss - 22.2.2009, 11:15

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

Файловый менеджер Explorer.Net скачать video

Christoph

Дата 22.2.2009, 13:38 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

Если переменная Stream описана как ссылка на экземмпляр на экземпляр класса TStream, то и эта же переменная может указывать на класс TFileStream, TMemoryStream....и всего то
Ну например

Код


procedure TForm1.Button1Click(Sender: TObject);

Тут сендер может быть Button, edit,label...не знаешь что может лежать в Sender,потому и написали Sender:TObject, так как он может указывать на классы стоящие по иерархии ниже

Цитата(Rohoss @ 22.2.2009, 11:14

)

В твоем примере создается Экземпляр класса TStringList и заносится ссылка на него в переменную класса TString, затем ты вызываешь метод из переменной TString.Add , а реально вызываемый описан в TStringList.Add . Это помоему называется полиморфизм smile

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

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