Images Arrays zuordnen!

[API]

Zitat von foerster7891:

äh und auch danke für deinen Lösungsvorschlag aber ich weis noch nicht mal was nen case ist

In diesem Fall empfehle ich dir eine Einführung in die Sprache Pascal für Delphi

[foerster7892]

x:=1
y:=2
Z:=3
w:=4
auch für image1 schreiben kann image(x+4*i)

i ist die schleife for i........
0 to 6

könnt ihr mir noch kurz sagen ob das geht?

und dann noch wie ich das const array in var definiere

[DeddyH]

FindComponent('Image' + inttostr(x+4*i)) Ein konstantes Array in einer Var definieren?

Oder meinst Du sowas?

Delphi-Quellcode:

var Bilder: array[0..5] of string;
begin
  Bilder[0] := 'Blau';
  Bilder[1] := 'Gruen';
  ...
end;

[foerster7892]

var
Form1: TForm1;
array[0..5] of string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
const Bilder: array[0..5] of string = ('Blau','Rot','Gruen','Gelb','Braun','Orange');
begin
{RadioButton1}
Image1.Picture.LoadFromFile(Bilder[RadioGroup1.ItemIndex] + '.bmp');
{RadioButton2}
Image2.Picture.LoadFromFile(Bilder[RadioGroup2.ItemIndex] + '.bmp');
{RadioButton3}
Image3.Picture.LoadFromFile(Bilder[RadioGroup3.ItemIndex] + '.bmp');
{RadioButton4}
Image4.Picture.LoadFromFile(Bilder[RadioGroup4.ItemIndex] + '.bmp');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.

so hab ich das jetzt gemacht aber das funktioniert nicht!

[mkinzler]

Was bedeutet, funktioniert nicht?

[foerster7892]

declaration expected but const found
und lacht mich nicht aus aber ich bin nun mal nen total noob

[toms]

vor dem const kommt kein begin

[Der.Kaktus]

Zitat von foerster7891:

Delphi-Quellcode:

var
  Form1: TForm1;
  array[0..5] of string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
const Bilder: array[0..5] of string = ('Blau','Rot','Gruen','Gelb','Braun','Orange');
begin
{RadioButton1}
  Image1.Picture.LoadFromFile(Bilder[RadioGroup1.ItemIndex] + '.bmp');
{RadioButton2}
  Image2.Picture.LoadFromFile(Bilder[RadioGroup2.ItemIndex] + '.bmp');
{RadioButton3}
  Image3.Picture.LoadFromFile(Bilder[RadioGroup3.ItemIndex] + '.bmp');
{RadioButton4}
  Image4.Picture.LoadFromFile(Bilder[RadioGroup4.ItemIndex] + '.bmp');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.

so hab ich das jetzt gemacht aber das funktioniert nicht!

Vor dem const das begin weg und nach image4..... auch..dann solltes es gehen!

[foerster7892]

Danke schonmal aber es geht immer noch nicht:

Project Logiktrainer.exe raised exception class EAccessViolation with message 'Access violation at address 00403EC4 in modul 'Logiktrainer.exe'. Write of address 0057008F'. Process stopped. Use Step or Run to continue.

diese meldung kommt dann

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const Bilder: array[0..5] of string = ('Blau','Rot','Grün','Gelb','Braun','Orange');
begin
{RadioButton1}
Image1.Picture.LoadFromFile(Bilder[RadioGroup1.ItemIndex] + '.bmp');
{RadioButton2}
Image2.Picture.LoadFromFile(Bilder[RadioGroup2.ItemIndex] + '.bmp');
{RadioButton3}
Image3.Picture.LoadFromFile(Bilder[RadioGroup3.ItemIndex] + '.bmp');
{RadioButton4}
Image4.Picture.LoadFromFile(Bilder[RadioGroup4.ItemIndex] + '.bmp');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;

end.

und so sieht das Programm jetzt aus

[mkinzler]

Bei welchem Index?