Question sur les Array

Version imprimable

14/08/2012, 17h55
Silerys

Question sur les Array
Bonjour à tous, :mouarf:

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

exemple :
Code:

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

Merci d'avance pour vois réponse.
14/08/2012, 18h59
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:

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.

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

Code:

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:

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;

Bonsoir,

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

Code:

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:

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

16/08/2012, 10h29
Silerys

Hum je ne connaissais pas le TDictionnary,

Je vais aller voir de ce côté.

Ça doit pouvoir solutionner mon problème :mouarf:

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