Une matrice qui a 5 colonnes et 6 lignes a normalement 30 elements(cellules). C'est à dire 5*6 mais lors de mon parcour y'a que 21 showmessages qui s'affichent quelqu'un pourrait-il m'aider a trouver où est mon erreur logique le code est le suivant :

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
 
 
procedure TForm1.Button1Click(Sender: TObject);
var k,l : integer;
var TableauDD : array[1..5,1..6] of integer;
begin
  for k := 1 to 5 do
  begin
    for l := k to 6 do
    begin
      TableauDD[k,l]:=random(10);
      showmessage(intTOstr(TableauDD[k,l]));
    end;
 
  end;
 
end;