Forum: Programmieren allgemein
by Blup,
25. Aug 2015
So wie ich den ursprünglichen Quelltext verstanden habe, möchte er schrittweise alle Kreise einblenden, also zuerst einen, dann zwei, usw. bis alle Kreise sichtbar sind.
Deshalb habe ich den Parameter auch "ACount" genannt.
Soll natürlich nur immer ein Kreis zur selben Zeit sichtbar sein, währe der Vergleich mit "=" erforderlich.
Dann würde ich den Parameter "AIndex" nennen.
Forum: Programmieren allgemein
by Blup,
25. Aug 2015
Erstellt man die Komponenten zur Laufzeit selbst, ist ein Array sicher die beste Lösung.
Andernfalls bietet sich auch diese Alternative an:
function TForm4.GetCircle(AIndex: Integer): TShape;
begin
case AIndex of
1: Result := circle1a;
2: Result := circle2a;
3: Result := circle3a;
4: Result := circle4a;