Exception Class Error

[JP29]

Hey Leute
und zwar schmiert mir mein programm immer ab, allerdings ist es kein fehler, sonder irgendeine zugrifsverletzung.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Button1: TButton;
    ListBox2: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
   feld : array of integer;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i, y : integer;
    x : string;
begin
y:=0;
 for i:=1 to 30 do begin
  x:=IntToStr(random(100)+1);
  listbox1.Items.Add(x);
  [B]feld[y]:=StrToInt(x);[/B]
  y:=y+1;
 end;

end;

end.

die zeigt er mir beim fett gedruckten an.

bitte um hilfe.

[Klaus01]

Hallo,

da feld ein dynamisches Array ist - hast Du irgendwo dem feld eine Länge zugewiesen?

Grüße
Klaus

[JP29]

ahh stimmt. ok danke

[himitsu]

Und stell dir mal die Indexprüfung an, in den Projektoptionen.
Denn so hättest du den Fehler von selber gefunden.


Genau wenn man den Debugger ordentlich verwendet.
Denn da hätte man sich diese Variable mal angesehn, kurz vor dem Ausführen dieser Codezeile und einem wäre womöglich aufgefallen, daß diese Variable leer ist.



"irgendeine" ist keine genaue Fehlerbeschreibung ... "Zugriffsverletzung an Adresse $0000****" zeigt auch gleich, was da los ist.
0+Offset = nil

Also irgendwo ist etwas nicht vorhanden und der Zeiger steht auf nil.
z.B. ein Objekt, dynamisches Array oder ein Interface

[Luckie]

Zitat von JP29:

allerdings ist es kein fehler, sonder irgendeine zugrifsverletzung.

Interessant eine Zugriffsverletzung nicht als Fehler zu sehen.