choix radiobutton

Question

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

Francky23012301 · Answer

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

f0xi · Answer

// 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;

Nicolas___ · Answer

// 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 ...

Cirec · Answer

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

<hr siz="" />

f0xi · Answer

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

f0xi · Answer

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 · Answer

@+
Cirec





<hr siz="" />

Choix radiobutton

7 réponses

Votre réponse

Discussions similaires