Images Arrays zuordnen!

[Der.Kaktus]

Ich wuerde sagen, Du solltest den Pfad der Bilder mal zusaetzlich mit angeben...das Programm findet sie sicher nicht.

Delphi-Quellcode:

Image1.Picture.LoadFromFile('c:\bilder\'+Bilder[RadioGroup1.ItemIndex] + '.bmp');

[foerster7892]

thx thx thx

i love you all :love: :love: :love:

wer hier nen problem hat findet immer ne Lösung !!! :dp:

[foerster7892]

Delphi-Quellcode:

var
  Form1: TForm1;
  x, y, z, w: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const Bilder: array[0..5] of string = ('Blau','Rot','Grün','Gelb','Braun','Orange');
var i:integer;
begin
for i := 0 to 5 do
begin
x:=1;
y:=2;
Z:=3;
w:=4;
{RadioButton1}
  FindComponent('Image' + IntToStr(x+4*i)).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup1.ItemIndex] + '.bmp');
{RadioButton2}
  FindComponent('Image' + IntToStr(y+4*i)).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup2.ItemIndex] + '.bmp');
{RadioButton3}
  FindComponent('Image' + IntToStr(z+4*i)).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup3.ItemIndex] + '.bmp');
{RadioButton4}
  FindComponent('Image' + IntToStr(w+4*i)).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup4.ItemIndex] + '.bmp');
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  close
end;

end.

hab doch noch mal ne frage (wieso geht das nicht)

Fehlermeldung:
undeclared indentifier: 'Picture'

[mkinzler]

Das Ergebnis von .FindComponent() ist ein TComponent. Diese Klasse kennt die Eigenschaft .Picture nicht. Deshalb musst du das Ergebnis entsprechen Casten:

Delphi-Quellcode:

(FindComponent('Image' + IntToStr(x+4*i)) as TBitmap).Picture. ...

[foerster7892]

sry geht aber leider auch nicht
'TBitmap' and 'TComponent' incompatible types

[mkinzler]

Versuchs mal mit TImage

[foerster7892]

danke hat funktioniert aber wie kann ich es machen das die schleife nacht jedem Button Klick nur einmal durchläuft und ich dann die Radiobox eingabe ändern kann?

Delphi-Quellcode:

var
  Form1: TForm1;
  x, y, z, w: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const Bilder: array[0..5] of string = ('Blau','Rot','Grün','Gelb','Braun','Orange');
var i: integer;
begin
for i:= 0 to 5 do
begin
x:=1;
y:=2;
Z:=3;
w:=4;
{RadioButton1}
  (FindComponent('Image' + IntToStr(x+4*i)) as TImage).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup1.ItemIndex] + '.bmp');
{RadioButton2}
  (FindComponent('Image' + IntToStr(y+4*i)) as TImage).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup2.ItemIndex] + '.bmp');
{RadioButton3}
  (FindComponent('Image' + IntToStr(z+4*i)) as TImage).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup3.ItemIndex] + '.bmp');
{RadioButton4}
  (FindComponent('Image' + IntToStr(w+4*i)) as TImage).Picture.LoadFromFile('H:\USB-Stick\logictrainer\'+Bilder[RadioGroup4.ItemIndex] + '.bmp');
end;
end;

[mkinzler]

Di Schleife sollte doch nur einmal durchlaufen werden. Vielleicht hilft es den Button zu deaktivieren.

[foerster7892]

ich weiß nicht ob du mastermind kennst aber wenn ich den Button klicke habe ich nin einer Reihe 4 Images mit farben und dass 7 mal übereinander so dass jede Reihe andere farben hat das heißt nach dem siebten mal ist das erst zu ende und mann konnte jedesmal die Farben ändern