Discussion :

[oneDev]

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.

[Paul TOTH]

pourquoi des variants ?

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
 
procedure Test(const aa: TArray<TArray<string>>);
var
  i, j: Integer;
begin
  for i := 0 to High(aa) do
  begin
    for j := 0 to High(aa[i]) do
      ShowMessage(aa[i, j]);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Test([['un', 'deux', 'trois'],['one', 'two', 'three']]);
end;

ou la version sans Generic

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
 
type
  TAASTring = array of array of string;
 
procedure Test(const aa: TAAString);
var
  i, j: Integer;
begin
  for i := 0 to High(aa) do
  begin
    for j := 0 to High(aa[i]) do
      ShowMessage(aa[i, j]);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Test([['un', 'deux', 'trois'],['one', 'two', 'three']]);
end;

[oneDev]

Bonjour Paul,

Désolé, j'ai oublié de préciser que j'étais sous Delphi 7.

J'avais testé des trucs de ce genre là, mais sans succès.
J'ai repris ton code :

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
procedure TForm1.btn1Click(Sender: TObject);
begin
  ListWords([['un', 'deux', 'trois'],['one', 'two', 'three', 'four']]);
end;
 
procedure TForm1.ListWords(lst: TAASTring);
var
  i: Integer;
begin
  for i := Low(lst) to High(lst) do
    ShowWord(lst[i]);
end;
 
procedure TForm1.ShowWord(str: string);
begin
  AllocConsole;
  Writeln(str);
end;

Le compilateur bloque juste après ListWords([['un',.
J'ai les erreurs suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
[Erreur] Main.pas(32): Type ordinal requis
[Erreur] Main.pas(32): Types incompatibles : 'Integer' et 'String'
[Erreur] Main.pas(32): Types incompatibles : 'Integer' et 'String'
[Erreur] Main.pas(32): Types incompatibles : 'Integer' et 'String'
[Erreur] Main.pas(40): Types incompatibles : 'String' et 'dynamic array'
[Erreur fatale] MyProject.dpr(5): Impossible de compiler l'unité utilisée 'Main.pas'

[Paul TOTH]

en effet, il faut un Delphi récent pour pouvoir compiler des tableaux dynamiques déclarés en ligne.

je ne pense pas que ce soit faisable sous D7.

[edam]

utilise les TStrings, ou TList de TStrings

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  diskList: TList
  FileList: TstringList
  i,j: Integer;
  FileName:String;
begin
  DiskList := TList.Create;
  for i:=1 to StrToInt(num_Of_Disks) do begin
      FileList:=TStringList.Create;
      DiskList.Add(FileList)
      For j := to xNombrFile do
          FileList.Add(FileName);
End;

mais, pourquoi tu dois utiliser cette méthode, tu récupère tes strings d'une base, d'un fichier( txt, xml,...)???