Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Apr 2008
FindComponent('Image' + inttostr(x+4*i))
Ein konstantes Array in einer Var definieren? :gruebel:
Oder meinst Du sowas?var Bilder: array of string;
begin
Bilder := 'Blau';
Bilder := 'Gruen';
...
end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Apr 2008
Welche Zeile meinst Du jetzt? Wenn Du dynamisch eine Komponente ansprechen willst, kannst Du das auch mit FindComponent tun.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Apr 2008
Oder gleich ein konstantes Array (siehe Edit #2).
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Apr 2008
Stimmt, array geht nicht.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
13. Apr 2008
Ändere das mal ab von integer in TImage.
Außerdem würde ich das eher so machen:procedure TForm1.Button1Click(Sender: TObject);
const Bilder: array of string = ('Blau','Rot','Gruen','Gelb','Braun','Orange');
begin
{RadioButton1}
Image1.Picture.LoadFromFile(Bilder + '.bmp');
{RadioButton2}
Image2.Picture.LoadFromFile(Bilder + '.bmp');
{RadioButton3}