Remplacer un chr avec une autere Char

Réponse acceptée !
Bonjour, utilise une boucle !

procedure ChangeChar;
Var
   I: Integer;
   TaString, Ajout: String;
begin
     Ajout := '';
     for I := Length(TaString) - 2 to Length(TaString) do
     begin
          if TaString[I] = '0' then Ajout := Ajout + 'x';
          if TaString[I] = '1' then Ajout := Ajout + 'n';
     end;
     TaString := TaString + '-' + Ajout;
end;

end.

Explications : dans ce code, les 2 derniers caractères de ta ligne seront scannés. Si il s'agit d'un 0, alors on ajoutera dans un buffer texte, un 'x'. Si c'est un 1, alors on ajoutera un 'n'.
A la fin, quand tous les caractères sont scannées, on ajoute ce buffer à ta string.
Ainsi pour :
inf=001
on obtiendra
inf=001-xn

pour inf=110
on obtiendra
inf=110-nx

bien sur un tiret est intercalé entre la string de départ et le buffer, pour obtenir le résultat voulu.

J'espère avoir répondu a ta question !

Cordialement, Bacterius !

Réponse acceptée !
Re,
d'ailleurs une boucle n'est même pas nécessaire, car il ne faudra regarder que les 2 derniers caractères, et cela pour tout le temps.
On peut aussi bien faire sans :

procedure ChangeString;
Var
   TaString, Ajout: String;
begin
     Ajout := '';

     // dernier caractère
    
     if TaString[Length(TaString)] = '1' then Ajout := Ajout + 'x';
     if TaString[Length(TaString)] = '0' then Ajout := Ajout + 'n';

     // Avant dernier caractère

     if TaString[Length(TaString) - 1] = '1' then Ajout := Ajout + 'x';
     if TaString[Length(TaString) - 1] = '0' then Ajout := Ajout + 'n';

     // On ajoute le tout

     TaString := TaString + '-' + Ajout;
end;

end.


Voila !

Cordialement, Bacterius !


PS : j'ai fait une erreur, dans le code du dernier post :

dans la ligne :

"for I := Length(TaString) - 2 to Length(TaString) do"

il faut en réalité mettre :

"for I := Length(TaString) - 1 to Length(TaString) do"

(Le code erroné scannait les 3 derniers caractères ...)

^^

Réponse acceptée !
Re,

désolé, je n'ai pas vu que la string de départ contenait déjà l'emplacement pour les 2 caractères : la manipulation n'en sera que plus facile !

AVEC BOUCLE :

procedure ChangeString;
Var
   TaString: String;
   I: Integer;
begin
     TaString := Edit1.Text;
     for I := Length(TaString) - 1 to Length(TaString) do
     begin
          if TaString[I] = '0' then TaString[I] := 'x';
          if TaString[I] = '1' then TaString[I] := 'n';
     end;
     Edit1.Text := TaString;
end;

SANS BOUCLE :  

procedure ChangeString;
Var
   TaString: String;
begin
     TaString := Edit1.Text;

          // Dernier caractère

          if TaString[Length(TaString)] = '0' then TaString[Length(TaString)] := 'x';
          if TaString[Length(TaString)] = '1' then TaString[Length(TaString)] := 'n';

          // Avant dernier caractère

          if TaString[Length(TaString) - 1] = '0' then TaString[Length(TaString) - 1] := 'x';
          if TaString[Length(TaString) - 1] = '1' then TaString[Length(TaString) - 1] := 'n';
     end;
     Edit1.Text := TaString;
end;



Voila chef !

Remarquez que le passage par une variable intermédiaire est nécessaire : modifier directement les caractères d'une variable composant (genre Edit1.Text) déclenche une erreur violation mémoire (en faisant Edit1.Text[4] par exemple). Il faut donc tout manipuler sur une variable String, contenant le Edit1.Text, et ensuite redonner cette valeur manipulée à Edit1.Text !

Je pense que c'est bon cette fois ^^'

Cordialement, Bacterius !

Réponse acceptée !
Salut,

@Bacterius: c'est très bien ce que tu fais et tu verras que, au final, ça t'apportera
plus (en maitrise de Delphi) que tout autre méthode ...

Bravo continue
c'est tellement rare que des nouveaux membres s'investissent à répondre aux questions du forum .. alors quand ça arrive il faut le souligner


Sinon il y  avait une autre possibilité "plus simple"

Procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
Var sS: String;
Begin
  If Abs(UpDown1.Position) Mod  10 = 1  Then
    sS := 'n'
  Else
    sS := 'x';
  If (Abs(UpDown1.Position) Div  10) Mod  10 = 1  Then
    sS := 'n' + sS
  Else
    sS := 'x' + sS;

  Edit1.Text := Format('inf=%.3d-%s', [UpDown1.Position, sS]);
End;


Si ton UpDown ne va pas en dessous de zéro (négatif  -10)
tu peux remplacer :
  Abs(UpDown1.Position)
par
  UpDown1.Position
 
@+
Cirec

---

Réponse acceptée !

Bonjour,
d'abord merci à vous tous pour vos encouragements :)
merci

@DelphiTurbo : tu essayes de protéger le code avec "if char <> IntToStr([0..9] then"
malheureusement, le IntToStr est tout de même effectué, et si ce n'est pas un nombre alors ca plante !
Tu peux entourer ton code d'un bloc try-except :

procedure ChangeString;
begin
      char:='';
      for i:= 0 to Edit1.Lenth do
         begin  // Si tu ne mets pas begin, la boucle ne prendra en compte que la premiere instruction (le "if char <> inttostr ..." ne sera executé qu'a la fin de la boucle)
         char:=Edit1.Text[i];  // On stocke le caractère
            TRY
            if char <>IntToStr[0..9] then // Ton code ...
            EXCEPT
            on EConversionError do // J'ai jamais su quoi faire à ce moment la, mais de toute facon si tu mets rien ca arrête l'erreur ... D'habitude je met un message d'erreur mais je suis pas sur que ca soit la bonne idée ici ... :x
            end;  // Fin du bloc try-except
         char:='';  // Inutile, vu qu'il est remplacé à chaque fois
         end;  // A tout begin il faut un end (c'est profond ... ^^)
end;

Mais dans ce code tu prends en compte tous les caractères de ton Edit1

Et de toute facon si tu as trouvé un code qui marche ...
Aucune erreur dans mon code, tout est traité sous forme de caractère ...
Alors pourquoi cherches-tu à faire un autre code qui utilise IntToStr[0..9] ???

Mon code aura au moins le mérite de montrer comment construire (à peu pres) un bloc try-except (néanmoins il n'est pas parfait ...)

J'espère que tu auras trouvé ton bonheur DelphiTurbo ^^

Merci à vous tous

Cordialement, Bacterius !