| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как скопировать из DBRichEdit в RichEdit и обратно? [D3, D5, D6, dBase, FoxPro, Paradox]

Art1 ©   (2002-02-26 16:29:00) 

Подскажите пожалуйста как скопировать из DBRichEdit в RichEdit и обратно, но только по-нормальному, а не через Clipboard.
Очень нужно.

---

Art1   (2002-03-01 10:48:00) [1]

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

---

Набережных С.   (2002-02-28 15:20:00) [2]

А подумать?

B:TStream;

B:=DBRichEdit1.Field.DataSet.CreateBlobStream(DBRichEdit1.Field,bmRead);
RichEdit1.Lines.LoadFromStream(B);
B.Free;


---

Art1   (2002-02-28 09:58:00) [3]

Уважаемый Gek. Как такое:
table.fieldbyname(" DBRichEdit1 ").asstring;
вобще может работать, т.е. как это ты обращаешся к имени объекта как к полю базы? Естественно такое не может работать.

А по второму варианту (копирование через поток) опять старая проблема - при переносе не сохраняется ни цвет, ни выделения, ни размеры символов (т.е. не сохраняется форматирование).

---

Набережных С.   (2002-02-27 19:02:00) [4]

Попробуй так:
M:TMemoryStream;

M:=TMemoryStream.Create;
DBRichEdit.Lines.SaveToStream(M);
M.Position:=0;
RichEdit.lines.LoadFromStream(M);
M.Free;


---

gek   (2002-02-27 15:55:00) [5]

var
s,s_out:string;
i:word;
begin
s:=table.fieldbyname("DBRichEdit1").asstring;
for i:=1 to length(s) do
s_out[i]:=s[i];

---

Art1   (2002-02-27 15:40:00) [6]

Да, так оно работает, но при этом не переносится всё форматирование, а мне такое не подходит.
Нужно типа:
DBRichEdit1.SelectAll;
DBRichEdit1.CopyToClipboard;
RichEdit1.Lines.Clear;
RichEdit1.PasteFromClipboard;
но не через клипборд. А главное нужна возможность копировать посимвольно, т.е. возможность фильтровать информацию.

---

gek   (2002-02-26 16:37:00) [7]

RichEdit1.Lines.Assign(DBRichEdit1.lines);
RichEdit1.text:=DBRichEdit1.text;
с соответствующим полем

---

Наверх