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