Schleife für verschiedennamige Komponenten

[Fussel9]

Hi habe 10 verschiedene ImageKomponenten die jeweil Image1 bis Image10 heißen hat jemand ne Idee für ne Schleife oder gibt es eine Lösung für solle Fälle? Will das Jedes Image seine LoadFromFile Prozedur durchführt um das Attribut Picture mit einem Bild auszustatten...

*Schande über mein Haupt*

[angos]

Hi,

die suche hat mir das gezeigt :)

http://www.delphipraxis.net/internal...t.php?t=151095

Gruß
angos

[Fussel9]

Das sicherste wäre also alle befehle einzeln hinzuschreiben?


:?

Oder wie genau funzt das?

Delphi-Quellcode:

procedure ShowControls (const aControls: array of TControl; 
                        const aVisible: Boolean = True);
var
  i : Integer;
begin
  for i := 0 to High(aControls) do
    aControls[i].Visible := aVisible;
end;

// Anwendung:

ShowControls ([Button4, Button5, Edit1, Edit3, Panel42]);

Gruß der dumme Fussel :wink:

[Fussel9]

Müsste es dann so aussehen?

Delphi-Quellcode:

procedure ShowPicture (const aImages: array of TImage;
                        const aPath: String = (ExtractFilePath
                        (ParamStr(0))+'Test.jpg));
var
  i : Integer;
begin
  for i := 0 to High(aImages) do
    aImages[i].Picture.LoadFromFile := aPath;
end;

[himitsu]

Das sicherste und Schnellste wäre dein Weg zwar.

Der einfche Weg wurde gleich zu Anfang genannt

Delphi-Quellcode:

TImage(FindComponent('Image' + IntoStr(i))).LoadFromFile

und wie die Fehlermeldung dir sagen sollte, sind da nur Kostanten erlaubt und ExtractFilePath, sowie ParamStr sind ja wohl Funktionen :zwinker:

Delphi-Quellcode:

procedure ShowPicture(aImages: array of TImage; aPath: String = '');
var 
  i : Integer;
begin
  if aPath = '' then aPath := ExtractFilePath(ParamStr(0)) + 'Test.jpg;
  for i := 0 to High(aImages) do
    aImages[i].Picture.LoadFromFile := aPath;
end;