Spiel programmieren, Hilfe benötigt.

[DeddyH]

Mal alles zusammengefasst (aus dem Kopf, daher ungetestet):

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const 
  AnzahlProBild = 4;
  Dateipfad = 'H:\Informatik-Bilder\';
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i, j:Integer;
begin
  for i := 1 to 24 do
    TImage(FindComponent('Image' + IntToStr(i))).Visible := true;
  
  Randomize; //das gehört ins FormCreate oder so, jedenfalls nur einmal im Programm aufrufen

  ListeVonDateinamen:=TStringList.Create;
  try
    //Stringliste füllen
    for i := -4 to 4 do
      if i <> 0 then
        for j := 1 to AnzahlProBild do
          ListeVonDateinamen.Add(IntToStr(i)); 
    //Images mit Bildern belegen      
    for i:=0 to ComponentCount-1 do
      if Components[i] is TImage then
        begin
          DateinameIndex:=Random(ListeVonDateinamen.count);
          TImage(Components[i]).Picture.LoadFromFile(Dateipfad + ListeVonDateinamen[DateinameIndex] + '.bmp');
          //Tag setzen
          TImage(Components[i]).Tag := StrToInt(ListeVonDateinamen[DateinameIndex]);
          ListeVonDateinamen.Delete(DateinameIndex);
        end;
  finally
    ListeVonDateinamen.Free;
  end;

end;

[Deep-Sea]

Zitat von DeddyH:

Delphi-Quellcode:

for i := 1 to 24 do
  TImage(FindComponent('Image' + IntToStr(i))).Visible := true;

[...]

Delphi-Quellcode:

for i:=0 to ComponentCount-1 do
  if Components[i] is TImage then

Wieso einmal mit FindComponent und einmal anders? Das könnte man doch auch gleich halten

[DeddyH]

Ich hab' s doch nur kopiert

[Deep-Sea]

Zitat von DeddyH:

Ich hab' s doch nur kopiert

Ich weiß. War auch kein Vorwurf an dich. Aber eben allgemein als Tipp gemeint

[Connor Temple]

Ich lad einfach mal mein Programm hoch, weil... ach, weil ich einfach keine Ahnung mehr hab -.-

[DeddyH]

Wenn Du die Bilder +1 bis +4 in 1 bis 4 umbenennst, sollte mein Code eigentlich funktionieren. Wenn Du Fragen dazu hast, frag einfach.

[Connor Temple]

Mein Lehrer meinte nämlich eben, ich soll die Bilder in +1 - +4 umbenennen -.-
Mannoman, ich bin verwirrt.

Hab ihn jetzt eingefügt, vielen Dank, aber was bringt mir der neue Code für Vorteile?

[Sherlock]

Ach? Immer noch am Bilder verstehen?

*Pfeif*
*Auf KISS-Prinzip verweis*

*Weitergeh*

Sherlock