Discussion :

[babou54]

bonjour,
j'ai un petit souci, j'ai crée un tableau :

Code :

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

1
2
 
tmot: array [1..100] of typedico;

mais je ne sait pas comment declarer le type dico.
merci d'avance pour votre aide

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
 
type
  TTypeDico = record
    Dico: string;
  end;
TMot = array [1..100] of TTypeDico;

Code :

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

1
2
3
4
5
6
 
var
  AMot: TMot;
begin
  ...
end;

Si lit ma signature !

[Gilbert Geyer]

Simple suggestion : Si c'est pour créer une sorte de mini-dictionnaire je commencerais par remplacer la var tmot: array [1..100] of typedico; par var Dico : tStringList; plus souple à utiliser qu'un tableau statique :

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
var Dico : tStringList;
 
procedure Dico_Initialisation;
begin Dico := tStringList.create;
        Dico.Sorted := true; // la liste de mots sera automatiquement triée dès son alimentation par la routine suivante Dico_Ajout_DUn_Mot(mot : string);
        Dico.Duplicates:=dupIgnore;
end;
 
procedure Dico_Ajout_DUn_Mot(mot : string);
begin Dico.Add(mot); // ici on ajoute des mots dans la liste 
end;
 
procedure Dico_Affiche; // Affichage, par exemple dans un mémo
var i : integer;
begin memo1.clear;
        memo1.lines.Assign(Dico);
end;

Pour ma part je suis un peu fâché avec la rigidité des tableaux statiques et comme les StringLists on pas mal d'autres avantages (Faire F1 sur TStringList pour plus de détails sur cette structure) je ne me prive pas d'utiliser les StringList (qu'on peut d'ailleurs shématiser sous forme d'un tableau extensible en longueur).

[babou54]

merci beaucoup