Record ou class devant contenir 2 bitmap ?

Version imprimable

30/03/2017, 16h10
der§en

Record ou class devant contenir 2 bitmap ?

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 ?

salut

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

Code:

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;

Ok, donc je peut faire un :

Code:

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;

30/03/2017, 22h04
Invité

Utilise une TObjectList c'est plus pratique :)
31/03/2017, 00h26
der§en

Pas encore testé cette bête là !

Il existe des exemples qui se rapprocherait de mon besoin ?
31/03/2017, 00h30
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.

Citation:

Envoyé par der§en

Pas encore testé cette bête là !

Il existe des exemples qui se rapprocherait de mon besoin ?

Avec ton exemple ça donne ceci :
Code:

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;