Spiel programmieren, Hilfe benötigt.

[Bummi]

So, jetzt kannst Du Dich um die Logik bzgl. der tags kümmern.....

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i,j:Integer;
  Path:String;
begin
   begin
   Path := ExtractFilePath(paramstr(0)) + 'Informatik-Bilder\';
   for i := 1 to 24 do
     TImage(FindComponent('Image' + IntToStr(i))).Visible := true;
   end;
  Randomize;
  ListeVonDateinamen:=TStringList.Create;
  try
    for I := 1 to 4 do
        begin
         For j := 1 to 4 do
          begin
          ListeVonDateinamen.Add(Path + '+' + IntToStr(i) + '.bmp');
          ListeVonDateinamen.Add(Path + '-' + IntToStr(i) + '.bmp');
          end;
        end;
    for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TImage then
      begin
        DateinameIndex:=Random(ListeVonDateinamen.count);
        TImage(Components[i]).Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex]);
        TImage(Components[i]).Tag := StrToInt(ChangeFileExt(ExtractFileName(ListeVonDateinamen[DateinameIndex]),''));
        ListeVonDateinamen.Delete(DateinameIndex);
      end;
      finally
   ListeVonDateinamen.Free;
  end;
end;