Mehrere Images --> Imagex ???

[Maurooon]

Hey Community,

ich bin gerade dabei etwas zu programmieren, für das ich mehrere Images benutze. Mit meinen bisherigen Kenntnissen würde ich die entsprechenden Zeilen jetzt X mal kopieren und jeweils die Nummer des Images ändern. Nur muss das doch einfacher gehen. Klar kann ich nicht ImageX schreiben, weil woher will das Programm wissen das X eine Variable ist. Gibt es eine Möglichkeit die Nummer eines Images irgendwie durch eine Art Variable zu ersetzen, damit man die ganze Prozedur nicht X mal kopieren muss? Ich hoffe es ist ansatzweise klar was mein Problem ist.

Hier ein weiterer Erklärungsversuch:

Ich hätte gern sowas wie:

Code:

begin
 for i := 1 to 5 do begin
  Imagei.visible := true;
 end;
end;

statt so:

Code:

begin
 Image1.visible := true;
 Image2.visible := true;
 Image3.visible := true;
 Image4.visible := true;
 Image5.visible := true;
end;

in meinem Fall benutze ich sogar weitaus mehr als 5 Images


Ich hoffe mein Problem ist zu genügend erläutert. Vielen Dank schonmal jetzt

Mit freundlichen Grüßen
Maurooon

[Der schöne Günther]

Zitat von Maurooon:

durch eine Art Variable zu ersetzen

Ein "Array of TImage". Ja, einmal musst du alle deine Images da reinstecken.

Aber später kannst du dann genau das sagen was du gerne hättest. nur dass statt "Imagei.visible := true;" dann dort halt "meinImageArray[i].visible := true;" steht.


(Kenne mich mit FreePascal nicht aus, hoffe das ist dort genauso)

[DeddyH]

Such mal hier im Forum nach FindComponent und den möglichen Alternativen dazu.

[Maurooon]

Zitat von Der schöne Günther:

Zitat von Maurooon:

durch eine Art Variable zu ersetzen

Ein "Array of TImage". Ja, einmal musst du alle deine Images da reinstecken.

Aber später kannst du dann genau das sagen was du gerne hättest. nur dass statt "Imagei.visible := true;" dann dort halt "meinImageArray[i].visible := true;" steht.


(Kenne mich mit FreePascal nicht aus, hoffe das ist dort genauso)

Okay vielen Dank. Könnten Sie mir auch ein Beispiel für die Initialisierung eines ImageArrays zeigen?

LG

[Maurooon]

mhmm.... hab das Array nach googlen wie folgt definiert:

Code:

imagearray: array[1..20] of Timage;

und auch jeweils

Code:

imagearray[1] := Image1;
imagearray[2] := Image2;
imagearray[3] := Image3;
imagearray[4] := Image4;
imagearray[5] := Image5;

usw...

nur kriege ich wenn ich z.B. imageaaray[x].left := imagearray[x].left + 1; mache für x := 1 oder so, den error: Identifier idents no member "imagearray"

Jemand eine Lösung? Oder habe ich das Array falsch initialisiert?

[a.def]

Vergiss das Array.

=>

Delphi-Quellcode:

 for i := 1 to 5 do // begin in der nächsten Zeile. Das hier ist schließlich DELPHI ;)
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage))
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;

Ich würde das Ganze aber eher über eine TObjectList<TImage> machen.

[Maurooon]

Zitat von a.def:

Vergiss das Array.

=>

Delphi-Quellcode:

 for i := 1 to 5 do // begin in der nächsten Zeile. Das hier ist schließlich DELPHI ;)
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage))
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;

Ich würde das Ganze aber eher über eine TObjectList<TImage> machen.

Das ist mir viel zu kompliziert ehrlich gesagt. Könnten Sie mir das näher erklären oder eine etwas leichtere Variante vorschlagen? Mit FindComponent oder SysUtils habe ich noch nie gearbeitet.

[a.def]

Dann nehmen Sie am besten meinen Vorschlag wie oben. Da kann eigentlich nichts schiefgehen und allemal besser als ein Array ist es auch.

Delphi-Quellcode:

 for i := 1 to 5 do
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage)) // "SysUtils." kann auch weggelassen werden
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;

Rand-Info: die Zählung eines Arrays beginnt bei 0. Ein Array ist also 0-basiert. Das erste Element in einem Array steuert man mit [0] an, nicht [1].

[himitsu]

Zitat von Maurooon:

Mit FindComponent oder SysUtils habe ich noch nie gearbeitet.

Wetten doch?

IntToStr
StrToInt
Format
Trim
UpperCase
...


SysUtils.IntToStr = IntToStr, wenn man den Namespace nicht braucht, wenn es keine Andere Methode/Funktion gibt, die auch so heißt, wie die in der SysUtils.pas