[D2009] Array dynamique dans Array

Version imprimable

Bonjour à toutes 8-) et à tous,

J'ai besoin de déclarer différent tableaux constants :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{$REGION 0}
Const
  ListeSortie0 : Array[0..4] of String =
  (
  'ggggggggggggggERZGFEZRgg',
  'gggggggggggZERGZFggggg',
  'gggggggggggggRZEGggg',
  'gggggggggggZEggggg',
  'ggREZFEZRGFERgggggggggggggg'
  );
{$ENDREGION 0}
 
{$REGION 1}
Const
  ListeSortie1 : Array[0..0] of String =
  ('TTTTTTTTTTTTTTTTTTT');
{$ENDREGION 1}

Ensuite dans une procédure OnClick commune à différent Boutton, j'ai besoin de copier l'un de ces tableaux dans un tableau dynamique Mais cela ne fonctionne pas voilà mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TFConversion.sBitBtnCommunClick(Sender: TObject);
Var
  Path : array[0..MAX_PATH] of Char;
  i: Integer;
  Liste: array of String;
begin
// Récupération du chemin Mes doc du poste
  SHGetSpecialFolderPath(0,Path, CSIDL_PERSONAL,False);
  Case TsBitBtn(Sender).Tag of
    0:{Log1}
      Begin
        SetLength(Liste, Length(ListeSortie0));
        Liste := Copy(listeSortie0);
        EditSortie.Text := IncludeTrailingPathDelimiter(StrPas(Path))+'ECRITURES.TXT';
      end;
    1:{Log2}
      Begin
        SetLength(Liste, Length(ListeSortie1));
        Liste := Copy(listeSortie1);
        EditSortie.Text := IncludeTrailingPathDelimiter(StrPas(Path));
      end;
    2:{Log3}
      Begin
      end;
    3:{Log4}
      Begin
      end;
    4:{Log5}
      Begin
      end;
    6:{Log6}
      Begin
      end;
  End;
 
// On mets à jour les choix du profil de sortie
  With sComboBoxProfils do
  Begin
    Items.Clear;
    for i := Low(Liste) to High(Liste) do
      Items.Add(Liste[i]);
  end;
 
  if sComboBoxProfils.Items.Count > 0 then sComboBoxProfils.ItemIndex := 0;
end;

Mais cela bloque sur la ligne : Liste := Copy(listeSortie0); avec erreur type incompatible.

J"ai également essayer cela
Move(ListeSortie0[0],Liste[0],Length(ListeSortie0));

Mais je ne recopie que la première valeur. Mon but etant d'éviter de passer par une boucle.

Merci de vos lumières.

08/10/2009, 22h49
Michel Devaud

Citation:

Envoyé par BuzzLeclaire

Mais cela bloque sur la ligne : Liste := Copy(listeSortie0); avec erreur type incompatible.

Normal, la fonction Copy n'est pas faite pour ça. Utilisez F1 !

Citation:

Envoyé par BuzzLeclaire

Mon but etant d'éviter de passer par une boucle.

Pourquoi ?
08/10/2009, 23h03
BuzzLeclaire

Citation:

Envoyé par Michel Devaud

Normal, la fonction Copy n'est pas faite pour ça. Utilisez F1 !

Pourquoi ?

Tu va rire mon F1 sur mon delphi 2009 tout neuf bug.. mort de rire. Et puis la fonction copy est faite pour ca justement !! Mais je n'ai vue des exemples qu'avec 2 tableaux de Array dû même type.

Pourquoi ?, je préfère en apprendre d'avantage, faire une boucle, bah en fait là c'est ce que j'ai fais, mais je voudrais pas passer à coter d'une belle fonction...

Ton aide m'a été trés précieuse... Merci
09/10/2009, 00h03
Michel Devaud

F1 -> Copy : Renvoie une sous-chaîne d'une chaîne ou un segment de tableau dynamique. function Copy(S; Index, Count: Integer): array;

Citation:

Envoyé par BuzzLeclaire

Move(ListeSortie0[0],Liste[0],Length(ListeSortie0));

Et en écrivant : Move(ListeSortie0[0],Liste[0],SizeOf(ListeSortie0)) ?

2 pièce(s) jointe(s)

Salut

Comme tu as D2009, je te fais un petit cadeaux (voir StrArray.zip) pour ton code, a utiliser comme dans l'exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
uses StrArray;
 
 
var
  ListeSortie : array[0..1] of TStringArray;
 
procedure TForm1.Button1Click(Sender: TObject);
var Liste : TStringArray;
    Tag   : integer;
begin
  Tag := 0;
  case Tag of
    0 : Liste := ListeSortie[tag];
    1 : Liste := ListeSortie[tag];
  end;
 
  if Liste <> 0 then
    ListBox1.Items.Assign(Liste);
// ou Liste.AssignTo(ListBox1.Items);
end;
 
 
initialization
  ListeSortie[0].PushClear([
    'ggggggggggggggERZGFEZRgg',
    'gggggggggggZERGZFggggg',
    'gggggggggggggRZEGggg',
    'gggggggggggZEggggg',
    'ggREZFEZRGFERgggggggggggggg'
  ]);
 
  // huhuhu (regarder le class operator implicit de TStringArray ;)
  ListeSortie[1] := 'TTTTTTTTTTTTTTTTTTT';
 
finalization
  ListeSortie[1].Finalize;
  ListeSortie[0].Finalize;
 
end.

sinon pour ton probleme :

il faut faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
type
  TDynArray = array of string;
 
var
  ListeSortie : array of TDynArray;
 
...
var
  Liste : TDynArray;
begin
  SetLength(ListeSortie, 2);
  SetLength(ListeSortie[0], 5);
  SetLength(ListeSortie[1], 1);
 
  ...
 
  ...
  Liste := ListeSortie[n];
end;

Voici une astuce que j'utilise souvent pour ce genre de structures :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
// une fiche, 1 listbox, 2 boutons, Tag à 0 et 1, même procédure Click
 
const
  ListeSortie0 : Array[0..4] of String =
  (
  'ggggggggggggggERZGFEZRgg',
  'gggggggggggZERGZFggggg',
  'gggggggggggggRZEGggg',
  'gggggggggggZEggggg',
  'ggREZFEZRGFERgggggggggggggg'
  );
 
  ListeSortie1 : Array[0..0] of String =
  ('TTTTTTTTTTTTTTTTTTT');
 
type
  TItems = array[Word] of string;
  PItems = ^TItems;
  TListInfo = record
    Count: Integer;
    Items: PItems;
  end;
 
const
  Listes: array[0..1] of TListInfo = (
    (Count: Length(ListeSortie0); Items: @ListeSortie0),
    (Count: Length(ListeSortie1); Items: @ListeSortie1)
  );
 
procedure TForm1.Button1Click(Sender: TObject);
var
  cListe: Integer;
  cIndex: Integer;
begin
  ListBox1.Clear;
  cListe := TButton(Sender).Tag;
  for cIndex := 0 to Listes[cListe].Count - 1 do
    ListBox1.Items.Add(Listes[cListe].Items[cIndex]);
end;

09/10/2009, 10h25
BuzzLeclaire

Hallucinant...

Je suis plus que comblé.

Vos 2 propositions sont tout simplement trés intelligente, jamais j'aurais pondu un truc pareil !!!

Merci Paul TOTH :hola: et Dr. Who :hola: