Discussion :

[DarwinTheBeagle]

Bonjour
Je crée un objet et le manipule sans pb ( un extrait de code mais tout fonctionne, je le libère etc)

Mon pb est que J'ai Site1 et Site2.
J'aimerais pouvoir utiliser un tableau Sites : array [0..1] of double en lieu et place de Site1 et Site2.

Mais je n ai aucune idée de
1/ comment proceder car j ai essayé mais toujours rencontré des erreurs dans la déclaration des propriétés
2/ comment y acceder ? J'imagine un truc du genre LesMecs[0].Sites[0] mais je n ai pas pu tester puisque j ai été incapable de le créer.

Un conseil, un lien, un exemple, je prends tout ce qui pourra me faire avancer car j'ai simplifié le code mais j ai 10 valeurs de 'Site'.
D'avance merci pour votre aide.

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
 
TMec = Class
    FResultat: double;
    FSite1: double;
    FSite2: double;
 
  public
    property FResultat: double read FResultat write FResultat;
    property Site1: double read FSite1 write FSite1;
    property Site2: double read FSite2 write FSite2;
 
  End;
...
LesMec : TObjectlist<TMec>
...
LesMec := TObjectlist<TMec>.create;
 
UnMec:=TMec.create;
UnMec.Resultat :=0;
UnMec.Site1:=33.33;
UnMec:Site2:=69.69;
LesMecs.add(UnMec);
 
...
 
memo1.lines.add(formatfloat('0.00',LesMecs[0].UnSite));

[tourlourou]

Bonjour, ce type de champ se déclare sur ce modèle. Au besoin, protéger les accesseurs des débordements.

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
TMec = Class
    FResultat: double;
    FSites: array[1..10] of double; // ou tableau dynamique au besoin
 
  public
    property Resultat: double read FResultat write FResultat;
    property Sites[index: integer]: Double read getSite write setSite;
 
  End;
 
 
procedure TMec.setSite(index: integer; Value: Double);
begin
  FSites[index] := Value;
end;
 
function TMec.getSite(index: integer): Double;
begin
  Result := FSites[index];
end;
 
//...
 
LesMecs := TObjectlist<TMec>.create;
 
UnMec:=TMec.Create;
UnMec.Resultat := 0;
UnMec.Sites[1] := 33.33;
UnMec:Sites[2] := 69.69;
LesMecs.Add(UnMec);
 
...
 
memo1.lines.add(formatfloat('0.00',LesMecs[0].Sites[2]));

[DarwinTheBeagle]

Merci pour cet exemple.
Toutefois j ai une erreur indicateur de champ ou de methode attendu au niveau du write sur la ligne

Code :

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

 property Sites[index: integer]: double read getSite write setSite;

[free07]

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
  
Type
TMec = Class
    FResultat: double;
    FSites: array[1..10] of double;

  private
    function GetSites(index: integer): Double;
    procedure SetSites(index: integer; Value: Double);

  public
    property Resultat: double read FResultat write FResultat;
    property Sites[index: integer]: Double read GetSites write SetSites;

  End;

implementation

function TMec.GetSites(index: integer): Double;
begin
  Result := FSites[index];
end;


procedure TMec.SetSites(index: integer; Value: Double);
begin
  FSites[index] := Value;
end;

[DarwinTheBeagle]

Merci tout fonctionne parfaitement.