Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ai un TRadioGroup (rg1) avec 2 items.

Je n'arrive pas à sauver celui qui est checked.

J'ai aussi essayé avec ceci :

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
 
 
//Onclose
 if Rg1.itemindex = 0 then indice := 0 // méthode classique - valeur entière avec choix
    else
     if Rg1.itemindex =1  then indice := 1;
     FichIni.WriteInteger('RadioButton','Coché',indice);
 Fichini.Free;
 
//Oncreate
 
indice :=FichIni.ReadInteger('Rg1','Coché', 0); // méthode classique - valeur entière avec choix
          case indice of
        1 : rg1.ItemIndex := 0 ;
        2 : rg1.ItemIndex := 1 ; 
 Fichini.Free;

Merci d'avance.

@+,

Cincap

[popo]

Quelques regles de base à respecter
- une section est définie entre crochet exemple et il me semble en majuscule :[SECTION]
- une section ne doit pas contenir de caractères accentués.

Donc ton fichier ini devrait avoir cette forme là.

Code :

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

1
2
3
 
[RADIOBUTTON]
Coche=0

Et après
Dans le create

Code :

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

1
2
3
4
5
6
7
8
9
 
Fichini := TIniFile.Create(Chemin);
try
   indice := FichIni.ReadInteger('RADIOBUTTON','Coche',0);
   ...
finally
   if (Assigned(FichIni)) then
      FreeAndNil(FichIni)
end;

Dans le close

Code :

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

1
2
3
4
5
6
7
8
9
 
Fichini := TIniFile.Create(Chemin);
try
   ...
   FichIni.WriteInteger('RADIOBUTTON','Coche',indice);
finally
   if (Assigned(FichIni)) then
      FreeAndNil(FichIni)
end;

[Dr.Who]

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, 
  IniFiles; // <-- fichiers INI
 
type
  TForm5 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Edit1: TEdit;
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    fIniFile : TIniFile; // <-- le fichier INI de l'application
  public
 
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm5.Edit1Change(Sender: TObject);
begin
  // sauvegarde les valeurs à la volée
  fIniFile.WriteString((Sender as TEdit).Name, 'Text', (Sender as TEdit).Text);
end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
  // creation de l'INI
  fIniFile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
 
  // chargement
  Edit1.Text            := fIniFile.ReadString (Edit1.Name,       'Text',  Edit1.Text);
 
  RadioGroup1.ItemIndex := fIniFile.ReadInteger(RadioGroup1.Name, 'index', RadioGroup1.ItemIndex);
 
  RadioGroup2.ItemIndex := fIniFile.ReadInteger(RadioGroup2.Name, 'index', RadioGroup2.ItemIndex);
end;
 
procedure TForm5.FormDestroy(Sender: TObject);
begin
  // libération du fichier INI
  fIniFile.Free;
end;
 
procedure TForm5.RadioGroup1Click(Sender: TObject);
begin
  // sauvegarde des valeurs à la volée
  fIniFile.WriteInteger((Sender as TRadioGroup).Name, 'index', (Sender as TRadioGroup).ItemIndex);
end;
 
 
end.

[cincap]

Bonjour à toutes et à tous.

Bonne année.

@ Dr.Who, décidément, tu es trop fort, merci de ta solution qui fonctionne correctement.

@ Popo, merci aussi de ta réponse.

@+,

Cincap