Discussion :

[f5jcg_Lulu]

Bonjour à tous,
Il y a déjà eu une discussion sur le sujet mais qui ne m'a pas apporté ce que j'attendais.
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 l'adresse 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 2.
Ou bien y-a-t-il d'autres solutions pour mémoriser les 2 valeurs et les restituer ?
Merci. Cordialement

[ShaiLeTroll]

TJvFormStorage c'est pour stocker la position taille d'une fenêtre pour la réouvrir comme elle était à la fermeture

Utilise un TIniFile de base, inutile de passer par la JEDI

Sinon TStrings.SaveToFile et LoadFromFile, c'est basique

[f5jcg_Lulu]

Oui Shai vous avez raison, SaveToFile et LoadFromFile il n'y a que ça de vrai. Je vais devoir m'adapter.
Merci à vous
Cordialement

[ShaiLeTroll]

Pour te dire j'ai un truc très similaire dans un programme de Test

un ComboBox et plusieurs TEdit

Au démarrage, cela charge la combo :

Code :

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

1
2
3
4
5
6
7
8
9
10
//------------------------------------------------------------------------------
procedure TxxxCheckingMainForm.LoadxxxSettingsSectionFromIni();
begin
  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
  try
    ReadSections(cbxxxSettingsSection.Items);
  finally
    Free();
  end;
end;

le fichier ini contient donc plusieurs [SECTIONS]

un Bouton ajouter un nouveau élement :

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
//------------------------------------------------------------------------------
procedure TxxxCheckingMainForm.SavexxxSettingsToIni();
var
  S: string;
begin
  S := cbxxxxSettingsSection.Text;
  if cbxxxxSettingsSection.Items.IndexOf(S) < 0 then
    cbxxxxSettingsSection.Items.Add(S);
 
  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
  try
    WriteString(S, 'xxx', edxxx.Text);
    WriteString(S, 'yyy', edyyy.Text);
    WriteString(S, 'Memo', StringReplace(mem.Lines.Text, sLineBreak, '\r\n', [rfReplaceAll]));
  finally
    Free();
  end;
end;

et le OnChange de la Combo appelle

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
//------------------------------------------------------------------------------
procedure TxxxCheckingMainForm.LoadxxxSettingsFromIni();
var
  S: string;
begin
  S := cbxxxxSettingsSection.Text;
 
  with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
  try
    edxxx.Text := ReadString(S, 'xxx', '');
    edyyy.Text := ReadString(S, 'yyy', '');
    Memo.Lines.Text := StringReplace(ReadString(S, 'Memo', ''), '\r\n', sLineBreak, [rfReplaceAll]);
  finally
    Free();
  end;
end;

et le fichier ini donc

Code ini :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
[local]
xxx=http://localhost/
yyy=machin
Memo=Line1\r\nLine2\r\nLine3\r\n
 
[dev-stable]
xxx=https://server.truc/
yyy=bidule
Memo=Line1\r\nLine2\r\nLine3\r\n
 
[dev]
xxx=http://server.chose/
yyy=objet
Memo=Line1\r\nLine2\r\nLine3\r\n