動態產生TImage 並Assign圖片發生錯誤?! |
缺席
|
TTS
初階會員 發表:72 回覆:66 積分:27 註冊:2003-05-06 發送簡訊給我 |
[code delphi] type TArrBitmap = Array of TBitMap; PArrBitmap = ^TArrBitmap; function DoOutwardBMP(const sImgType, sChartNo, sDupNo, sInpOpd, sSheetNo, sItemCode, sPosCode: String; const dtDate: TDate;var _iCount: Integer): PArrBitmap; procedure TfmFtpConn.BitBtn2Click(Sender: TObject); var ResultBitmap: PArrBitmap; UseImage: TImage; i, iCount, isp: Integer; begin with TfmServerDataContr.Create(Self) do try ResultBitmap:= DoOutwardBMP('2', '1234', 'A', 'O', '88888', '32001', '', StrToDate('2008/5/2', _iYearLen), iCount); if ResultBitmap <> nil then begin SetLength(tmpImage, iCount); isp:= 1; for i:= 0 to iCount-1 do begin tmpImage[i]:= TImage.Create(Self); tmpImage[i].Name:= 'img' IntToStr(i); tmpImage[i].Visible:= True; tmpImage[i].Width:= 60; tmpImage[i].Height:= 60; tmpImage[i].Left:= isp; tmpImage[i].top:= (i Div 13) * 62; isp:= isp 62; end; for i:= 0 to iCount -1 do begin UseImage:= TImage(Self.FindComponent('img' IntToStr(i))); UseImage.Picture.Assign(ResultBitmap^[i]); end; end; finally for i:= 0 to iCount-1 do begin UseImage:= TImage(Self.FindComponent('img' IntToStr(i))); UseImage.Free; UseImage:= nil; end; Release; end; end; [/code] 當我程式Run到 UseImage.Picture.Assign(ResultBitmap^[i]); 這段就會發生Access violation at address....的錯誤, 請問可以指導一下, 小弟的寫法是不是哪有問題呢? =Tks= |
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
|
douglas
初階會員 發表:24 回覆:42 積分:38 註冊:2008-03-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |