Grenzunterschreitung bei Array[1...9] ohne Exception

[QuickAndDirty]

Zitat von Papaschlumpf73:

Zitat von QuickAndDirty:

Delphi-Quellcode:

{$R+}
procedure TForm1.Button1Click(Sender: TObject);
var
  aTest : Array[1..9] of Integer;
  iIdx : Integer;
begin
  iIdx := 0;
  aTest[iIdx] := 123;
  Label1.Caption := IntToStr(aTest[iIdx]);
end;

und jetzt?

Drück mal auf Projekt > ...neu erzeugen. Dann sollte es klappen. Einfach F9 hat bei mir nicht gereicht. ????

Du musst das Project "erzeugen". Leider ist F9 mehr so eine Zeitsparvariante von "Erzeugen".

Auf jedenfall kann ich nur davon abraten {$R+} oder RANGECHECK ON als Compiler option zu verwenden wenn das Produkt ausgeliefert wird. Es hilft aber manchmal komische Fehler im Testbetrieb zu finden.

[OT]
Wenn du ein recht aktuelles Delphi verwendest(Genereics, Classhelpers) dann kann ich dir noch folgende Unit von Github für Offene Arrays empfehlen.
https://github.com/WilliCommer/ArrayHelper

Die unit heist ArrayHelper.pas aber statt des helpers der inder Unit ist solltest du den TArrayRecord nutzen. Spart einem viel Arbeit und die Syntax sieht dann mehr Objekt orientiert aus...

Delphi-Quellcode:

var
  A: TArrayRecord<string>;
begin
  A.SetValues(['a','b','c']);
  A.Add('d');
  assert(  A.Count = 4 );    // same as length(A.Items);
  assert(  A[1] = 'b' );
  assert(  A.IndexOf('a') = 0 );
  for S in A do
    ..

[/OT]