請教各位先進： 弟最近在設計十來種不同的進銷存統計分析圖，每張統計圖均需作圖形列印與轉存圖檔，功能上沒問題均可完成。但每張圖均需撰寫一段統計圖轉檔程式，想用自定函數的方式傳遞統計圖物件名稱，卻找不到這方面的說明，能否請先進略為指導一二．．．． 感謝．．．．．． Owen Yang 05/06/2002

引言: 請教各位先進： 弟最近在設計十來種不同的進銷存統計分析圖，每張統計圖均需作圖形列印與轉存圖檔，功能上沒問題均可完成。但每張圖均需撰寫一段統計圖轉檔程式，想用自定函數的方式傳遞統計圖物件名稱，卻找不到這方面的說明，能否請先進略為指導一二．．．． 感謝．．．．．．

我想可能大家都看不太懂您的問題,可否舉例說明您的問題重點? ～～～Delphi K.Top討論區站長～～～

Sorry..在下表達的不清礎........ 比如說在下作了十張統計分析圖，每張統計分析圖均以一個Form製作.. 每個Form中均放置一個TChart元件，作統計圖 那麼當我要將統計圖轉為圖檔時,圴需撰寫如下程式－ procedure TAreaMonthStaForm.TnPicFileButtonClick(Sender: TObject); Var cBmpFileName : String ; begin SaveBmpDialog.FileName := Copy(AreaNoCombo.Text, 05, 20) '月' Copy(StaMathCombo.Text,03, 08) '線形圖.bmp' ; If SaveBmpDialog.Execute then begin cBmpFileName := SaveBmpDialog.FileName ; If (FileExists(cBmpFileName)) and (Application.MessageBox( '您輸入的檔名已存在，是否覆蓋?', '[[檔名重覆]]', MB_YesNo MB_DefButton2 MB_IconExclamation MB_SystemModal) <> IdYes) then begin Exit ; end ; AreaNoChart.SaveToBitmapFile ( cBmpFileName ) ; end ; end; 在下覺得十張統計就需寫十次這樣的指令，總覺得不太有效率... 想請教各位先進有沒有其他寫法比如自定一函數如下 Function SaveChartFile( TChart元件名稱, 圖檔名稱 ) ; 謝謝各位的指導................. Owen Yang