Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

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

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
{$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 :

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
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.

[Michel Devaud]

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 !

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

Pourquoi ?

[BuzzLeclaire]

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

[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;

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

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

[Dr.Who]

Salut

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

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
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 :

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
 
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;

[Paul TOTH]

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

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
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;

[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 et Dr. Who