VPF::Вставить текст в Formatted Memo - Форум программистов

former

Дата 23.11.2006, 08:34 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Есть таблица Paradox с несколькими полями, одно из которых Formatted Memo. Как программно без использования других компонентов вставить в это поле форматированный текст из RTF файла? Файл RTF создан путём сохранения текста из RichEdit другим приложением. smile

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Ozzя

Дата 23.11.2006, 09:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Взято из ДРКБ

Код


Как сохранить RTF в TBlobfield? 
     
  

В этом примере поле 'Table1Memo' это paradox 'formatted memo'. Оно так же может быть полем blob. 

Через TBlobStream содержимое контрола RichEdit можно загружать или сохранять в базу данных: 

procedure TForm1.BtnGetClick(Sender: TObject);  
var  
  bs: TBlobStream;  
begin  
  bs:= Nil;  
  with Table1 Do  
    try  
      open;  
      first;  
      bs:= TBlobStream.Create( table1memo, bmread );  
      Richedit1.plaintext := false;  
      Richedit1.Lines.Loadfromstream(bs);  
    finally  
      bs.free;  
      close;  
    end;  
end;  

procedure TForm1.BtnPutClick(Sender: TObject);  
var  
  bs: TBlobStream;  
begin  
  bs:= Nil;  
  with Table1 Do  
    try  
      open;  
      first;  
      edit;  
      bs:= TBlobStream.Create( table1memo, bmwrite );  
      Richedit1.plaintext := false;  
      Richedit1.Lines.Savetostream(bs);  
      post;  
    finally  
      bs.free;  
      close;  
    end;  
end; 

Взято из [URL=http://forum.sources.ru]http://forum.sources.ru[/URL]

Это сообщение отредактировал(а) Ozzя - 23.11.2006, 09:11

former

Дата 23.11.2006, 14:17 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Цитата

Файл RTF создан путём сохранения текста из RichEdit другим приложением!

Это я уже видел. Сдесь используется RichEdit, а мне нужно программно сразу из RTF файла в Formatted Memo. smile

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

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