Discussion :

[KlausGunther]

je suis sous W10 avec Delphi 6 PE.

J'essaie d'utiliser un TLIst comme index dynamique poyr des enregsirements dans un fichier binaire.
L'accès au fichier binaire fonctionne bien.

J'ai créé un objet constituant un éément de mon index, composé de deux entités:
- une clé binaire représentée dans ARRAY OF BYTE dynamique
- un index dans mon fichier, contenu dans un INTEGER.
Ma clé binaire est composée d'une partie texte avec une longueur fixe de 20 caractures (paramétrée par une constante) et une partie binaire représentée par une valeur integer pour la démo. Ma clé est donc de 24 caractères.

Mon objet contenant la clé est défini comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  pTIndexElement = ^TIndexElement;
  TIndexElement = class
    Key: array of byte;
    private
      fIndex: integer;
    published
      constructor CreateNew(aSize: integer);
      destructor Destroy; override;
      property Index: integer read fIndex write fIndex;
  end;

Je peux créer cet objet le le charger avec mes valeurs sans problème.

Mais ensuite, il faut l'ajouter à un TLIST et j'ai toujours une violation de mémoire.
Je fais comme ceci:

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
var
  IDX: TList;
...
procedure TForm1.Button2Click(Sender: TObject);
var
  IE: TIndexElement;
  s: string;
  pb: pByte;
  kint, ind: integer;
  p: Pointer;
begin
  IE := TIndexElement.CreateNew(TextKeyLength+BinaryKeyLength);
  s := LeftStr(Edit1.Text+StringOfChar(' ',TextKeyLength),TextKeyLength);
  kint := SpinEdit1.Value;
  ind  := SpinEdit2.Value;
  pb := pByte(@IE.Key[0]);
showmessage('a1');
  Move(s,pb^,TextKeyLength);
showmessage('a2');
  inc(pb,TextKeyLength);
  Move(kint,pb^,BinaryKeyLength);
showmessage('a3');
  IE.Index := ind;
showmessage('a4');
  IDX.Add(IE);              // violation de mémoire
  IDX.Add(@IE);             // violation de mémoire
  IDX.Add(Pointer(IE));     // violation de mémoire
showmessage('a5');
end;

Quelque soit la syntaxe de la méthode ADD parmi les 3 essayés, j'ai toujours une violation de mémoire.
Mon l$MEssage a4 apparaît, mais pas le a5.

En pièce jointe, j'ai mis un fichier ZIP avec le projet complet.

Pourriez-vous me mettre sur la voie, s'il vous plaît ! Merci d'avabce !

[ShaiLeTroll]

Tu peux aussi utiliser une TObjectList, cela sera un poil plus élégant pour le transtypage

Tu peux même dériver une TObjectList pour redefinir Items et avoir le cast automatique, ainsi que la libération automatique

Sache que TIndexElement est un objet donc un pointeur déguisé donc inutile de faire un pointeur de pointeur

N'oublie pas le IDX := TList.Create ou IDX := TObjectList.Create(True); qu'il semble te manquer (je n'ai pas regardé le zip mais c'est ce que l'on voit dans l'extrait)

Avec TList, le plus explicite

Code :

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

IDX.Add(Pointer(IE));

Avec TObjectList, le plus simple

Code :

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

IDX.Add(IE);

l'utilisation

Code :

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

1
2
3
4
5
6
7
8
9
 
// Avec TList en mode parano
TObject(Pointer(IDX.Items[I])) as TIndexElement).Index ...
 
// Avec TObjectList en mode parano
(IDX.Items[I] as TIndexElement).Index ...
 
// Les deux en mode simpliste
TIndexElement(IDX.Items[I]).Index ...

Et enfin la dérivée qui est le plus pratique mais plus long au début, avec Add et Insert redéfini, tu as plus de chance que cela soit des TIndexElement comme Items, protégé à la compilation

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
type
  TIndexElements = class(TObjectList)
  private
    function GetItem(Index: Integer): TIndexElement;
    procedure SetItem(Index: Integer; const Value: TIndexElement);
  public
    function Add(AObject: TIndexElement): Integer;
    procedure Insert(Index: Integer; AObject: TIndexElement);
    // idéalement, redéfinir toutes les méthodes qui renvoient un TObject
    property Items[Index: Integer]: TIndexElement read GetItem write SetItem; default;
  end;
 
{ TIndexElements }
 
function TIndexElements.Add(AObject: TIndexElement): Integer;
begin
  Result := inherited Add(AObject);
end;
 
procedure TIndexElements.Insert(Index: Integer; AObject: TIndexElement);
begin
  inherited Insert(Index, AObject);
end;
 
function TIndexElements.GetItem(Index: Integer): TIndexElement;
begin
  Result := TIndexElement(inherited GetItem(Index));
end;
 
procedure TIndexElements.SetItem(Index: Integer; const Value: TIndexElement);
begin
  inherited SetItem(Index, Value);
end;

et l'utilisation est la plus lisible

Code :

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

1
2
3
4
5
 
IDX.Items[I].Index ...
 
// Encore plus court possible
IDX[I].Index ...

[anapurna]

Salut

regarde cette conversation

sinon utilise un TstringList, il y a une methode AddObject ou tu peut injecter du texte et un objet

[KlausGunther]

Merci à vous deux !

Les premiers essais sont concluants, je vais donc l'engager dans cette voie.
Un grand Merci :