我的報表出現問題 |
|
答題得分者是：Stallion
|
|
charles9344
一般會員   發表：7 回覆：6 積分：2 註冊：2006-11-13 發送簡訊給我 |
程式碼是這樣....請大大有空幫我看看
procedure prinDBGrid(lst:tstrings); var i,line:integer; begin line:=0; printer.BeginDoc; for i:=0 to lst.count-1 do begin printer.Canvas.TextOut(0,line,lst[i]); line:=line abs(printer.Canvas.Font.Height); if (line>=printer.PageHeight) then printer.NewPage; end; printer.EndDoc; end; procedure TForm1.confirmClick(Sender: TObject); begin printDBGrid(dbg.Columns); end; |
|
Jasonwong
版主  發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
|
|
charles9344
一般會員 發表：7 回覆：6 積分：2 註冊：2006-11-13 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
|
|
charles9344
一般會員 發表：7 回覆：6 積分：2 註冊：2006-11-13 發送簡訊給我 |
|
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
大哥～拜託看一下吧！
prinDBGrid(lst:TStrings) //TString型態 dbg.Columns 是Columns是TDBGridColumns //TColumns型態 型態不符又不能implicit轉換，能這樣呼叫嗎？ 我看過你所有提問的問題，我發現你沒有K過OBJECT PASCAL，那怎麼寫DELPHI呢？ 這邊有一本中譯本的Essential Pascal(Pascal真經)，下載KK吧。 http://delphi.ktop.com.tw/board.php?cid=31&fid=77&tid=18536 ===================引 用 charles9344 文 章=================== 程式碼是這樣....請大大有空幫我看看 procedure prinDBGrid(lst:tstrings); var i,line:integer; begin line:=0; printer.BeginDoc; for i:=0 to lst.count-1 do begin printer.Canvas.TextOut(0,line,lst[i]); line:=line abs(printer.Canvas.Font.Height); if (line>=printer.PageHeight) then printer.NewPage; end; printer.EndDoc; end; procedure TForm1.confirmClick(Sender: TObject); begin printDBGrid(dbg.Columns); end; |
發表時間：2007-05-29 11:15:57
IP:202.175.xxx.xxx 訂閱
系統時間：2024-04-26 16:04:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |