菜鸟关于TQRDBRichText的问题 |
|
答題得分者是：chih
|
|
railgunman
初階會員   發表：59 回覆：121 積分：36 註冊：2003-03-31 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
|
|
railgunman
初階會員 發表：59 回覆：121 積分：36 註冊：2003-03-31 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
引言: QRDBRichText1.DataSet.FieldByName('fieldname').AsString ; 这是一个付值语句吗？ 应该是： ？ := QRDBRichText1.DataSet.FieldByName('fieldname').AsString ; 但 := 的左半部分的内容是什么呢？是 QRDBRichText1.text吗？問得好，我也想知道答案。 像 Chih 兄所說，一般用 varChar 應沒沒問題的 請問你是用甚麼數據庫的呢? 又請問若在 Form 中的 TRichEdit 能不能顯示同一 Field 呢 ? |
|
railgunman
初階會員 發表：59 回覆：121 積分：36 註冊：2003-03-31 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
Sorry,之前看錯了,QRDBRichText好像不行,我改為QRRichText1就可以了.改為如下:
procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRRichText1.Lines.clear;
QRRichText1.Lines.Add(dm1.Q_paint.FieldByName(a16).AsString);
end;
引言: 我设定了呀，不过是在程式里面设定，设定的语句为: fm_paintapphigh.QRDBText1.DataSet := dm1.Q_paint; fm_paintapphigh.QRDBRichText1.DataSet := dm1.Q_paint; fm_paintapphigh.QRDBRichText1.DataField := 'a16'; 不过我的A16字段的类型为Varchar(200). 搞不懂是什么原因！發表人 - chih 於 2003/05/22 08:54:30 |
|
wnhoo
高階會員 發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
我认为您设置Varchar(200)，应该是可以显示的；如果不行您你可以在SQL中将这个字段的类型变为STRING，不同数据库的转变函数不同； 我下面用程序的方法，供参考！
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
tmpstr:string;
begin
tmpstr:=QRDBRichText1.DataSet.FieldByName('fieldname').AsString ;
QRDBRichText1.GetTextBuf(pchar(tmpstr),length(tmpstr));
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
railgunman
初階會員 發表：59 回覆：121 積分：36 註冊：2003-03-31 發送簡訊給我 |
發表時間：2003-05-21 15:16:17
IP:211.162.xxx.xxx 未訂閱
系統時間：2024-05-06 23:17:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |