Проблема с TStrings

[alexBlack]

Сообщение от Air

К примеру:

...
var D:TStream;
begin
 D:=TFileStream.Create('C:\1.txt',fmOpenWrite);
 d.Write('sdsdsd',6);
 d.Free;

 d:=TMemoryStream.Create;
 d.LoadFromFile('C:\1.txt');
 d.SaveToFile('C:\2.txt');
 d.Free;
end;

однако не так.

Дело в том, что метод LoadFromFile специфичен для класса TMemoryStream.

С другой стороны:

var D:TStream;
begin
   D:=TFileStream.Create('C:\1.txt',fmOpenWrite);
   D.Write('sdsdsd',6);
   D.Free;

   D:=TMemoryStream.Create;
   D.Write('sdsdsd',6);
   D.Free;

Отлично работает. Чем это хорошо ?
К примеру, мы пишем метод для записи объекта в поток:

[CODE]
procedure TMyObject.Write(F:TStream);
begin
F.Write(...
end;
[CODE]

Обращаю внимание, мы используем в параметрах абстрактный класс и
внутри метода только методы этого класса. Теперь можно вызвать этот метод с любым типом потока. Даже с тем, который, возможно, создадим позже, унаследовав его от TStream. Было бы ошибкой (стратегической) указать в параметрах конкретный класс, например TFileStream, даже если мы будем писать объект только в файл. Например, предположим, что в будущем нам нужно будет сохранить объект в другой поток. Тогда нужно будет или добавить новый метод или исправлять этот. Вот почему использование абстрактных классов экономит время.

[Air]

Сообщение от pu4koff

Да и по Вашему мемо в памяти не помещается?

- В памяти, Да, но и на форме место занимает.

Чтоб не продолжать эту дискуссию, поясню, что сравнивал я не сам класс TMemo, а его св-во TMemo.Items (просто написал коряво)
Возможно из-за этого и пошли разногласия.