Discussion :

[Gouyon]

Salut

Je suis en delphi 5 et je cherche à créer une liste contenant des objets:

Voici mon objet:

Code :

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

1
2
3
4
5
6
7
8
9
 
PMonObjet = ^TMonObjet;
  TMonObjet = class(TObject)
  private
    nom: string;
    Valeur: integer;
  public
   procedure Init(S:string; V:integer);
  end;

Voici la procédure Init

Code :

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

1
2
3
4
5
6
 
procedure TMonObjet.Init(S:string; V:integer);
begin
 nom:=S;
 Valeur:=V;
end;

Dans une procédure j'ai déclaré un pointeur de type TMonObjet et avec new je créer deux objets puis je les initialise et enfin je les mets dans la liste

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
 
procedure TSDIAppForm.FileNew1Execute(Sender: TObject);
var
 ptr:PMonObjet;
 Liste:TList;
begin
 Liste:=TList.Create;
 new(ptr);
 ptr^.Init('Objet 1',100);
 Liste.Add(ptr);
 new(ptr);
 ptr^.Init('Objet 2',200); //C'est là que ça coince
 Liste.Add(ptr);
 ptr:=Liste.Items[0];
end;

tout ce passe bien pour le premier objet mais pour le second j'ai une erreur EAccesViolation.

Quelqu'un peut il me dépanner

Merci

[Pierre Castelain]

Tu mélanges deux concepts distincts : les types structurés et les classes.
Ce que tu veux faire est une classe et tu ne peux pas l'initialiser comme ça.
Il te faut faire quelque chose du genre :

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
 
procedure TSDIAppForm.FileNew1Execute(Sender: TObject);
var
  monObject: TMonObjet;
  Liste:TList;
begin
  Liste:=TList.Create;
  monObjet:= TMonObjet.Create;
  monObjet.Init('Objet 1',100);
  Liste.Add(monObjet);
  monObjet:= TMonObjet.Create;
  monObjet.Init('Objet 2',200); 
  Liste.Add(monObjet);
  monObjet:= TMonObjet(Liste.Items[0]);
end;

[Gouyon]

Effectivement ça marche. En fait ça fait très longtemps que je n'ai pas fait de pascal et j'ai des reflexes C++

Merci beaucoup