Forum: Object-Pascal / Delphi-Language
Delphi
by der t0r,
10. Jul 2004
die neuordnung is so bevor einer fragt ^^ :
if rb1.checked then begin
for i:=1 to 21 do begin
case i of
1..7:stapel:= arr2;
8..14:stapel:=arr1;
15..21:stapel:=arr3;
end;
end;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by der t0r,
10. Jul 2004
in form create...var Stapel:array of TLabel;arr1:array of Tlabel;arr2:array of Tlabel;arr3:array of Tlabel;
i,j,k : integer;
begin
for i:=1 to 3 do begin
for j:= 1 to 7 do begin
if i= 1 then
arr1:=TLabel.Create(Form1);
if i = 2 then
arr2:=TLabel.Create(Form1);
if i = 3 then
Forum: Object-Pascal / Delphi-Language
Delphi
by der t0r,
10. Jul 2004
also...
fehler der klasse EAccesviolation...
meine arrays sind array of Tlabel...
und er meckert direkt bei der ersten Zeile... :gruebel:
Forum: Object-Pascal / Delphi-Language
Delphi
by der t0r,
10. Jul 2004
ich hab 21 labels in 3 arrays auf der Form , wenn ich sie nun aber
for k:=1 to 7 do begin
with arr1 do begin
left:=100;
top:= k*50;
end;
with arr2 do begin
left:=200;
top:= k*50;
end;