Bonjour à tous,

Dans un programme que je devellope, j'utilise une classe objet (intervenant) qui a pour attribut un tableau d'objet (poste)

Description class intervenant

   type
       intervenant = class ( TObject )

   private

       Nom : string;
       Prenom : string;
       Adresse1 : string;
       Adresse2 : string;
       Email : string;
       DateNaiss : string;
       LieuNaiss : string;
       Nationalite : String;
      NumSecu : string;
       NumConge : string;
       Tel : string;
       Fax : string;
       Portable : string;
       DateEmbauche : string;
       lesposte : Array of poste;
       nbposte : integer;

Plus loing dans une procedure je me sert de ma base de donnée pour initialiser mon objet intervenant

procedure intervenant.loadSQL(idinter : integer);

begin
    with bdd.ModuleBDD.ADOQuery_traitementint do
     begin
          Active := false;
          SQL.Clear;
          SQL.Add('SELECT * FROM intervenant WHERE idintervenant LIKE "'+ inttostr(idinter) +'"');
          Active := true;
      end;

  Adresse1 := bdd.ModuleBDD.ADOQuery_traitementint.fields[3].AsString;
  Nationalite  := bdd.ModuleBDD.ADOQuery_traitementint.fields[11].AsString;
  LieuNaiss := bdd.ModuleBDD.ADOQuery_traitementint.fields[10].AsString;
  Adresse2 := bdd.ModuleBDD.ADOQuery_traitementint.fields[4].AsString;
  Tel := bdd.ModuleBDD.ADOQuery_traitementint.fields[5].AsString;
  Fax := bdd.ModuleBDD.ADOQuery_traitementint.fields[6].AsString;
  Portable := bdd.ModuleBDD.ADOQuery_traitementint.fields[7].AsString;
  Email := bdd.ModuleBDD.ADOQuery_traitementint.fields[8].AsString;
  Nom := bdd.ModuleBDD.ADOQuery_traitementint.fields[1].AsString;
  Prenom := bdd.ModuleBDD.ADOQuery_traitementint.fields[2].AsString;
  DateNaiss := bdd.ModuleBDD.ADOQuery_traitementint.fields[9].AsString;
  NumSecu := bdd.ModuleBDD.ADOQuery_traitementint.fields[12].AsString;
  NumConge := bdd.ModuleBDD.ADOQuery_traitementint.fields[13].AsString;
  dateEmbauche := bdd.ModuleBDD.ADOQuery_traitementint.fields[14].AsString;

  with bdd.ModuleBDD.ADOQuery_traitementint do
   begin
       Active := false;
       SQL.Clear;
       SQL.Add('SELECT nomposte, cnc, idintervenant FROM intervenant_poste, poste WHERE    intervenant_poste.numposte = poste.numposte AND idintervenant LIKE "'+ inttostr(idInter) +'"');
       Active := true;
       first;
       while not eof do
       begin
         nbposte := nbposte + 1;
         lesposte[nbposte] := poste.creer(bdd.ModuleBDD.ADOQuery_traitementint.fields[2].AsInteger,idinter,bdd.ModuleBDD.ADOQuery_traitementint.fields[0].AsString,bdd.ModuleBDD.ADOQuery_traitementint.fields[1].AsString);
      next;
    end;
   end;
end;

Delphi me fait une erreur eaccess violation a la ligne mis en rouge, je ne vois pas pk, je pensse que cela vien d'un probléme de pointeur!!!

Je compte sur vous pour méclairer dautant que je suis debutant un delphi.
Merci d'avance

yo,

déjà ton code pas très clair avec tes dd.ModuleBDD.ADOQuery_traitementint
bon c'est pas tres grave mais c'est chiant a lire sur 20 lignes alors 50000 je te raccontes pas

sur ton problème, je vois deux choses  :
- tu utilises un objet poste, mis je ne vois pas dans ton code un truc du genre
poste:=tposte.create( param);

donc forcément tu essaye d'acceder à une procédure de ton objet poste qui n'a pas été défini en mémoire donc....

- array of poste , mouais pourquoi pas mais ton tableau n'est jamais défini ni dynamiquement ni à la déclaration donc ca risque de coincer aussi ici  ( perso y'a longtemps que j'ai abandonné les array pour gérer des object -> tobjectlist )

tschusssss

bonjour et mercie beaucoup pour votre reponsse sa marche ainssi, il et clair qu'avec un type tobjectlist se serait plus simple, je vais me pencher la dessus.
Enfin mercie encor de m'avoir débloquer , longue vie a la prog