Problème de création d'objet
Salut
Je suis en delphi 5 et je cherche à créer une liste contenant des objets:
Voici mon objet:
Code:
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:
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:
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
