Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Как скопировать из 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]

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




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.066 c
1-90879           XPatriot              2002-03-17 14:26  2002.03.28  
Переменные и файлы.


1-90954           ДмитрийВ              2002-03-14 18:28  2002.03.28  
Как передать двухмерный массив в процедуру?


1-90980           Андре                 2002-03-13 17:01  2002.03.28  
Создание дистрибутивов


1-90945           Yulik                 2002-03-14 13:05  2002.03.28  
Excel


3-90738           aleks2000             2002-02-24 12:48  2002.03.28  
<B>Как открыть ДОС базу данных dBase III в Делфи, так чтобы было написано на нормальном русском</B>