[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=

編輯記錄

先Trace看看, 在那一行出錯, 這樣比較好查!!

image1.Picture.Bitmap.Assign(); //這可行嗎?