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'