Extraction sous chaine dans une variableRésolu

Question

Bonjour,

Etant débutant en delphi, je suis confronté à un  problème.
Je cherche un moyen d'extraire une sous chaine d'une chaine, et de placer la sous chaine extraite dans une variable.

Exemple:
Prenons une chaine 'egfsdvgzrgzTOTOqdghzdgzegze'. Je souhaite donc tester si la sous chaine 'TOTO' est contenue dans la chaine, et ensuite extraire 'TOTO' dans une variable.

Si quelqu'un à une solution, je suis preneur.

Merci

Bab

Cirec · Accepted Answer

salut,

Const Chaine =   'egfsdvgzrgzTOTOqdghzdgzegze'; 

 Procedure  TForm1.Button1Click(Sender: TObject); 

Var Idx: Integer;  // Position de la sous-chaine dans la chaine 
    SChaine: String; 
Begin 
  SChaine :  = 'toto'; // sous chaine à 
trouver
  // comme Pos est Case Sensitif 
on met le tout en minuscule avant
  IdX :=  
Pos(AnsiLowerCase(SChaine), AnsiLowerCase(Chaine)); 
   If  Idx > 0  Then 
    Label1.Caption : = Copy(Chaine, Idx, 
Length(SChaine)) 
  Else 

    Label1.Caption :=  'sous-chaine ' + 
SChaine + ' non trouvée'; 
 End ; 
 
@+
Cirec

<hr siz ="" />

cs_franklin007 · Answer

Merci bien, ca fonctionne.

Extraction sous chaine dans une variable

2 réponses

Votre réponse