Discussion :

[der§en]

Bonjour,

Petite question philosophique

Je doit créer un array of quelquechose et je ne sais pas s'il est mieux de coder mon quequechose comme un record ou une class, et j'aimerais avoir vos avis, la dessus.

Mon quequechose, contiendra 4 integer, 2 stings mis surtout il doit contenir un BMP (qu'ils doivent se créer a chaque fois que je fait un setlength sur mon quequechose).

AMHA, je pense qu'il me faille me tourner vers une class avec constructor et destructor pour les Create et les Free des 2 BMP mais peux-être que l'on peux faire la même chose avec un record.

A Votre avis ?

[anapurna]

salut

le record n'est pas réellement instancié mais tu peut tout de même te servir de ceux ci

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
 
type
  TMonRec = record
    BMP1 : TImage;
    BMP2 : TImage;
    I1 : Integer;
    // ...
    procedure Create(aImageOwner: TComponent);
    procedure Destroy;
  end;
 
{ TMonRec }
 
procedure TMonRec.Create(aImageOwner: TComponent);
begin
 BMP1 := TImage.Create(aImageOwner);
 BMP2   := TImage.Create(aImageOwner);
end;
 
procedure TMonRec.Destroy;
begin
  BMP1.Free;
  BMP2.Free;
end;
 
// ...
 
var
  Rec: TMonRec;
begin
  Rec.Create(Form1);
 
  // ...
 
  Rec.Destroy;
end;

[der§en]

Ok, donc je peut faire un :

Code :

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

1
2
3
4
5
6
7
8
9
Var
LMaListe : Array of TMonRec;
I: integer;
Begin
  SetLength(LMaListe, 10);
 
  For I = 0 To 9
    LMaListe[I] := TMonRec.Create(FMaScrollBox);
End;

[retwas]

Utilise une TObjectList c'est plus pratique

[der§en]

Pas encore testé cette bête là !

Il existe des exemples qui se rapprocherait de mon besoin ?

[der§en]

Je pense que cet exemple devrait me permettre de répondre à mon besoin moyennant quelques petites adaptations

http://docwiki.embarcadero.com/CodeE...tList_(Delphi)

Merci a vous.

[retwas]

Pas encore testé cette bête là !

Il existe des exemples qui se rapprocherait de mon besoin ?

Avec ton exemple ça donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Var
  LMaListe : TObjectList<TMonRec>;
  I: integer;
Begin
  LMaListe := TObjectList<TMonRec>.Create; 
 
  For I = 0 To 9
    LMaListe.Add(TMonRec.Create(FMaScrollBox));
End;