Bonjour,
Je suis en train de faire de tests.
J'utilise actuellement ce code qui fonctionne correctement
J'aurais maintenant aimer faire la même chose mais en remplacer la liste de string par une liste de liste de string.
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;
L'idée était d'utiliser ce genre de code :
Je n'arrive pas à trouver comment faire, je ne sais même pas si c'est possible.
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;
Ce sera toujours des string qui seront passées. les array auront toujours des longueurs variables.
Merci de vos conseils.
Partager