Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Panel zur Laufzeit führt zu Exception


kiwicht - Di 13.07.04 22:52
Titel: Panel zur Laufzeit führt zu Exception
N´abend,

hab mir eben folgendes Tut zu Gemüte gezogen:
http://www.delphi-forum.de/viewtopic.php?t=7204

und daraufhin versucht einen Panel dynamisch zu erstellen, regelrecht:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
uses
ExtCtrls;
[...]
var
  frmMain: TfrmMain;
  pan_rechner : Array of TPanel;
[...]
procedure TfrmMain.Button1Click(Sender: TObject);
begin
pan_rechner[1] := TPanel.Create(Self);
pan_rechner[1].Parent := frmMain;
pan_rechner[1].Left := 10;
pan_rechner[1].Top := 10;
pan_rechner[1].Name := 'PANEL1';
pan_rechner[1].Caption := 'PAN1';
end;


Und dann gibts leider ne Zugriffverletzung.

(eins hintenweg, sicherlich etwas umständlich, extra einen Array zu definieren und dann nur mit einem Panel zu arbeiten... ich war aber eben etwas faul, und habs halt erstmal nur mit einem probiert. Später folgen sicherlich noch einige :) )

Danke für eure zahlreichen Antworten :D

ki
Moderiert von user profile iconUGrohne: Code- durch Delphi-Tags ersetzt.


UGrohne - Di 13.07.04 23:01

Wie wärs mit einem
SetLength(pan_rechner,2), denn das ist die Voraussetzung dafür, dass Du auf das Element mit Index 1 zugreifen kannst ;-)


kiwicht - Di 13.07.04 23:08

hm...

okay, ich glaub ich brauch Urlaub.

Ein Array mit Länge Null... nun ja, soviel zu den "Kleinigkeiten" :D

Vielen Dank UGrohne ^^

ki