Discussion :

[koolkris]

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"

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

[ero-sennin]

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 :

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

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

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

[koolkris]

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

[koolkris]

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é