Discussion :

[BuzzLeclaire]

bonjour à toutes et à tous

Est-il possible de faire une TStringList de Record ?

voilà ce que je fais :

Code :

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

1
2
3
4
5
6
7
type
  TJournal = record
      Code   : String[8];
      Libelle    : String[30];
  end;

Journal : Tjournal of Stringlist ???

Le but est de remplir le stringlist au départ par une boucle sur une table access
Donc j'aimerais pouvoir faire :
..

Code :

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

1
2
3
4
5
While not eof do
  Journal.Add(FieldByName('Code').AsString).Code;
  Journal.Add(FieldByName('Libelle').AsString).Libelle;
next;
end;

Et ensuite le but final et la recherche

Code :

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

1
2
3
4
function retournelibelle(CodeJournal: String): String;
begin
  return := Journal.Indexof(CodeJournal).Code
end;

Est-ce possible de faire tout cela ?

[ShaiLeTroll]

Regarde soit la TList mais en réalité, tu veux faire une table associative, j'ai fait un truc approchant THashStringList

[Dr.Who]

Code :

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

1
2
3
4
5
uses Generics.Collections;
 
 
type
  TJournalList = TList<TJournalItem>;

ben alors buzz ... ? aurait tu déjà oublié ?
bon bien sur, avec ça ton code n'est plus valide que pour D2009 et +

[BuzzLeclaire]

Bonjour,

Merci Shail pour ta proposition mais un Hash est trop volumineux pour gérer ce que je souhaite.
Salut Dr. Who, si pour toi cela te semble simple de gérer des Generics, maleureusement j'y comprends que dalle !! lol

Bref je suis resté à un record et ensuite je le parcours pour testé.
Donc je déclare cela dans un fichier PAS (general.pas)

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
 
 
interface
 
uses
  Windows, Graphics, SysUtils, Math, Dialogs, classes, StdCtrls;
 
  procedure ArrayOfJournal;
 
type
  TJournal = record
      Code     : String[8];
      Libelle    : String[30];
  end;
 
Var
   Journal  : Array of TJournal;
 
 
procedure ArrayOfJournal;
var
  n : Integer;
begin
  With FData.QryTravail2 do
  begin
    Sql.Clear;
    Sql.Add('Select * From Journal');
    try
      Active := True;
      SetLength(Journal,Recordset.RecordCount);
      for n := 0 to High(Journal) do
      begin
        Journal[n].Code   := FieldByName('Code').AsString;
        Journal[n].Libelle  := FieldByName('Libelle').AsString;
        next;
      end;
    finally
      Close;
    end;
  end;
end;

Ensuite dans ma form principal

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
 
implementation
 
uses
  general.pas
 
 
function TFPrincipal.FLtrait(CodePiece: string): String;
Var
  nJournal: integer;
begin
   njournal := -1;
 
   ArrayOfJournal; // On alimente le tableau
 
  With FData.QryTravail1 do
  begin
    Sql.Clear;
    Sql.Add('Select * From Ecriture Where CodePiece= :xPiece');
    Parameters.ParamByName('xPiece').Value := CodePiece;
    try
      active := True;
      for i := low(Journal) to High(Journal) do
        if Journal[i].Code = FieldByName('CodeJournal').AsString then Begin nJournal :=i; break; end;
 
        // ... divers traitement
        if nJournal <> - 1 then result := result + Journal[nJournal].Libelle;
    finally
       Close;
    end;
end;

Voilà trés réduit mon utilisation. Est-elle améliorable ?
Merci

[ShaiLeTroll]

En fait, je ne fais pas un Hash, c'est un vilain abus de langage, c'est juste une TStringList encapsulé ... tu devrais regarder un peu plus, tu verras ce n'est pas si énorme que tu le pense ...

[chaplin]

Bonjour,
Salut Dr. Who, si pour toi cela te semble simple de gérer des Generics, maleureusement j'y comprends que dalle !! lol

Peut être que tu bloques sur le sujet, il y a une nouvelle syntaxe, il faut s'y habituer.

[Franck SORIANO]

Salut Dr. Who, si pour toi cela te semble simple de gérer des Generics, maleureusement j'y comprends que dalle !! lol

Si tu es en D2009 et +, tu devrais faire un petit effort d'apprentissage, car non seulement c'est exactement ce que tu veux, mais en plus, c'est une vrai merveille.
D'autant plus que dans les generics Delphi, tu dois avoir une classe dictionnaire.

Je suis encore en BDS2006, et c'est bien ce qui me manque le plus...

