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"
J'ai une erreure dans "Constructor"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;
Merci
Partager