1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Extraction sous chaine dans une variable [Résolu]

Signaler
Messages postés
3
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
31 mars 2009
 -
Messages postés
3
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
31 mars 2009
 -
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
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
3815
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
4 août 2020
 35
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 ="" />
Réponse 2 / 2
Messages postés
3
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
31 mars 2009
Merci bien, ca fonctionne.
Répondre Posez votre question