Несколько RichEdit'ов в один

[apromix]

Может знает кто, как из нескольких RichEdit'ов забросить текст в один, но чтобы форматирование и картинки сохранялись, а то у меня все пропадает и на выходе в RichEdit'е получается обычный текст без форматирования?

[Банзай]

тут со стримами нужно:

var t:TMemoryStream;
begin
try
t:=TMemoryStream.Create;
Editor1.Lines.SaveToStream(t);
//t.Seek(0,soFromBeginning);
Editor2.Lines.LoadFromStream(t);
finally
t.free;
end;
end;

как из нескольких разберешься

[apromix]

2Банзай

Огромное тебе пасибо

[apromix]

Но как из нескольких в один таким способом? Есть что-то похожее на AppendFromStream()?

[Банзай]

как-то можно, не помню, а можно и завести байтовый массив в него через ReadBuffer заносить содержимое стрима и через WriteBuffer добавлять его в конечный стрим, потом всё вместе заносить в ричэдит. а вообще лучше хелп почитай там всё должно быть.

[Stilet]

А если просто Из каждого Ричедита вписывать в FileStream в конец, а потом этот файл открывать в одном?

[Банзай]

действительно

[apromix]

Ну вот здесь что мне поменять, чтоб создавался один результ. файл? Как добавить что-то в этот FileStream в конец?

procedure TfrmMain.actExportRTFExecute(Sender: TObject);
var
  T:TMemoryStream;
  I: Word;
begin
  // Експорт книги
  // Export in Rich Text Format
  RichEdit1.Lines.SaveToFile(HomePath + CurrentProject + '\' + CurrentParagraf + '.rtf');
  RichEdit2.Clear;
  RichEdit2.PlainText := False;
  SaveDialog1.DefaultExt := 'rtf';
  SaveDialog1.Title := frmNew.Label13.Caption;
  SaveDialog1.FileName := CurrentProject;
  SaveDialog1.Filter := actExportRTF.Caption + '|*.rtf';
  SaveDialog1.FilterIndex := 0;
  SaveDialog1.InitialDir := HomePath;
  try
    T := TMemoryStream.Create;
    for I := 1 to 1{StrToInt(frmPar.Edit2.Text)} do
    if (FileExists(HomePath + CurrentProject + '\' + IntToStr(I) + '.rtf')) then
    begin
      T.LoadFromFile(HomePath + CurrentProject + '\' + IntToStr(I) + '.rtf');
      RichEdit2.Lines.LoadFromStream(T);

//      RichEdit2.Text := RichEdit2.Text + STmp + '    ' + IntToStr(I) + #13#10 + frmClip.RichEdit1.Text;
    end;
  finally
    T.Free;
  end;

  DisplayCaptions;
  if SaveDialog1.Execute then
  begin
    SaveDialog1.FileName := ExtractFileName(SaveDialog1.FileName);
    RichEdit2.Lines.SaveToFile(SaveDialog1.FileName);
  end;

end;

[BOBAH13]

В дельфи ворлд подобная тема разжована до последней строчки
p.s. админ. не стоит удалять пост из-за рекламы дельфиворлд, если действительно там все прекрасно расписано

[sined112]

Сохраняет несколько RichEdit в один файл и кодирует их сразу в UTF-8

var
Temp1 : Utf8String;
Temp2 : Utf8String;
Stream : TStringStream;
begin
Temp1 := Utf8Encode(RichEdit1.Text);
Temp2 := Utf8Encode(RichEdit2.Text);
Stream := TStringStream.Create;
try
Stream.Write(Pointer(Temp1+Temp2)^, Length(Temp1+Temp2));
Stream.SaveToFile('C:\proba-utf8.txt');
finally
Stream.Free;
end;
end;