Extraction sous chaine dans une variable [Résolu]

cs_franklin007 3 Messages postés jeudi 3 février 2005Date d'inscription 31 mars 2009 Dernière intervention - 31 mars 2009 à 09:06 - Dernière réponse : cs_franklin007 3 Messages postés jeudi 3 février 2005Date d'inscription 31 mars 2009 Dernière intervention
- 31 mars 2009 à 10:56
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épondre au sujet
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 31 mars 2009 à 09:36
+3
Utile
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 ="" />
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Cirec
cs_franklin007 3 Messages postés jeudi 3 février 2005Date d'inscription 31 mars 2009 Dernière intervention - 31 mars 2009 à 10:56
0
Utile
Merci bien, ca fonctionne.
Commenter la réponse de cs_franklin007

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.