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;