Bonjour a tous

Voila j'ai une variable du type string qui contient des F est des W pour constituer une map , W = Murs , F = Espace Libre

Ex:
Maze : 10 Colonnes 10 lignes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
WWWWWWWWWW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WFFWFFWFFW
WWWWWWWWWW
Mais mon petit problème c'est que je veux rentré cette map dans mon tableaux

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
type
  TCode = (W, F);
 
   Map: array[0..9, 0..9] of TCode;
 
const
  Maze = 'WWWWWWWWWWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWFFWFFWFFWWWWWWWWWWW';
 
function CharCode(IChar: Char): TCode;
begin
  Result := F;
  case IChar of
    'W': Result := W;
    'F': Result := F;
  end;
end;
 
 
procedure TForm1.ChrMapClick(Sender: TObject);
var
 I: Integer;
 Col, Row: Integer;
begin
   for I := 0 to Length(Maze) do
    begin
       // Est la je bloque, il faut que je rentre chaque lettre du Maze dans le tableau en respectant les Colonnes est les lignes en sachent que
      // le Maze fait 10 colonnes est 10 lignes.
     Map[Col,Row] := CharCode(?);
    End;
end;
 
procedure TForm1.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with DrawGrid.Canvas do
  begin
  case Map[ACol,ARow] of
    W: Draw(Rect.Left +1, Rect.Top +1, ImW.Picture.Graphic);
    F: Draw(Rect.Left +1, Rect.Top +1, ImF.Picture.Graphic);
  end;
end;
end;

Merci pour votre réponse.