Скачать: CL | DM;

Есть ли пример работы с 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 сам в начало перемещается.

---

← →
Anatoly Podgoretsky ©   (2005-10-09 17:46) [5]

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

---

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

Anatoly Podgoretsky ©   (09.10.05 17:46) [5]

согласен.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c