Discussion :

[Silerys]

Bonjour à tous,

Voila je me posait une question
Est il possible de gérez des array avec des chaines ?

exemple :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.onCreate(Sender: TObject);
var
  exemple : array of string;
begin
  Exemple['Hello'] := Bonjour;
  Exemple['good evening'] := Bonsoir; 
end;

Je précise c'est juste un exemple mais cela est il possible en delphi?
Si oui comment dois-je m'y prendre SVP

Merci d'avance pour vois réponse.

[paulfr]

Bonjour,

Sous cette forme je pense que ce n'est pas possible, l'index devant être un ensemle fini.

Il y aurait une solution à essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Type 
    Tindex = set of (Trefle, Carreau ,Coeur ,Pique);
 
Var   
   Exemple : Array[Trefle.. Pique] of String;
 
 
begin
    Exemple[Coeur] := 'Bonjour';
   ...
end;

Cette version ce compile, c'est une solution à vérifier.

Dans votre exemple Bonjour et Bonsoir ne sont pas des String pour Delphi.

[Paul TOTH]

c'est possible avec un objet qui déclare une propriété

Code :

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

1
2
3
4
5
6
7
 
type
  TStringArray = class
    function getString(const Index: String): string;
    procedure setString(const Index, Value: string);
    property Strings[Index: string]: string read getString write setString; default;
  end;

et ça existe notamment avec TStringList.Values

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Values['Hello'] := 'Bonjour';
// ce qui donne la même chose que
  s.Add('Hello=Bonjour');
end;

[hohorga]

Bonsoir,

Moi je partais sur les TDictionnary (je découvre depuis peu) :

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
 
uses
  System.SysUtils , Generics.Collections ;
 
var
    ChaineNommee : TDictionary<string , string>;
begin
 
    ChaineNommee := TDictionary<string , string>.create;
    ChaineNommee.add('Hello','Bonjour');
    ChaineNommee.add('good evening','Bonsoir');
 
    Writeln('Hello premier : ' ,ChaineNommee['Hello']);
 
    ChaineNommee['Hello'] := 'Coucou';
 
    Writeln('Hello second : ' ,ChaineNommee['Hello']);
    Writeln('good evening : ' ,ChaineNommee['good evening']);
 
    ChaineNommee.Free;
end.

ce qui donne :

Code :

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

1
2
3
Hello premier : Bonjour
Hello second : Coucou
good evening : Bonsoir

[Silerys]

Hum je ne connaissais pas le TDictionnary,

Je vais aller voir de ce côté.

Ça doit pouvoir solutionner mon problème

En tout cas merci pour vos réponse
et désolé de la réponse tardive 15 août oblige