배열에 액세스하려고 할 때 액세스 위반이 계속 발생합니다.

Question

델파이에 익숙하지 않아 배열 "nieuwButtons"에 액세스하려고 할 때 액세스 위반이 계속 발생합니다. 누구든지 내가 뭘 잘못하고 있는지 알 수 있니? TGeneral 인스턴스가 유효하지 않은 경우

unit UGeneral; 

    interface 

    uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 
    System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, SMDBGrid, 
    KJSMDBGrid, Vcl.ExtCtrls, KJPanel, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls, 
    Data.DB; 

    type 
    TGeneral = class(TObject) 

    private 
     { Private declarations } 

    public 
     nieuwButtons: array of TButton; 
     nieuwButtonsDataSource: array of TDataSource; 

     procedure listEdits(x, y: Integer; owner: TComponent; parent: TWinControl; 
     source: TDataSource); 
     procedure nieuwClick(Sender: TObject); 
     { Public declarations } 
    end; 

    var 
    General: TGeneral; 

    implementation 

    procedure TGeneral.nieuwClick(Sender: TObject); 
    var 
    i: Integer; 

    begin 
    for i := 0 to Length(nieuwButtons) - 1 do 
    begin 
     if (nieuwButtons[i] = Sender) then 
     begin 
     nieuwButtonsDataSource[i].DataSet.Insert; 
     end; 
    end; 
    end; 

    procedure TGeneral.listEdits(x, y: Integer; owner: TComponent; 
    parent: TWinControl; source: TDataSource); 
    var 
    i: Integer; 
    edit: TDBEdit; 
    _label: TLabel; 
    biggestWidth: Integer; 
    button: TButton; 
    edits: array of TDBEdit; 
    index: Integer; 
    begin 
    if nieuwButtons <> nil then //I get an access violation here 
    begin 
     SetLength(General.nieuwButtons, 0); 
     SetLength(nieuwButtonsDataSource, 0); 
    end; 
    index := Length(nieuwButtons); 
    SetLength(nieuwButtons, index + 1); 
    SetLength(nieuwButtonsDataSource, index + 1); 
    button := TButton.Create(owner); 
    button.parent := parent; 
    button.Top := y; 
    button.Left := x; 
    button.Caption := 'Nieuw'; 
    button.OnClick := nieuwClick; 

    nieuwButtons[index] := button; 
    nieuwButtonsDataSource[index] := source; 

    biggestWidth := 0; 
    SetLength(edits, source.DataSet.Fields.Count); 
    edit := TDBEdit.Create(owner); 
    for i := 0 to source.DataSet.Fields.Count - 1 do 
    begin 
     _label := TLabel.Create(owner); 
     _label.parent := parent; 
     _label.Caption := source.DataSet.Fields[i].FieldName; 
     _label.Top := ((i * 22) + 30 + y); // 22 = standaard(?) hoogte van edittext 
     _label.Left := x; 

     _label.Show; 

     if _label.Width > biggestWidth then 
     begin 
     biggestWidth := _label.Width; 
     end; 
    end; 
    i := 0; 
    for i := 0 to source.DataSet.Fields.Count - 1 do 
    begin 
     edit := TDBEdit.Create(owner); 
     edit.parent := parent; 
     edit.DataField := source.DataSet.Fields[i].FieldName; 
     edit.DataSource := source; 
     edit.Top := ((i * edit.Height) + 30 + y); 
     edit.Left := biggestWidth + 30; 
     edits[i] := edit; 
     edit.Show; 
    end; 

    end; 

end. 

Answer 1

예외를 발생하는 코드 줄 수있는 유일한 방법이다.

오류는 클래스를 인스턴스화하는 코드에서 찾을 수 있습니다. 이 오류의 일반적인 형태는 다음과 같습니다.

1. 개체를 전혀 인스턴스화하는 것을 잊어 버립니다.
2. 형식이 아닌 초기화되지 않은 인스턴스에서 생성자를 호출하여 개체를 잘못 인스턴스화합니다.

   var 
       General: TGeneral; 
   .... 
   General.Create; // sometimes this way 
   General := General.Create; // or sometimes this way 
   

   을하지만 올바른 방법은 다음과 같이이다 :

은 후자의 오류를 설명하기 위해, 그것은 다음과 같습니다 할당

General := TGeneral.Create;