array of array

Version imprimable

array of array

Bonjour,

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

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:

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.

pourquoi des variants ?

Code:

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:

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;

Bonjour Paul,

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

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

Code:

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:

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'

19/07/2019, 18h53
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.

utilise les TStrings, ou TList de TStrings
Code:

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,...)???