Discussion :

[Ytech123]

Bonjour,

je voudrais pouvoir mémoriser l'état d'un combobox afin que lorsque je relance mon application l'item actif du combobox soit celui qui été actif à la fermeture de l'application.

A savoir j'ai déjà écris la procédure qui sauvegarde la liste des items avec la ligne suivante:

combobox1.Items.SaveToFile('C:\dossier\fichier.txt')

existe t'il une propriété du combobox qui fait ça ou dois-je créer un fichier séquentiel pour enregistrer un record?
et si la piste du record et à retenir dois-je enregistrer le .text ou .itemindex ?

Amicalement,
Ytech

[ShaiLeTroll]

Text si la Saisie est libre
ItemIndex si l'on ne peut que choisir un Item (Style à csDropDownList par exemple)
Sinon pour le stockage, tu peux essayer le Fichier Ini, la Base de Registre, ou un fichier XML ou encore un Binaire (avec ton fameux record) ... à savoir qu'avec Vista, les 2ere solutions sont de plus en plus chiantes ...

Tu as ce genre de code un peu partout sur le forum, un petite recherche et tu trouveras ton bonheur ...

[Droïde Système7]

Pou cette utilisation, peut-être de faire "remonter" en ItemIndex l'item ainsi cliqué, voir source pour t'en donner le principe :
http://delphi.developpez.com/sources...ontrolComboBox

Mais faut pas que ta Combo "trie" par ordre alpha

@+

Edit : grillé par notre ShaiLeTroll

[ouiouioui]

Tu peux l'enregistrer dans un fichier ini
Si tu utilises la jvcl il te suffit de déposer deux composantes de la palette TJvFormStorage et TJvAppIniFileStorage

Moi je m'en sers pour sauvegarder le contenu des combobox items et itemindex

tu doubles clic sur l'icône de TJvFormStorage pour choisir simplement ce que tu veux enregistrer

Edit: grillé aussi

[Ytech123]

Bon en fait j'ai utiliser un bout de code que j'avais déjà écris en m'inspirant du cours de Mr Beaulieu sur l'écriture et la lecture d'un fichier séquentiel en utilisant un record.
http://fbeaulieu.developpez.com/guid...age_13#LXIII-C

cela fonctionne mais comme j'ai 22 combobox à traiter c'est un peux fastidieux!
c'est pourquoi je me demande s'il n'est pas possible que creer une boucle.
je m'explique :
je nomme mes combobox
cbox1
cbox2
cbox..
cbox22

est t'il possible de creer une boucle incrementant une variable n
et de traiter mes combobox dans la boucle en utilisant le nom cboxn ?

L'idée de trier les items dans un ordre alphabétique m'intéresse pouvez-vous m'en dire plus?

Amicalement,

Ytech

[Nono40]

est t'il possible de creer une boucle incrementant une variable n
et de traiter mes combobox dans la boucle en utilisant le nom cboxn ?

http://delphi.developpez.com/faq/?pa...#findcomponent

[Droïde Système7]

L'idée de trier les items dans un ordre alphabétique m'intéresse pouvez-vous m'en dire plus?

Code :

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

ComboBox1.Sorted := true;

[Ytech123]

Merci à tous pour vos conseil j'ai maintenant suffisamment d'infos pour finir cette applications.

[f5jcg_Lulu]

Bonjour à tous,
Je réveille cette vieille discussion pour le même problème.
J'ai une Combobox que j'utilise pour stocker des adresses de sites internet. Il y a donc 2 valeurs : le nom du site et le lien du site. Pour ajouter des entrées à la Combobox pas de problèmes. Je cherche ensuite à mémoriser les données (FormClose ou Destroy) de cette Combobox pour les récupérer (FormCreate) à chaque appel de l'appli. Tout cela par un fichier INI.
Question : l'un d'entre vous connaît-t-il le fonctionnement complet des composants JVCL cités dans la discussion, à savoir TJvFormStorage et TJvAppIniFileStorage. J'ai bien réussi à mémoriser et à rappeler 1 valeur mais pas la 2ème.
Ou bien y-a-t-il d'autres solutions pour mémoriser les 2 valeurs et les restituer ?
Merci. Cordialement

[SergioMaster]

Ou bien y-a-t-il d'autres solutions pour mémoriser les 2 valeurs et les restituer ?

Il y a un paquet de solutions différentes


Si tu reste sur un fichier ini.

voici déjà une piste : charger les valeurs dans un tstringlist (public ou privé) de la forme

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
31
32
33
34
35
36
uses System.Inifiles, System.ioutils;
 
procedure TForm2.Button1Click(Sender: TObject);
var f : TInifile;
begin
  Sl.Clear;
  Sl.NameValueSeparator:='=';
  F:=TInifile.Create(Tpath.Combine(Tpath.GetAppPath,'test.ini'));
  try
    F.ReadSectionValues('Combo',sl);
    for var i:=0 to sl.count-1
       do Combobox1.Items.Add(sl.names[i]);
  finally
   F.Free;
  end;
  combobox1.ItemIndex:=0;
end;
 
procedure TForm2.ComboBox1Select(Sender: TObject);
begin
label1.Caption:=sl.ValueFromIndex[combobox1.ItemIndex];  // montre la valeur de l'item
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sl.Free; // ne pas oublier de supprimer
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
sl:=TStringList.Create;
{à toi de customiser en fonction de tes besoins}
//sl.OwnsObjects:=true
//sl:=TStringlist.Create(TDuplicates.dupAccept,false,false);  {à choisir si on ne veux pas de duplicata, si on veut que la liste soit triée, si on veut que la liste soit sensible à la casse}
sl.NameValueSeparator:='=';
end;

Il y a bien sûr d'autres solutions comme utiliser un fichier XML,JSON ou Binaire à la place d'un fichier ini avec un FDmemtable et du livebinding (je suis feignant ce matin) c'est assez facile
voici ce que j'ai déclaré dans le dfm

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
  object FDMemTable1: TFDMemTable
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'FDMemTable1Index1'
      end>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvPersistent, rvSilentMode]
    ResourceOptions.Persistent = True
    ResourceOptions.SilentMode = True
    ResourceOptions.PersistentFileName = 'testcombo.fds'
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    StoreDefs = True
    Left = 72
    Top = 180
    object FDMemTable1FDMemTable1Nom: TStringField
      FieldName = 'FDMemTable1Nom'
    end
    object FDMemTable1FDMemTable1Site: TStringField
      FieldName = 'FDMemTable1Site'
      Size = 80
    end
  end
  object BindSourceDB1: TBindSourceDB
    DataSet = FDMemTable1
    ScopeMappings = <>
    Left = 264
    Top = 144
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    Left = 20
    Top = 5
    object LinkFillControlToField1: TLinkFillControlToField
      Category = 'Liaisons rapides'
      Control = ComboBox2
      Track = True
      FillDataSource = BindSourceDB1
      FillValueFieldName = 'FDMemTable1Site'
      FillDisplayFieldName = 'FDMemTable1Nom'
      AutoFill = True
      FillExpressions = <>
      FillHeaderExpressions = <>
      FillBreakGroups = <>
    end
  end