Как скопировать из DBRichEdit в RichEdit и обратно?

← →
Art1 (2002-02-26 16:29) [0]

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

← →
gek (2002-02-26 16:37) [1]

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

← →
Art1 (2002-02-27 15:40) [2]

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

← →
gek (2002-02-27 15:55) [3]

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];

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

Попробуй так:
M:TMemoryStream; M:=TMemoryStream.Create; DBRichEdit.Lines.SaveToStream(M); M.Position:=0; RichEdit.lines.LoadFromStream(M); M.Free;

← →
Art1 (2002-02-28 09:58) [5]

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

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

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

А подумать?

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

← →
Art1 (2002-03-01 10:48) [7]

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

Как скопировать из DBRichEdit в RichEdit и обратно? Найти похожие ветки