Extraction sous chaine dans une variable [Résolu]

Question

Posez votre question Signaler Répondre au sujet

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

Delphi / Pascal Posez votre question Signaler Répondre au sujet

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

Signaler Commenter la réponse de cs_franklin007

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.

Accepted Answer

+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é ? Oui Non

Extraction sous chaine dans une variable [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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