Bonjour,

Je suis en train de faire de tests.
J'utilise actuellement ce code qui fonctionne correctement

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
procedure TForm1.btn1Click(Sender: TObject);
begin
  ListWords(['aa', 'bb', 'cc', 'dd']);
  ListWords(['01', '02']);
  ListWords(['AA', 'BB', 'CC', 'DD', 'EE', 'FF']);
end;
 
procedure TForm1.ListWords(lst: array of variant);
var
  i: Integer;
begin
  for i := Low(lst) to High(lst) do
    ShowWord(lst[i]);
end;
 
procedure TForm1.ShowWord(str: variant);
begin
  AllocConsole;
  Writeln(str);
end;
J'aurais maintenant aimer faire la même chose mais en remplacer la liste de string par une liste de liste de string.
L'idée était d'utiliser ce genre de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TForm1.btn1Click(Sender: TObject);
begin
  ListWords([['aa', 'bb', 'cc'], ['dd']]);
  ListWords(['01'], ['02']]);
  ListWords([['AA', 'BB', 'CC', 'DD'], ['EE', 'FF']]);
end;
Je n'arrive pas à trouver comment faire, je ne sais même pas si c'est possible.
Ce sera toujours des string qui seront passées. les array auront toujours des longueurs variables.

Merci de vos conseils.