有勞各位大大呦。謝謝～

我執行以下這段程式碼後FormClose後會出現以下錯誤訊息，請問是哪裡有問題呢?
"Access violation at address 004033F8 in module 'Project1.exe'.Read of address FFFFFFFC."
"Project1.exe raised exception class EInvalidPointer wieth message 'Invalid pointer operation'.Process stopped. "

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
begin
i:=1;
SetLength(MyLabel,qryACTNO.RecordCount);
qryACTNO.First;
while not qryACTNO.Eof do
begin
MyLabel[i]:= TLabel.Create(Application);
MyLabel[i].Caption := qryACTNO.FieldByName('INO_CHAR').AsString;
MyLabel[i].Width := 100;
MyLabel[i].Height := 13;
MyLabel[i].Parent :=Form1;
MyLabel[i].Top := 28 j * 30;
MyLabel[i].Left := 28;
MyLabel[i].Visible := True;
Inc(i);
Inc(j);
qryACTNO.Next;
end;
end;
[/code]

編輯記錄

另外動態陣列是由0開始的(i:=0;)，所以會有錯誤。

------
努力會更接近成功

編輯記錄

Dear Pceyes,

可以囉!!....謝謝您~~

===================引 用 pceyes 文 章===================
另外動態陣列是由0開始的(i:=0;)，所以會有錯誤。