Forum FunLabyrinthe

Est-ce qu'il y a une commande fundelphi qui peut remplacer tout un groupe de cases ?

C'est à dire remplacer plusieurs cases en même temps .

Modifié intello (nov. 14, 2010 11:25:53)

Pas telle quelle, non. Mais si tu précises exactement ce que tu veux faire, on peut écrire ce qu'on appelle une boucle, qui va pouvoir traiter plusieurs cases d'un coup.

Mais il faut savoir exactement ce que tu entends par "remplacer plusieurs cases en même temps".

Est-ce que c'est remplacer toutes les cases dont par exemple l'effet est TrucMachin en la même case mais avec l'effet Chose ?
Est-ce que c'est modifier toutes les cases dans une zone donnée (un rectangle) ?
Est-ce que c'est modifier une liste de cases qui n'ont pas de point commun permettant de les identifiant, autrement que par leurs coordonnées ?

sjrd
Est-ce que c'est modifier une liste de cases qui n'ont pas de point commun permettant de les identifiant, autrement que par leurs coordonnées ?

Ce serait ça que je voudrais .

Mais si tu peux me donner aussi un code pour

sjrd
remplacer toutes les cases dont par exemple l'effet est TrucMachin en la même case mais avec l'effet Chose

, je ne dirais pas non.

Alors pour le premier, ben il n'y a pas d'autre solution que de modifier chaque case une à une.

Pour le second, il suffit de faire ceci :

  on Execute do
  var
    I: Integer;
  begin
    for I := 0 to Map.LinearMapCount-1 do
      if Map.LinearMap[I].Effect = TrucMachin then
        Map.LinearMap[I].Effect := Chose;
  end;

Tu peux bien entendu adapter pour Field/Tool/Obstacle