Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Wie wird aus einem String eine Anweisung?

   
    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

  AW: Wie wird aus einem String eine Anweisung?

   
    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;