Dieses ist so nicht korrekt, die "geographische" Lage der Buttons hat sich durch die Nutzung von Tag und die geänderten Namen nicht verändert.
Delphi-Quellcode:
for X := 1 to 3 do
begin
for Y := 1 to 3 do
begin
Spielfeld[ X, Y ] := 0;
TSpeedButton( Self.Controls[Y * 10 + X ] ).Caption := '';
end;
end;
Hier würd' ich es mal so versuchen:
Delphi-Quellcode:
for X := 1 to 3 do for Y := 1 to 3 do Spielfeld[X,Y] := 0;
for X := 0 to Self.Controls.Count - 1 do
begin
if Self.Controls[X] is TSpeedButton then
begin
if TSpeedButton(Self.Controls[X]).Tag <> 0 then TSpeedButton(Self.Controls[X]).Caption := '';
end;
end;
(Ist jetzt nur ungetestet hingedaddelt. Schreibfehler (wie immer) nicht ausgeschlossen.)