Discussion :

[Ardely]

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 :

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
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

[anapurna]

salut

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

2)

Code :

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

MyObject2 := TMyClass2.Create;

suffit largement


@+ Phil

[Yurck]

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 :

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
  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+

[Ardely]

Merci pour ta réponse.

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

Code :

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

1
2
 
MyObject2 := TMyClass2.Create('test 1', 'test 2' );

Une autre manière comme ce si est-il possible ou pas...

Code :

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

1
2
3
 
     MyObject2.Value1 := 'test 1';
     MyObject2.Value2 := 'test 2';

si oui, comment dois-je le faire..
Grand Merci pour l'aide.

[Ardely]

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

Code :

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

1
2
 
  MyObject2 := TMyClass2.Create;

que dois-je faire...

Merci pour l'aide
Ardely

[Yurck]

& 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+

[Yurck]

+ 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 :

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
 
  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.

a+