Bonjour voila j'ai installer sur une fiche 2 radiobutton , chaque radio button a pour fonction de ranger des donnees numeriques soit par fichier de 200 ou de 300

le code que je tape n a pas l air de fonctionner

if CheckRButton1.Checked:=True then RButton2.Checked:=False;
    if (Count = 2000) then begin //On enregistre dans le fichier par tranches de 2000 lignes
        EnregistrerLigneDansFichier(FichierSTEnCours, Text);
        if CheckBoxMontrerNumerosGardees.Checked then begin
           MemoSortie.Lines.Delete(MemoSortie.Lines.Count-1);
           MemoSortie.Lines.Add(Text);
        end;
    Clear;
end.

apparemment ca ne marche pas , mais ayant chercher un pau a gauche et a droite j'ai pas trouver comment faire fonctionner cela merci

Salut

1)Premierement
if CheckRButton1.Checked:=True then RButton2.Checked:=False;
Premier probleme :
if CheckRButton1.Checked then RButton2.Checked:=False;
Ou
CheckRButton1.Checked:=Not RButton2.Checked;

2)Secondo
if (Count = 2000) then
  begin //Mettre le commentaire apres
   //On enregistre dans le fichier par tranches de 2000 lignes
   EnregistrerLigneDansFichier(FichierSTEnCours, Text); //Text et FichierSTEnCours nont définits
   if CheckBoxMontrerNumerosGardees.Checked then //Doucement sur le  nom des composants
   begin
           MemoSortie.Lines.Delete(MemoSortie.Lines.Count-1); //Ici tu supprimes qu'une ligne
           MemoSortie.Lines.Add(Text); //Texte pas définit
        end;
    Clear; //Pour finir tu efface le contenu de on sait pas trop quoi : si c'est le mémo, normal que tu vois rien
end.

Merci de donner l'ensemble des infos car là on ne peut absolument pas d'aider comme je viens de te le démontrer

// boutton de sauvegarde OnClick
procedure TForm2.Button1Click(Sender: TObject);
var
  SaveCount : integer;
begin
  if RadioButton1.Checked then
  begin
    // enregistre par lot de 200
    SaveCount := 200;
  end
  else
  begin
    // enregistre par lot de 300
    SaveCount := 300;
  end;
end;

// Radio 1 OnClick
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
  RadioButton2.Checked := not RadioButton1.Checked;
end;

// Radio 2 OnClick
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
  RadioButton1.Checked := not RadioButton2.Checked;
end;

---

// Radio 1 OnClick
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
  RadioButton2.Checked := not RadioButton1.Checked;
end;

// Radio 2 OnClick
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
  RadioButton1.Checked := not RadioButton2.Checked;
end;

Ca sert pas à grand chose de faire ca ?
Ou alors explique l'avantage ...

Salut,

je suis du même avis que Nicolas ...
si les 2 RadioButton font partis du même groupe cette opération est gérée automatiquement par la VCL !!!!

 
@+
Cirec

---

les 2 radiobutton sont posé directement sur la fiche donc pas de groupe (is not RadioGroup)

---

oups ... en effet, toujours verifier ce qu'on avance ... pas besoin des fonctions d'inversion d'etat.

j'avais oublier a quel point la VCL nous facilite la tache.

---

 
@+
Cirec

---