DBRICHEDIT 를 이용하여 책자를 db화하려고 합니다.



navi button으로 이동시에는 이상이 없는데 아래의코드로 검색할려고하면



아래의화살표 부분 때문에 DBRICHEDIT 의 글자가 복잡한기호로 바뀌어



버립니다. 다시 navi button으로 이동하면 살아나구요...



소스는 아래와 같습니다. 부탁합니다.



procedure TForm1.DBShow;



begin

With QTransaction Do

begin

SQL.Clear;

SQL.Add('SELECT *');

SQL.Add(' FROM CMAN');

if (Jemok.Text = '') then

begin

SQL.Add(' WHERE Peage = :Peage');

ParamByname('Peage').AsString := Peage.Text;

end else

begin

SQL.Add(' WHERE JEMOK LIKE :JEMOK');

ParamByname('JEMOK').AsString := '%'+Jemok.Text+'%';

if Jemok.Text <> '' then

begin

SQL.Add(' AND PeAGE = :PeAGE');

ParamByname('PeAGE').AsString := Peage.Text;

end;

end;

Open;

if RecordCount = 0 then

begin

StatusBar1.Panels.Items[0].Text := '자료가 없습니다.';

Jemok.SetFocus;

Exit;

end;

// 메뉴얼의 자료

m_MNo := FieldByName('MNO').AsInteger;

Jemok.Text := FieldByName('JEMOK').AsString;

Peage.Text := FieldByName('PeAGE').AsString;

DBRichEdit1.Text := FieldByName('NOTE').AsString;<---- 여기서 에러!!!!

end;

With QTransaction Do

begin

SQL.Clear;

SQL.Add('SELECT * FROM CMAN');

SQL.Add(' WHERE MNO = :MNO');

ParamByname('MNO').AsInteger := m_MNo;

Open;



end;

StatusBar1.Panels.Items[0].Text := ' 자료를 검색했습니다.';

Peage.SetFocus;

end;