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]