Discussion :

[sinfoni]

Bonjour,

Après 10 ans de codage en language de 4° génération orienté base de données, je reviens vers le Pascal objet Delphi pour un projet spécifique. Ma question est simple: quelqu'un peut-il me donner un exemple de codage d'algo permettant de reproduire le fonctionnement Tables/Enregistrement, le tout en mémoire, avec des objets. En clair:

1. Définir une classe "PseudoEnreg" représentant l'enregistrement.
2. Définir une classe "PseudoTable" représentant la liste des "PseudoEnreg", et permettant l'ajout, la suppression et le parcours des enreg.
3. Utiliser le tout comme pour une table.

Exemple:

//Créer la table.
PseudoTable = TPseudoTable.Create;

// Créer des enreg et les mettre dans la table
PseudoEnreg := TPseudoEnreg.Create.
PseudoEnreg.K_CODE := '001';
PseudoEnreg.Nom := 'My name';
PseudoTable.Add(PseudoEnreg);

PseudoEnreg := TPseudoEnreg.Create.
PseudoEnreg.K_CODE := '002';
PseudoEnreg.Nom := 'My name 2';
PseudoTable.Add(PseudoEnreg);

etc...

// Puis pouvoir parcourir la table et accéder aux champs de PseudoEnreg
PseudoTable.First;
For i:=0 to PseudoTable.Count - 1 Do Begin
ShowMessage('Code de ' + IntToStr(i) + '=' + ??????????? );
PseudoTable.Next;
end;

où ??????????? est le code qui me manque pour afficher un des champs...

J'ai commencé la code suivant:

type
// Liste des partages=enregistrement
TSharedRes = Class(TObject)
K_SHARE,
PATH,
LIB,
K_TYPE // DISK, ADMIN, PRINTER, OTHER
: String;
I_TYPE
: Integer
end;
// Table regroupant les enregs
Ttt_SharedRes = Class(TObjectlist)
..... Quoi mettre ???? Un champ de type TShareRes ???
end;

var
SharedRes : TSharedRes;
tt_SharedRes: Ttt_SharedRes;


Begin
tt_SharedRes := Ttt_SharedRes.Create;

//Boucle quelconque
While <Condition ok> Do Begin
SharedRes := TSharedRes.Create;
SharedRes.K_SHARE := <... peu importe> ;
SharedRes.PATH := <... peu importe> ;
tt_SharedRes.Add(SharedRes);
end;



// Ensuite, pouvoir récupérer n'importe quel SharedRes
// par lecture séquentielle (pour commencer)
for i:=0 to tt_SharedRes.count - 1 Do Begin
??????
end;

end;

Cela fait une semaine que je m'escrime la-dessus dans mon coin et là, je sature un peu... aucun des exemples/tuto que j'ai pu trouver ne correspond à cela. C'est pourtant élémentaire... Peut-être trop ? Quelque chose doit m'échapper ou je suis trop "déformé" par le L4G ....

Bien sûr, je ne veux pas avoir recours aux tableaux dynamiques.

Merci d'avance.

Flines.

[Graffito]

Bonjour,

Pour ce type degestion de table, on peut faire ceci :

Définir chaque record comme un objet :

Code :

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

1
2
3
4
5
6
7
8
type TPseudoEnreg = Class(Tobject) 
       K_CODE : string ;
       Nom : string ;
       procedure   Assign(vPseudoEnreg:TPseudoEnreg) ; // trés utille pour affecter un enr à un autre
       procedure   Clear  ;  // remet tout à la valeur initiale (nom='' ; K_Code='' par exemple)
       constructor create ;
       destructor  destroy; override;
       end ;

Définir la table comme une liste d'objets :

Code :

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

1
2
3
4
5
6
7
8
  TPseudoTable = class(Tlist)
     function      GetPseudoRec(i:integer) : TPseudorec ;
     procedure   SetPseudoRec(i:integer;Rec :TPseudorec) ;
     property    PseudoRec[i:integer]:TPseudoRec read GetRec  write SetPseudoRec ; 
     procedure   clear ;
     constructor create;
     destructor  destroy; override;
     end;

Code pour la property PseudoRec :

Code :

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

1
2
3
4
5
function TPlayersObj.GetPseudoRec(i:integer) : TPseudoRec ;
begin result:=TPseudoRec(objects[i]) ; end ;
 
procedure TPlayersObj.SetPlayer(i:integer;PseudoRec:TPseudoRec) ;
begin objects[i]:=PseudoRec ; end ;

Ensuite, l'utilisation est simple :

Code :

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

1
2
3
4
5
6
7
8
9
// creation
table:=TpseudoTable.create ;
rec:=Tpseudorec.create ; rec.k_code:='A' ;  rec.nom:='ALPHA' ; table.add(rec) ;
rec:=Tpseudorec.create ; rec.k_code:='B' ;  rec.nom:='BETA' ; table.add(rec) ;
 
