Erstellt man die Komponenten zur Laufzeit selbst, ist ein Array sicher die beste Lösung.
Andernfalls bietet sich auch diese Alternative an:
Delphi-Quellcode:
function TForm4.GetCircle(AIndex: Integer): TShape;
begin
case AIndex
of
1: Result := circle1a;
2: Result := circle2a;
...
...
10: Result := circle10a;
else Result :=
nil;
// oder Exception auslösen
end;
end;
procedure TForm4.SetCircleVisible(ACount: Integer);
var
i: Integer;
begin
for i := 1
to 10
do
begin
GetCircle(i).Visible := (i <= ACount);
end;
end;
Hallo Blup, vielend Dank für den Vorschlag. Hast du ihn getestet? Bei mir bleibt nämlich das alte Problem, dass ein String ein
String bleibt und keine Anweisung wird. Als optische Darstellung, z.B. im Label, etc. ist das kein Problem. Aber ich benötige ja eine Anweisung.