Discussion :

[exyacc]

bonjour,

j'ai un problème pour utiliser un property par defaut.
j'ai gardé le minimum de mon code pour avoir un exemple.
quand j'utilise

Code :

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

tab_compte.compte[1].ajoute(1,300)

ça ajoute bien 1 a ma qtt et 300 dans mon montant,
mais si j'utilise le property par defaut en faisant

Code :

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

tab_compte[1].ajoute(1,300);

ça ajoute rien ...
qu'est ce que j'ai pas compris ?
merci

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit Unit2;
 
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type ligne_ecriture=record
  qtt     : integer;
  montant : currency;
end;
 
type tcompte=record
  public
    jour : ligne_ecriture;
    procedure init;
    function get_montant:currency;
    procedure ajoute(qtt:integer;montant:currency);
end;
 
type t_compte=class
  private
    function getitem(value:integer):tcompte;
  public
    compte : array[1..10] of tcompte;
    procedure init;
    property item[value:integer]:tcompte read getitem ; default;
end;
 
type TForm2 = class(TForm)
end;
 
var Form2: TForm2;
    tab_compte : t_compte;
implementation
{$R *.dfm}
{------------------------------------------------------------------------}
function t_compte.getitem(value:integer):tcompte;
begin
  result := compte[value];
end;
{------------------------------------------------------------------------------}
procedure Tcompte.init;
begin
  jour.qtt     := 0;
  jour.montant := 0;
end;
{------------------------------------------------------------------------}
procedure t_compte.init;
var f : integer;
begin
  for f := 1 to 10 do
    compte[f].init;
end;
{------------------------------------------------------------------------}
procedure Tcompte.ajoute(qtt:integer;montant:currency);
begin
  jour.qtt     := qtt;
  jour.montant := jour.montant + montant;
end;
{------------------------------------------------------------------------}
function Tcompte.get_montant:currency;
begin
  result := jour.montant;
end;
{------------------------------------------------------------------------}
begin
  tab_compte := t_compte.Create;
  tab_compte.init;
  tab_compte[1].ajoute(1,300);
  showmessage(currtostr(tab_compte[1].get_montant));
  // retourne 0
  tab_compte.compte[1].ajoute(1,300);
  showmessage(currtostr(tab_compte[1].get_montant));
  // retourne 300
  tab_compte.free;
end.

[Paul TOTH]

héhé, c'est subtil

en fait ta fonction getitem renvoie une copie temporaire de ton record, cette copie est mise à jour puis supprimée par Delphi

pour que cela fonctionne il faut que TCompte soit une classe (car c'est implicitement un pointer), ou que ton getitem renvoie un "PCompte = ^TCompte", soit un pointeur sur un TCompte

Code :

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

1
2
3
4
5
 
function t_compte.getitem(value:integer):PCompte;
begin
  result := @compte[value];
end;

[exyacc]

merci,

effectivement, en mettant une classe, ça marche.
par contre si je met @ ça me donne un nombre bizarre.

normal ?


euh, ah oui, pas tout mis, j'avais pas vu que ca devait renvoyer un pcompte

si ca marche, juste en mettant une classe, je laisse comme ça ?

[Paul TOTH]

c'est un choix, le classe doit être instanciée et libérée, le record est statique.

[exyacc]

non je voulais dire que ça marche en mettant une classe sans faire la modif

Code :

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

1
2
3
 
function t_compte.getitem(value:integer):PCompte;
result := @compte[value];

si ça marche sans passer par les pointeur, c'est bon comme ça ?