Вниз
Скачать: CL | DM;

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c
1-90970
Art1
2002-03-14 09:40
2002.03.28
Где найти компонент для чтения и записи XLS файлов?


1-90911
Avsam
2002-03-18 13:34
2002.03.28
Delphi 6 Update 2


3-90730
Koks
2002-02-26 16:41
2002.03.28
QReport- как прервать Preview


6-91028
SemFLY
2002-01-10 04:08
2002.03.28
Компоненты Indy -> TIdTCPServer и TIdTCPClient


1-90968
Tadeush
2002-03-14 12:58
2002.03.28
Focus




   Наверх