problème stringlist

Question

bonjour ,j'ai cr&#233; un type de cette mani&#232;re :



type

  TDomCI = record

    Nom: string[100];

    Centres: tstrings;

  end;

  TDomFile = file of TDomCI;



//une variable 

domaines : array of TDomCI;



et je n'arrives pas a acc&#233;der au centres, quand je lis un fichier.

par exemple j'ai fait &#231;a:





procedure TFrmAddCI.loaddom;

var

  Fichier: TDomFile;

  ChemFich : string;

  i:integer;

begin

 lstdom.items.clear;

 setlength(domaines,0);

  chemfich :=  extractfilepath(application.ExeName)+'dom.dat';

  //showmessage(chemfich);

   AssignFile(Fichier,chemfich);

     if FileExists(chemfich) then

    Reset(Fichier)

  else

    Rewrite(Fichier);

  Seek(Fichier, 0);

   while not Eof(Fichier) do

    begin

    setlength(domaines,length(domaines)+1);

    domaines[length(domaines)-1].Centres := tstringlist.Create;

      Read(Fichier, domaines[length(domaines)-1]);



    end;

  CloseFile(Fichier);



  for i := 0 to length(domaines)-1 do

    lstdom.AddItem(domaines[i].Nom,self);



end;





et si j'&#233;ssaie d'acc&#233;der aux donn&#233;es 'centres' j'ai une erreur m&#233;moire!



lstci est la liste contenant la propri&#233;t&#233; centres


lstdom est la liste contenant la propri&#233;t&#233; nom du type



par exemple, j'ai deux list, je veux que l'une contienne les propri&#233;t&#233;s
nom du type, et que quand je cliques il chage la stringliste de cet
item dans l'autre liste.

j'ai fait ce code la:



procedure TFrmAddCI.LstDomClick(Sender: TObject);

begin

if (domaines[lstdom.ItemIndex].Centres.Count > 0) then

lstCI.Items := domaines[lstdom.ItemIndex].Centres;

end;





Merci de m'aider :D parce que la je s&#232;che vraiment

cs_neko · Answer

Bon, alors en delphi toutes variables les objets sont des pointeurs, 
Or TStrings est une classe, ( donc centres un Objet ) donc tu stock dans ton fichier le pointeur, mais pas l'objet en lui m&#234;me. Si tu etteind ton programme et que tu le ralume, l'objet en lui m&#234;me n'est plus cr&#233;&#233; et le pointeur pointe sur... rien ^^ d'o&#249; l'erreur de memoire.
Ca c'est pour la premiere erreur ^^

   while not Eof(Fichier) do
    begin
     setlength(domaines,length(domaines)+1);
     domaines[length(domaines)-1].Centres :=  tstringlist.Create;
     Read(Fichier, domaines[length(domaines)-1]);
     end ;

 domaines[length(domaines)-1].Centres : = tstringlist.Create;

Ici  tu cr&#233;er ton objet Centres

  Read(Fichier, domaines[length(domaines)-1]);

Et ici tu &#233;crase completement le Record ( et donc le pointeur Centres ) tu as donc cr&#233;&#233; un objet TStrings auquel tu ne peux plus acceder.

bouh

Problème stringlist

1 réponse

Votre réponse

Discussions similaires