VPF::2 richedits in 1 rtf file with text attributies ? - Форум программистов

huismori

Дата 4.1.2011, 13:04 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

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

is it possible to save it without using third richedit, straight from the stream ???

Код


var
  M: TMemoryStream;
  S: string;
 /// sRichEdit1, sRichEdit2, sRichEdit3: TRichEdit;
begin
    M := TMemoryStream.Create;
 try
    S := 'Old text: ' + DupeString(sLineBreak, 3);
    M.WriteBuffer(S, Length(S));
    sRichEdit2.Lines.SaveToStream(M) ;
    S := 'New text: ' + DupeString(sLineBreak, 3);
    M.WriteBuffer(S, Length(S));
    sRichEdit1.Lines.SaveToStream(M) ;
    M.Seek(0, soFromBeginning) ;

    sRichedit3.lines.LoadFromStream(M);
    sRichedit3.Lines.SaveToFile('MyFile.rtf');

  finally
    M.Free;
  end;

huismori

Дата 11.1.2011, 15:33 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 19.1.2010

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

can someone please help me ?
this is how it saves the text in richedits !!! i dont know why is it doing that ?

Цитата

œİ}_Àõ__‰´G__{_{\rtf1\ansi\ansicpg1254\deff0\deflang1055{\fonttbl{\f0\fnil\fcharset162 Tahoma;}}
{\colortbl ;\red10\green36\blue106;}
\viewkind4\uc1\pard\cf1\f0\fs44 Hello everyone\par
}
_œİ}_Àõ__‰´G__{_{\rtf1\ansi\ansicpg1254\deff0\deflang1055{\fonttbl{\f0\fnil\fcharset162 Tahoma;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs30 How are you ?\par
}
_

this is the code i use;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  M: TMemoryStream;
  S: string;
begin
    M := TMemoryStream.Create;
 try
    S := 'Old text: ' + DupeString(sLineBreak, 3);
    M.WriteBuffer(S, Length(S));
    sRichEdit2.Lines.SaveToStream(M) ;
    S := 'New text: ' + DupeString(sLineBreak, 3);
    M.WriteBuffer(S, Length(S));
    sRichEdit1.Lines.SaveToStream(M) ;
    M.Seek(0, soFromBeginning) ;

    sRichedit3.lines.LoadFromStream(M);
    sRichedit3.Lines.SaveToFile('MyFile.rtf');

  finally
    M.Free;
  end;
end;

Это сообщение отредактировал(а) huismori - 11.1.2011, 15:39

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