Hallo,
Ich habe ein Problem:
Ich bin ein Anfänger im Programmieren und soll zur Übung einen 2dimensionalen Array in Delphi erstellen und ein Element daraus anzeigen. Dafür habe ich folgenden Quellcode:
Delphi-Quellcode:
unit Unit2;
interface
uses
SysUtils,
Forms, Dialogs, System.Classes,
Vcl.Controls,
Vcl.StdCtrls;
type
TForm2 =
class(TForm)
Label1: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
end;
var
Form2: TForm2;
multiArray :
Array of Array of Integer;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
label1.caption:=inttostr(multiArray[1,1]);
end;
procedure TForm2.FormCreate(Sender: TObject);
var
i,j : Integer;
begin
SetLength(multiArray, 3);
SetLength(multiArray[0], 1);
SetLength(multiArray[1], 2);
SetLength(multiArray[2], 3);
for i := 0
to High(multiArray)
do
for j := 0
to High(multiArray[i])
do
begin
multiArray[i,j] := i+j;
ShowMessage('
multiArray['+ IntToStr (i)+'
,'+ IntToStr (j)+'
] = '+
IntToStr (multiArray[i,j]));
end;
end;
end.
Wenn ich das Programm starte habe ich keine Fehler, aber sobald ich den Button betätige kommt die Angehängte Fehlermeldung.
Kann mir jemand weiterhelfen?
LG
Omakauftwindows
P.S.: Im Zuge der weiteren Arbeit soll ich das ganze als Tabelle ausgeben, wäre dankbar, wenn mir dabei auch jemand helfen könnte.