Mehrere Objekte in einer Schleife erzeugen

[Kuehter]

noch eine weitere frage
Ich habe von TImage 27 Objekte und das

Delphi-Quellcode:

   for counter := 0 to 2 do
   begin
      case saferend[counter] of
          0: Image1.Picture.Assign(Caller[0]);
          1: Image1.Picture.Assign(Caller[1]);
          2: Image1.Picture.Assign(Caller[2]);
          3: Image1.Picture.Assign(Caller[3]);
          4: Image1.Picture.Assign(Caller[4]);
          5: Image1.Picture.Assign(Caller[5]);
          6: Image1.Picture.Assign(Caller[6]);
          7: Image1.Picture.Assign(Caller[7]);
          8: Image1.Picture.Assign(Caller[8]);
          9: Image1.Picture.Assign(Caller[9]);
          else
          end;

so aufzuschreiben 27 mal scheint mir doch sehr unelegant

gäbe es eine möglichkeit alle 27 objekte per forschleife oder ähnliches aufzurufen?

[mkinzler]

Kommen Werte < 0 oder > 9 vor?

Delphi-Quellcode:

for counter := 0 to 2 do
begin
    Image1.Picture.Assign(Caller[saferend[counter]]);

[Kuehter]

ne kommen sie nicht
jedoch ist das problem so wie das bei dir steht die werte sind ja größer als 3 und mit geht es nur darum das ich nicht immer Image?.Picture.Assign Schreiben muss sonder das auslagern kann

[DeddyH]

Man darf hier übrigens gern auch eigene Threads eröffnen und muss keine 11 Jahre alten kapern.

[Kuehter]

ich sag dir ganz erhlich ich habe mich nicht damit auseinander gesetzt wie man hier threads eröffnet

[mkinzler]

Zitat von Kuehter:

ich sag dir ganz erhlich ich habe mich nicht damit auseinander gesetzt wie man hier threads eröffnet

Solltest Du aber.

[himitsu]

Zitat von mkinzler:

Kommen Werte < 0 oder > 9 vor?

Du meinst wohl 26.

Zitat von Kuehter:

Ich habe von TImage 27 Objekte und das

Kann man aber über ein IF gut abfangen.

Delphi-Quellcode:

for counter := 0 to 2 do
  if Caller[saferend[counter]] in [0..26] then  // oder so ähnlich
    Image1.Picture.Assign(Caller[saferend[counter]])
  //else
    ;

PS: Falls jemand demnächst mit 100 Objekten ankommt, findet er hier gleich die neue/erweiterte Antwort.

[Blup]

Ich vermute hier soll eher das Image selbst variabel sein:

Delphi-Quellcode:

function TMyForm2.GetImage(AIndex: Integer): TImage;
begin
  Result := FindComponent('Image' + IntToStr(AIndex)) as TImage;
  Assert(Assigned(Result), 'Image' + IntToStr(AIndex) + ' nicht gefunden');
end;

[Dejan Vu]

Bei 'FindComponent' hast Du das Problem, das beim Umbenennen einer Komponente diese nicht mehr gefunden wird, daher: Finger weg und ab mit den Images in eine Liste bzw ein Array Of TImage.

[Kuehter]

ja das image bleibt variable die grund idee ist ja ein symbol rätsel sprich ich brauche jedes mal wenn auf den button gedrückt wird ein neues bild das der neuen zahl zugewiesen wird daher habe ich auch 10 Symbole und 27 image flächen denn die zahlen von 0-9 sind mit den symbolen gemeint.
jetzt ist nur die frage wie man das dynamisch genug hin bekommt.
Deswegen auch die 27 Images wie du meintest habe ich die 10 Bilder bereits in ein Array geladen.

die Zahl die ich habe wird auch als 3 stellige gelesen und wird nachher gesplittet in jede einzelne stelle also 123 = 1 | 2 | 3 und ist das problem Die Variable Counter zählt nur die 3 Stellen hoch die die zahl hat.
Jeddoch brauche ich für die 0-9 die zehn stellen

am besten wäre das

for counter := 0 to 2 do
begin
case saferend[counter] of
0: Image + inttoStr(i).Picture.Assign(Caller[0]);
1: Image + inttoStr(i).Picture.Assign(Caller[1]);
2: Image + inttoStr(i).Picture.Assign(Caller[2]);
3: Image + inttoStr(i).Picture.Assign(Caller[3]);
4: Image + inttoStr(i).Picture.Assign(Caller[4]);
5: Image + inttoStr(i).Picture.Assign(Caller[5]);
6: Image + inttoStr(i).Picture.Assign(Caller[6]);
7: Image + inttoStr(i).Picture.Assign(Caller[7]);
8: Image + inttoStr(i).Picture.Assign(Caller[8]);
9: Image + inttoStr(i).Picture.Assign(Caller[9]);
else
end;