방법을 DataSource와 Field를 직접 연결하시거나....



아니면 먼저 보이지 않는 메모나 리치를 통해 DataSource와 Field를 연결시켜줘서



뿌려진 값을 SelectAll해서 클립보드에 카피하고 실제 보이는 곳에서 붙여주시면 되겠네요.



저도 정 안되서 이 방법을 쓰고 있습니다....쩝...



제대로 다 읽지 못해서 죄송합니다...



그럼..







권태수 께서 말씀하시기를...

> 안녕하세요?

>

> oleRichEdit 땜에 근 2주일째 한숨만 몰아쉬고있습니다. 책이고 help고,뮈고

>

> 다 찾아봐도 답이 나오질않는군요, 질문의 요지는 DBRichEdit2(oleRichEdit)

>

> 의 값을 어떻게 받아서 저장하는가 하는것입니다.

>

> 방법1)

>

> MEMO FIELD에 저장해놓고

> DBRichEdit2.Text := FieldByName(GMEMO).AsString; 하니까 DBRichEdit2의

> 화면이 깨져서 이상한 기호로 바뀌어 버립니다.

>

> 방법2)

>

> Formatted MEMO FIELD에 저장해놓고

> RichEdit2.Lines.Assign(FieldByName(GMEMO)) 해도 저장이 안되고요

> 아래의 소스 ParamByName('GMEMO').AsString := DBRichEdit1.Text

> 부분이 문제인것 같은데 해결법을 모르겠군요

>

> * 문제는 AsString 이나 Text , Lines 등으로 하면 안된다는것 입니다

> 저의 한숨을 기쁨으로 바꿔줄분 안계신가요...

>

> <저장버튼의 소스>

> with Qtransaction do

> begin

> if m_NewAppend then // 신규체크변수가 True이며 INSEERT, False면 Update시킴

> begin

> SQL.Clear;

> SQL.Add('INSERT INTO CMAN1');

> SQL.Add(' ( GMNO, MPAGE, MJEMOK, MGUBUN, GMEMO)');

> SQL.Add('VALUES( :GMNO, :MPAGE, :MJEMOK, :MGUBUN, :GMEMO)');

> ParamByName('GMNO').AsInteger := m_MRNO; // 신규 MNO 번호 할당

> end else

> begin // 기타 사항 신규 삽입

> SQL.Clear;

> SQL.Add('UPDATE CMAN1 ');

> SQL.Add(' SET MPAGE = :MPAGE, MJEMOK = :MJEMOK, MGUBUN = :MGUBUN, GMEMO = :GMEMO');

> SQL.Add(' WHERE GMNO = :GMNO');

> ParamByName('GMNO').AsInteger := m_MNO; // 현재의 MNO

> end;

> ParamByName('MPAGE').AsString := MPAGE.Text;

> ParamByName('MJEMOK').AsString := MJEMOK.Text;

> ParamByName('MGUBUN').AsString := MGUBUN.Text;

> ParamByName('GMEMO').AsString := DBRichEdit1.Text; {RICHEDIT이것의 처리가 문제}

> ExecSQL;

> end;

> MessageBeep(1);

> StatusBar1.Panels.Items[0].Text := ' 저장되었습니다.';

> ScreenClear;

> end;