[Dr.Who]

alors buzz, je te fait un petit cours de vulgarisation vite fait sur les Generics qui sont vraiment un gros plus dans Delphi !

à quoi sert un generique ?

un type generique permet de reutiliser un code ecrit pour n'importe quel type.
cela permet d'aller plus vite, même si l'ecriture d'un generique peut être un peu plus complexe au premier abord.

concrètement ça donne quoi ?

admettons le type TPoint, trés utile. le type TPoint est decliné egalement en TSmallPoint qui utilise le type SmallInt.
pour les deux type TPoint et TSmallPoint nous devont ecrire deux fois le code :

Code :

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

1
2
TPoint = record X, Y: integer end;
TSmallPoint = record X, Y: SmallInt end;

avec delphi 2009, nous avont la possibilité de créer un type TPoint generique, qui permettra une déclinaison plus rapide :

Code :

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

TGenericPoint<T> = record X, Y: T end;

Easy!

ensuite on pourra decliner ce nouveau type comme suis :

Code :

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

1
2
3
4
5
6
TPoint = TGenericPoint<integer>;
TSmallPoint = TGenericPoint<SmallInt>;
TUPoint = TGenericPoint<LongWord>;
TBigPoint = TGenericPoint<int64>;
TFloatPoint = TGenericPoint<single>;
TBigFloatPoint = TGenericPoint<extended>;

Easy! on viens de créer 6 nouveaux type rapidement, sans tout réécrire.

et pour les methodes ?

même principe, ajoutons une methode d'initialisation pour notre type :

Code :

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

1
2
3
4
5
6
7
8
9
10
type
  TGenericPoint<T> = packed record
    X, Y : T;
    procedure Assign(const aX, aY: T);
  end;
 
  PIntPoint = ^TIntPoint;
  TIntPoint = TGenericPoint<integer>;
  PFltPoint = ^TFltPoint;
  TFltPoint = TGenericPoint<single>;

et l'implementation :

Code :

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

1
2
3
4
5
6
7
{ TGenericPoint<T> }
 
procedure TGenericPoint<T>.Assign(const aX, aY: T);
begin
  X := aX;
  Y := aY;
end;

pas besoin de réécrire la methode Assign pour TIntPoint et TFltPoint!
genial!


tu peux m'en faire plus ?

bien sur, ajoutons encore une methode, mais cette fois, une methode statique!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  TGenericPoint<T> = packed record
    X, Y : T;
    procedure Assign(const aX, aY: T);
    class function Create(const aX, aY: T): TGenericPoint<T>; static;
  end;
 
  PIntPoint = ^TIntPoint;
  TIntPoint = TGenericPoint<integer>;
  PFltPoint = ^TFltPoint;
  TFltPoint = TGenericPoint<single>;

la nouvelle methode permet de créer remplir une structure TGenericPoint<T> ou T sera le type choisis pour les nouveaux type (integer ou single dans l'exemple).
note qu'il faut remettre le <T> à la fin du retour.

et l'implementation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{ TGenericPoint<T> }
 
procedure TGenericPoint<T>.Assign(const aX, aY: T);
begin
  X := aX;
  Y := aY;
end;
 
class function TGenericPoint<T>.Create(const aX, aY: T): TGenericPoint<T>;
begin
  result.X := aX;
  result.Y := aY;
end;

Easy! encore une fois.
TIntPoint et TFltPoint possèderont les deux methodes Assign et Create avec bon type!!! genial non ?
on as ecris le code une fois pour toute et hop, tout nouveau type originaire de TGenericPoint<T> possèderont les mêmes capacités!

c'est comme quand on dérive une classe sans avoir à faire des override et inherited de partout pour adapter au type voulus.
encore une fois ici, l'expression Rapide Application Développement (RAD) prend tout son sens.

Existe t'il des types generiques predefinie dans Delphi ?

oui, dans l'unité Generics.Collections nous avons quelques types generique bien pratique.
TArray, TEnumerator, TEnumerable, TList, TQueue, TStack, TPair et TDictionary, TObjectList, TObjectQueue, TObjectStack et TObjectDictionary.

TList ? TArray ? TObjectList ? ho ?
oui ces deux type G sont trés pratique! plus besoin d'ecrire pleins de truc embêtant, voila comme faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
TIntArray = TArray<integer>;
TIntList = TList<integer>;
 
TPointArray = TArray<TPoint>;
TPointList = TList<TPoint>;
 
TEditList = TObjectList<TEdit>;
TButtonList = TObjectList<TButton>;

et voila.