Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как взять RTF-текст вместе с разметкой? аналог свойства TextRTF из VB 
V
    Опции темы
Тутанхамец
Дата 17.11.2006, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 1
Всего: 6
Здравствуйте. Проблема в заголовке. 
Код

s=rtfbox1.textrtf

А на делфи?


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Rennigth
Дата 17.11.2006, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Тутанхамец, непомню есть ли в риче что-нибудь специальное, но можно из RichEdita сохранить в Stream
Код

Rich.SaveToStream

а из стрима прочитать в строку или лутше просто в буффер какой-нибудь.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Тутанхамец
Дата 19.11.2006, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 1
Всего: 6
Понятно. А чем лучше? Если читать в строку, то могут быть какие-то проблемы?


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
Rennigth
Дата 19.11.2006, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата(Тутанхамец @  19.11.2006,  14:19 Найти цитируемый пост)
Понятно. А чем лучше? Если читать в строку, то могут быть какие-то проблемы? 


Нет, просто у Richa я не нашел свойства чтобы отдавал не сам текст а содержимое файла, но вот так легко он вытаскивается, тебе это нужно?

Код

function TextRtf(ARichEdit: TRichEdit): string;
var
  lStream: TMemoryStream;
  lStr: string;
begin
  Result := '';
  if Assigned(ARichEdit) then
  begin
    lStream := TMemoryStream.Create;
    try
      ARichEdit.Lines.SaveToStream(lStream);
      lStream.Position := 0;
      SetLength(Result, lStream.Size);
      lStream.Read(Result[1], lStream.Size);
    finally
      lStream.Free;
    end;
  end;
end;




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Snowy
Дата 20.11.2006, 00:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Rennigth, через TStringStream покороче будет.
PM MAIL   Вверх
Тутанхамец
Дата 20.11.2006, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 1
Всего: 6
Отлично. Спасибо Rennigth'у за идею с потоком, спасибо Snowy за идею с tstringstream. 
Функцию я переделал вот так:

Код

function TextRtf(ARichEdit: TRichEdit): string;
var
  ss: TStringStream;
begin
  Result := '';
  if Assigned(ARichEdit) then
  begin
    ss := TStringStream.Create('qq');
    try
      ARichEdit.Lines.SaveToStream(ss);
      Result:=ss.DataString;
    finally
      ss.Free;
    end;
  end;
end;
 


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0715 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.