// lecture
For i:=0 to Table.Count - 1 Do  
ShowMessage(IntToStr(i)+'  '+Table.PseudoRec[i].K_Code+'  '+ Table.PseudoRec[i].nom) ;
end;

[neilbgr]

Pas de soucis.
Mais avant tout, 4eme génération orienté base de données ou pas, l'utilisation de la balise [ code] dans les posts est largement de mise sur les forums de ce site. Je fais la remarque avant qu'un modo le signal.

Alors, pour la question, il se présente 2 solutions.
Une rapide mais pas forcément super élégante, l'autre élégante mais un peu plus fastidieuse (m'enfin pas tant que ça)

1ere solution :
Utilisation d'un conteneur (genre TList, TObjectList, voire TComponentList). Au vu du code (non mis en forme) on penchera pour un TObjectList. Ce dernier, avec le TComponentList, à la particularité d'éventuellement libérer les objets qu'il contient lors de sa propre libération. (Il faut pour cela faire un TObjectList.Create(True) pour lui dire que les objets lui appartiennent).
On peut faire allégrement des vList.Add(NimporteQuelInstancedObjet); n'importe quel vList.Delete(vUnIndex); mais pour la récupération c'est que l'on "caste" :

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
var
  vListe: TObjectList;
  vUneInstance,
  vPourLexemple: TSharedRes;
begin
  vliste := TObjectList.Create(True);
 
  vUneInstance := TSharedRes.Create;
  vUneInstance.blababal := balbalbla;
  ...
 
  vListe.Add(vUneInstance);
 
  ....
 
// Accès a un des objets de la liste :
 
  // Caste poli :
  (vListe[0] as TSharedRes).bblablabal := balbalba;
 
  // Caste sauvage (dangeureux) :
  TSharedRes(vListe[0]).bblablabal := balbalba;
 
  // Ou bien :
  vPourLexemple := (vListe[0] as TSharedRes);
  // ou vPourLexemple := TSharedRes(vListe[0])
  // puis
  vPourLexemple.balbalab := nlaaa;
  ....
end;

2nd solution :
Nous allons hériter du conteneur TObjectList.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses
  Classes, Contnrs;
 
type
  // Liste des partages=enregistrement
  TSharedRes = Class(TObject)
    K_SHARE,
    PATH,
    LIB,
    K_TYPE // DISK, ADMIN, PRINTER, OTHER
    : String;
    I_TYPE: Integer;
  end;
 
  // Table regroupant les enregs
  Ttt_SharedRes = Class(TObjectlist)
  private
    function GetItem(Index: Integer): TSharedRes;
    procedure SetItem(Index: Integer; const Value: TSharedRes);
  public
    function Add(ASharedRes: TSharedRes): Integer;
    procedure Insert(Index: Integer; ASharedRes: TSharedRes);
    function First: TSharedRes;
    function Last: TSharedRes;
    property Items[Index: Integer]: TSharedRes read GetItem write SetItem; default;
  end;
 
implementation
 
{ Ttt_SharedRes }
 
function Ttt_SharedRes.Add(ASharedRes: TSharedRes): Integer;
begin
  inherited Add(ASharedRes);
end;
 
function Ttt_SharedRes.First: TSharedRes;
begin
  Result := TSharedRes(inherited First);
end;
 
function Ttt_SharedRes.GetItem(Index: Integer): TSharedRes;
begin
  Result := TSharedRes(inherited GetItem(Index));
end;
 
procedure Ttt_SharedRes.Insert(Index: Integer; ASharedRes: TSharedRes);
begin
  inherited Insert(Index, ASharedRes);
end;
 
function Ttt_SharedRes.Last: TSharedRes;
begin
  Result := TSharedRes(inherited Last);
end;
 
procedure Ttt_SharedRes.SetItem(Index: Integer; const Value: TSharedRes);
begin
  inherited SetItem(Index, Value);
end;

[sinfoni]

Merci beaucoup pour ces précieux et rapides éclaircissements.
J'ai également bien noté l'utilisation de la balise code pour mes éventuels recours futurs (voire contributions, qui sait...) à ce très bon forum.

Flines.

[Tardiff Jean-François]

Bonjour,

Il existe aussi des composant créant des pseudo tables en mémoire (TJvMemoryTable par exemple).

Dans ce cas le composant sert à créer une table 'virtuelle' que l'on utilise comme n'importe quelle table (ajout, modification, destruction d'enregistrements, parcour de la table declencheur onPost etc ..)

Je ne sais pas si cela peux vous aider, au moins pour une prochaine appli., dans le doute, je transmet.

[qi130]

2 pistes complémentaires:

1/ MyLittleBase qui pousse jusqu'à permettre du SQL basic sur la structure gérée

2/ Ce post car j'ai été confronté à un problème similaire il y a peu de temps http://www.developpez.net/forums/viewtopic.php?t=474390

Bon retour à Delphi

[devyan]

Bonjour,

Je vais peut être dire une bêtise mais le composant TClientDataset ne pourrait-il pas faire l'affaire ?