Discussion :

[Bruno13]

Bonjour à tous,

Je cherche à faire un tableau de ce type :


Nom Code Compteur
'Bruno' 'A61K' 3
'Bruno' 'C01C' 7
'Bruno' 'G06F' 1
'Pierre' 'A01B' 4
etc...

Nom, Code : String
Compteur : Integer

Et qui me permette aussi d'incrémenter mon compteur, car je veux tout simplement trouver les fréquences pour chaque Nom-Code.

Merci pour votre aide,
Bruno

[Rayek]

Tu crées un type record

Code :

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

1
2
3
4
type TMonType=record
  Nom, Code : String
  Compteur : Integer
end;

Puis tu crées ton tableau avec ce type

Code :

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

1
2
3
 
var
  Montableau : array [1..50] of TMonType;

Puis tu l'utilises simplement

Code :

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

1
2
3
4
 
MonTableau[0].Nom := 'Bruno';
MonTableau[0].Code := 'A61K';
MonTableau[0].Compteur  := 3;

[Bruno13]

Re-Bonjour,

Pensez-vous que cette déclaration puisse faire l'affaire :

Code :

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

1
2
3
4
5
6
7
  TMyParam = class(TObject)
  private { Déclarations privées }
  public { Déclarations publiques }
    Name: string;
    Country: String;
    Freq: Integer;
  end;

Mais j'aurais donc besoin aussi :
- d'une liste qui contienne mes objects
- d'une fonction Add(MP) qui ajoute un objet et/ou incrémenter la Freq si l'object existe déjà
- d'une fonction ExtractFreq(Name, Code)

quelqu'un peut-il m'aider à compléter mon code ?

D'avance merci,
Bruno

[Bruno13]

Bonjour Rayek,

j'etais en train de completer mon message quand tu as répondu.
J'avais pensé à un record mais n'est-ce pas mieux avec un Objet et d'implementer ses fonction/procedure ?

Mille merci,
Bruno

[Rayek]

Bonjour Rayek,

j'etais en train de completer mon message quand tu as répondu.
J'avais pensé à un record mais n'est-ce pas mieux avec un Objet et d'implementer ses fonction/procedure ?

Mille merci,
Bruno

J'ai juste répondu à la base de ce que tu demandais, après oui tu peux utiliser un Objet.
Après tu fais comme bon te semble, les deux méthodes sont correctes (même si je pense que l'utilisation d'objet est la meilleure)

[Bruno13]

ok merci pour ta réponse. Je pense aussi que l'utilisation d'objet est mieux.

j'ajoute donc le Tag résolu à mon message.

A bientôt,
Bruno

[Suryavarman]

Tu peus aussi utiliser une TstringList.
la clef sera le code ou ce que tu veus, sinon regarde les HashTables

cela pour associer une string à un objet

Code :

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

1
2
3
4
5
6
7
8
9
 
aTStringList : TStringList ;
aTMyParam    : TMyParam    ;
aCode        : String      ;
...
 aCode := aTMyParam.nom ; 
 aTStringList.AddObject(  aTMyParam.code, aTMyParam  ) ;
 
 aTMyParam  := TMyParam(  aTStringList.Objects( aTStringList.IndexOf ( aCode)  )   ) ;

j'ai pas essayé les HasTable sur delphi, mais ça serait mieux, car c'est fait pour ce genre de chose.


Rq :

Code :

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

TMyParam = class(TObject)

pas besoin de TObject c'est automatique et pas besoin de overload et d'inherited pour le constructeur et le destructeur .

Rq : vivement les génériques ( alias template en c++ )

[Rayek]

Tu peus aussi utiliser une TstringList.
la clef sera le code ou ce que tu veus, sinon regarde les HashTables

cela pour associer une string à un objet

Code :

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

1
2
3
4
5
6
7
8
9
 
aTStringList : TStringList ;
aTMyParam    : TMyParam    ;
aCode        : String      ;
...
 aCode := aTMyParam.nom ; 
 aTStringList.AddObject(  aTMyParam.code, aTMyParam  ) ;
 
 aTMyParam  := TMyParam(  aTStringList.Objects( aTStringList.IndexOf ( aCode)  )   ) ;

j'ai pas essayé les HasTable sur delphi, mais ça serait mieux, car c'est fait pour ce genre de chose.


Rq :

Code :

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

TMyParam = class(TObject)

pas besoin de TObject c'est automatique et pas besoin de overload et d'inherited pour le constructeur et le destructeur .

Rq : vivement les génériques ( alias template en c++ )

Autant qu'il utilise directement un TObjectList au lieu d'une TStringList.

[Suryavarman]

et pourquoi donc ?

[Rayek]

et pourquoi donc ?

Je sais pas, juste qu'une TObjectList est faite pour gérer des Objets (Ajout, suppression, recherche, etc ...) contrairement à un TStringList.

[Suryavarman]

Mais tu ne peus pas associer une string à un objet.

EDIT:
Je dis pas que les TStringList sont tip-top pour associer une clef à un objet. Mais elles ont le mérite d'être rapidement prises en main.