Есть ли пример работы с TStream?

← →
Prohodil Mimo © (2005-10-09 16:48) [0]

Пытаюсь создать TStream, записать в него RTF, а потом содержимое поместить в RichEdit.

Var St : String; StF : TMemoryStream; Begin StF := TMemoryStream.Create; St := "Darba Ligums Nr. "; StF.Write(St,Length(St)); REdit1.Lines.LoadFromStream(StF); StF.SaveToFile("E:\S.txt"); StF.Free;

RichEdit пустой.
в S.txt - какой-то бред.

Var St : String; StF : TMemoryStream; Begin StF := TMemoryStream.Create; StF.Write("Darba Ligums Nr. ",Length("Darba Ligums Nr. ")); REdit1.Lines.LoadFromStream(StF); StF.SaveToFile("E:\S.txt"); StF.Free;

RichEdit пустой.
в S.txt - "Darba Ligums Nr. ".

Var St : String; StF : TMemoryStream; Begin StF := TMemoryStream.Create; StF.LoadFromFile("E:\S.txt"); REdit1.Lines.LoadFromStream(StF); StF.Free;

RichEdit содержит - "Darba Ligums Nr. ".

Что я делаю не так?
Где можно прочитать о работе с TStream?

Цель такова: создать в памяти RTF-файл и отобразить его в RichEdit.
Сразу в RichEdit не пишу, т.к. все символы латышские символы заменяются на русские, если регион Россия, и наоборот, если Латвия. А мне надо поддержку и тех и других.

Если пишу в файл, а потм открываю, то всё работает, но не хочется на диск файлы кидать.

← →
begin...end © (2005-10-09 17:01) [1]

Господи, ну сколько же можно! Одна и та же ошибка!

var St: String; StF: TMemoryStream; begin StF := TMemoryStream.Create; St := "Darba Ligums Nr. "; StF.Write(St[1], Length(St)); StF.Position := 0; REdit1.Lines.LoadFromStream(StF); ... end

← →
Prohodil Mimo © (2005-10-09 17:10) [2]

begin...end © (09.10.05 17:01) [1]

спасибо!
не знал что надо его в начало перевести :о)

Всё работает.

← →
Anatoly Podgoretsky © (2005-10-09 17:19) [3]

Prohodil Mimo © (09.10.05 17:10) [2]
Stream это поток! Указатель автоматически перемещается при чтении/записи.

← →
Prohodil Mimo © (2005-10-09 17:36) [4]

Anatoly Podgoretsky © (09.10.05 17:19) [3]
да уже всё понял.
Думал LoadFromStream сам в начало перемещается.

Не перемещает и это хорошо, а то как бы загрузить из середины.

Есть ли пример работы с TStream? Найти похожие ветки