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:

zusammenfalten · markieren

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.

Im Code kann ich kein Problem erkennen, bei mir funktioniert er auch. Kommen denn die Messageboxen bei Programmstart? Wenn nicht, hast Du wohl die Methode FormCreate nicht mit dem Ereignis OnCreate des Formulars verknüpft (im Objektinspektor).

[edit] Sry, Willkommen in der DP [/edit]

Danke für die Antwort, Das Programm läuft jetzt