Porté d'une variable

Bonjour,

Je veux créer un objet pour gérer des fichiers. Pour chaque objet que je crée j'ai une variable "idx" différente qui est propre a l'objet. Mon probleme est que je ne vois pas ou la déclarer pour ne pas avoir de messages d'erreur "EAccesViolation"

Citation:

---

unit UGestFiles;

interface

Type TGestFiles = class
nomfichier : string;
heure : integer;
taille : integer;

constructor Create;

//fonctions
function getindice : integer;
function getMaxIndice : integer;
function getMinIndice : integer;
function getNomFichier(indice : integer) : string;
function getHeure(indice : integer) : integer;
function getTaille(indice : integer) : integer;

procedure setFile(nom : string; heure, taille : integer);

end;

var TabFiles : array of TGestFiles;
idx : integer;


implementation

constructor TGestFiles.Create;
begin
idx := 0;
end;

---

J'ai une erreure dans "Constructor"

Merci

Salut,

Le bout de code que tu viens de créer, il compile ou pas?
Est-ce c'est lorsque tu souhaites créer un nouvel objet que ca plante?

Chez moi, en testant :

Nouvelle classe :

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

unit Unit2;   interface   Type TGestFiles = class   private nomfichier : string; heure : integer; taille : integer;   public constructor Create;   //fonctions     end;   var TabFiles : array of TGestFiles; idx : integer;   implementation   constructor TGestFiles.Create; begin idx := 0; end;   end.

---

et pour la création d'un nouvelle objet de ce type

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var Form1: TForm1; a:TGestFiles; implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin a:=TGestFiles.Create; end;   end.

---

Ca passe.
Aussi, oublie pas de mettre tes sections public, private .... ;)

Ouais ça compile tant que je ne l'appelle pas, mais dans une autre unité je crée 3 objets de ce type et je pense qu'ils utilisent tous la meme variable idx et ça me fait une erreure autrement ouais ça compile tout seul

Ah le C...... !!!! Tu as raison je me suis planté, je les ai mal appelé, au lieu de faire a := TGesfiles.Create; je faisais a.create; autant pour moi ! Merci de ton aide et excuse moi de t'avoir dérangé tu m'as bien aidé