ComboboxRésolu

Question

Bonjour,

J'ai un prob d&#233;bile mais je n'arrive pas &#224; m&#233;moriser le contenu de mon combobox. Voici mon source :

procedure TForm2.btnAjouterclasClick(Sender: TObject);
var id : integer;
    a, b: string;
begin
id:=strtoint(edid.Text);
With Datamodule2.IBQueryClas do
      begin
      last;
      append;
      Fieldbyname('ID_classes').AsInteger:=id;
      Fieldbyname('Desc_clas').AsString:=eddesc.Text;
      fieldbyname('Sigle_clas').AsString:=edsigle.Text;
      a:=edid.text;
      b:=edsigle.text;
      CBNOMCLASSE.Items.Append(a+' '+'='+' '+b);
      CBNOMCLASSE.ItemIndex:=+1;
      lblderenreg.Caption:='Dernier enregistrement'+' '+ a;
      end;
end;

Des que je quitte mon prog et que je l'ex&#233;cute a nouveau mon combobox est vide, quelqu'un connait-il la solution &#224; ce prob. En faite, j'aimerais qu'il garde en m&#233;moire les enregistrements.

Merci d'avance &#224; tous et bonne prog,

Stu76

f0xi · Accepted Answer

Procedure TForm1.OnCreate(sender : tobject);

begin

   combobox1.items.loadfromfiles(RepertoireDuProgramme+'\combosave.txt');

end;



Procedure TForm1.OnClose(sender : TObject);

begin

   combobox1.items.savetofile(RepertoireDuProgramme+'\combosave.txt');

end;

Combobox

1 réponse

Votre réponse

Discussions similaires