chaine de caractere et espace

Question

Bonjour,
Voila j'ai un probleme avec une chaine de caracteres fixe :
je voudrais mettre dans une chaine de caracteres de longueur fixe (5 caracteres) 1 caractere par case coch&#233;es.
par exemple : si la 1ere et la 3eme cases sont coch&#233;es alors ma chaine est 'A A  ' ou ls espaces sont bien des espaces (!!) pour remplacer les caracteres. Le seul petit probleme c'est que Delphi ne prend pas en compte le fait de mettre 2 espaces sucessifs. Comment faire ?? voici un petit bout de mon code : 
*******
function TformFourn.traitementUtil() : string;
begin
    for i:= 0 to 9 do
    begin
        gutil[i] := ' ';
    end;


    if ckboxA.Checked =true then
    begin
      gutil[1] := 'A';
    end
    else
    begin
       gutil[1] := ' ';
    end;


    if ckboxM.Checked =true then
    begin
      gutil[2] := 'M';
    end
    else
    begin
       gutil[2] := ' ';
    end;


    if ckboxC.Checked =true then
    begin
      gutil[3] := 'C';
    end
    else
    begin
       gutil[3] := ' ';
    end;
**************
Merci pour votre aide
Bonnne journee
Deubal

exyacc · Answer

tu l'as declar&#233; comment gutil ? chez moi ca marche, ne connaissant pas ta declaration j'ai mis:



function TformFourn.traitementUtil() : string;



VAR GUTIL:STRING[5];

          I:INTERGER;

begin

    GUTILl := '     ';

   if ckboxA.Checked =true then
    begin
      gutil[1] := 'A';
    end
    else
    begin
       gutil[1] := ' ';
    end;


 
    if ckboxM.Checked =true then
    begin
      gutil[2] := 'M';
    end
    else
    begin
       gutil[2] := ' ';
    end;


     if ckboxC.Checked =true then

    begin

      gutil[3] := 'C';

    end

    else

    begin

       gutil[3] := ' ';

    end;
RESULT:=GUTIL;

end;


exyacc

exyacc · Answer

sinon en plus court tu peux faire:





function TformFourn.traitementUtil() : string;

 

 VAR gtuil:STRING[5];

           i:INTERGER;

 begin

     gutil := '     ';

    if ckboxA.Checked then gutil[1] := 'A';


    if ckboxM.Checked then gutil[2] := 'M';


    if ckboxC.Checked then gutil[3] := 'C';

result:=gutil;

 end;




exyacc

cs_deubal · Answer

il est declar&#233; comme le tien en string[5].
Mais sur ton poste ca fait aussi 2 espace consecutifs si tu ne coche pas 2 cases consecutives. Parce que moi ca n'en fait qu'un seul !?
Merci

exyacc · Answer

ben oui....

comment tu vois qu'il n'en fait qu'un ?

en faisant un   showmessage('#'+traitementUtil+'#'); on voit
bien qu'il en met pls a la fin; a la rigueur remplace
gutil:='     ' par gutil:=':::::' pour mieux
voir.... tu utiliserais pas un TRIM avant de l'afficher ?


exyacc

exyacc · Answer

tu l'avais declar&#233; en String[5] ?

ton code


 for i:= 0 to 9 do

    begin

        gutil[i] := ' ';

    end;


devait tout casser...

non ?



exyacc

f0xi · Answer

alternative et exemple :



var

  Form1   : TForm1;

  checked : string; // notre chaine de control pas de taille limite



const

  checkedmax : integer = 5; // taille maximale de la chaine checked

  checkednot : char = '-'; // caractere definissant l'etat non-coch&#233;



implementation



{$R *.dfm}



// initialisation de la chaine

procedure InitChecked; 

var x : integer;

begin

  for x := 1 to checkedmax do 

      checked := checked + checkednot;

end;



// procedure a appeler pour changer les etats

procedure SetChecked(var cbox : TCheckBox; value : char); 

begin

  if cbox.Checked = true then

     // on utilise les TAG des checkbox pour savoir a quelle position il correspond

     checked[cbox.Tag] := value

  else

     checked[cbox.Tag] := checkednot;



  // permet de controler l'etat en temps r&#233;el sur un simple TLabel

  form1.Label1.Caption := checked;

end;



// on initialise a la creation

procedure TForm1.FormCreate(Sender: TObject);

begin

  initchecked;

end;



// les click sur les checkbox, intervient egalement avec les raccourcis clavier



procedure TForm1.CheckBox1Click(Sender: TObject);

begin

  // on peu placer n'importe qu'elle valeur pour chaque checkbox ici '1'

  SetChecked(CheckBox1,'1');

end;



// encore une autre checkbox

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

  SetChecked(CheckBox2,'2');

end;



// etc... etc...

f0xi · Answer

je transforme la procedure SetChecked en fonction :



  







function SetChecked (var cbox : TCheckBox; value : char) : string;

begin

  if cbox.Checked = true then
     checked[cbox.Tag] := value
   else
      checked[cbox.Tag] := checkednot;


   result := checked;

end;



il ne suffirat plus que d'appeler SetChecked sur chaque OnClick des checkbox.

et il suffit de lire la chaine "Checked" ou le retour de la fonction SetChecked.

Chaine de caractere et espace

7 réponses

Votre réponse

Discussions similaires