Mettre un object dans ListBox

Version imprimable

Bonjours,
Je n'arrive pas à mettre mon object dans ma listbox.
La faute se fait ou je veux crée l'Object. Je suis tout à fait perdu
maintenant. Y' a t-il quellqu' un qui puisse m'aider à résoudre mon problem.
Merci beaucoup pour votre aide.

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
type
  TMyClass2 = class(TObject)
  public
    Value1,  Value2: string;
    constructor Create(Sv,Tv: string);
  end;
 
var
  MyObject2: TMyClass2;
..
 
implementation
constructor TMyClass2.Create(Sv,Tv: string);
begin
    Value1 := Sv;
    Value2 := Tv;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
 
   // je pense ceci n'est pas correcte..???
   -->     MyObject2 := TMyClass2.Create(self ??);
 
     MyObject2.Value1 := 'test 1';
     MyObject2.Value2 := 'test 2';
     Listbox2.Items.AddObject('AjouteItem 1' ,MyObject2);
 end;

Cordialement.
Ardely

21/12/2006, 18h26
anapurna

salut

1) pense a mettre ton code entre balis merci pour ceux qui lise le forum

2)

Code:

MyObject2 := TMyClass2.Create;

suffit largement

@+ Phil

Bonjour,

Tu déclare un constructeur, tu dois donc respecter sa signature.

D'ailleurs tu devrais utiliser les possibilités d'audit de code et de complétion de DELPHI.
Pour cela quand tu écris xxx.create( alors après utilise la ciombinaison de touche CTRL+SPACE
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 TMyClass2 = class(TObject) public Value1, Value2: string; constructor Create(Sv,Tv: string); end; var Form1: TForm1; MyObject2: TMyClass2; implementation {$R *.dfm} constructor TMyClass2.Create(Sv,Tv: string); begin inherited; Value1 := Sv; Value2 := Tv; end; procedure TForm1.Button1Click(Sender: TObject); begin MyObject2 := TMyClass2.Create('test 1', 'test 2' ); Listbox2.Items.AddObject('AjouteItem 1' ,MyObject2); end; end.
a+

21/12/2006, 19h33
Ardely
Merci pour ta réponse.

Y' à t-il que cette facon de le faire
Code:

1 2 MyObject2 := TMyClass2.Create('test 1', 'test 2' );
Une autre manière comme ce si est-il possible ou pas...
Code:

1 2 3 MyObject2.Value1 := 'test 1'; MyObject2.Value2 := 'test 2';
si oui, comment dois-je le faire..
Grand Merci pour l'aide.
21/12/2006, 19h40
Ardely
& anapurna
si je fait ceci le comilateur me dit pas assez de paramètres originaux
Code:

1 2 MyObject2 := TMyClass2.Create;
que dois-je faire...

Merci pour l'aide
Ardely

+ simple + simple c'est une question de point de vue et d'évolubilité.
Mais il est vrai que tu n'est pas obligé(e) de redéfinir le create de ton objet.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  TMyClass2 = class(TObject)
  public
    Value1, Value2: string;
  end;
 
var
  Form1: TForm1;
  MyObject2: TMyClass2;
 
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyObject2 := TMyClass2.Create;
  MyObject2.Value1 := 'test 1';
  MyObject2.Value2 := 'test 2';
  Listbox2.Items.AddObject('AjouteItem 1' ,MyObject2);
end;
 
end.

21/12/2006, 19h45
Yurck

Citation:

Envoyé par Ardely

& anapurna
si je fait ceci le comilateur me dit pas assez de paramètres originaux

MyObject2 := TMyClass2.Create;

que dois-je faire...

Merci pour l'aide
Ardely

bien sur tu avais redéfini le create de ta classe comme ayant des paramètres; il faut donc les lui mettre ou ne pas redéclerer le constructor create.

Je vous laisse réflichir là dessus.
a+
21/12/2006, 19h51
Ardely

La Lumière est venue....
Grand Merci pour l'aide..trés bonne soirée à tous
Salutations
Ardely
03/01/2007, 14h32
Ardely
Bonjours,
J'aurais encore une petite question de compréhension à la création de l'Objet:

Quelle est la différance ou qu'est ce qui est mieux.
crées ainsi:
Code:

1 2 MyObject2 := TMyClass2.Create;
ou par un constructor..
Code:

1 2 constructor TMyClass2.Create(Sv,Tv: string);
Salutations et Merci pour une petite réponse..
03/01/2007, 21h55
Pedro
Salut :)
:koi: tu demandes ce qui est mieux entre une mandarine et une pomme là :lol:
Sérieusement, lorsque tu appelles
Code:

1 2 Bidule := TMachin.Create(Truc);
Cela appelle le constructor:
Code:

1 2 constructor TMachin.Create(aTruc: TTruc);
Citation:

Envoyé par Ardely

qu'est ce qui est mieux.

Tu comprends dès lors qu'il est impossible de répondre à cette question ;)
03/01/2007, 22h49
Ardely

A vrais dire je ne comprend pas trés bien la difference...
Yurck à écrit le 21/12/2006 19h42 une manière de la faire sans passer par une
commande "constructor.."
L'autre possibilité de Yurck du 21/12/2006 18h42 on utilise par expl.
constructor Create(Sv,Tv: string);...

Bon, Je suis en train de lire une doc à ce sujet pour comprendre, a voir...
Merci, salutations