Hallo!
Ich würde gerne mittels Zählvariable auf einen bestimmten String zugreife.
Meine Variablen (global):
Delphi-Quellcode:
var
Form1: TForm1;
n:string;
i,k,m,z:integer;
Shape2,Shape:TShape;
Hier der Code von meinem ersten Button (Zum erstellen und zuteilen der Farben der Shapes):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=0;
for k:=1 to 5 do
begin
for i:=1 to 5 do
begin
m:=m+1;
z:=random(2);
Shape := TShape.Create(Form1);
With Shape do
begin
Parent := Form1;
Left :=(i*30);
Top :=(k*30);
Width:= 30;
Height:=30;
if z=1 then brush.color:=clblack;
Name := 'Shape' + inttostr(m);
end;
end;
end;
end;
Der zweite Button (zum löschen der Shapes)
Delphi-Quellcode:
for m:=1 to 25 do
begin
Shape2.name:='Shape' + inttostr(m);
Shape2.Destroy;
end;
end;
Er compiliert es richtig und ich kann starten, jedoch wenn ich die Shapes erstellt habe und dann den 2. Button drücke, kommt eine Fehlermeldung und das Programm bricht ab. (FM im Anhang)
Könnt ihr mir sagen, warum da eine Fehlermeldung passiert?
LG Niclas
