cs_franklin0073
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_franklin0073
Messages postés jeudi 3 février 2005Date d'inscription
31 mars 2009
Dernière intervention
- 31 mars 2009 à 10:56
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.
Cirec4231
Messages postés vendredi 23 juillet 2004Date d'inscription
3 août 2018
Dernière intervention -31 mars 2009 à 09:36
3
Merci
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 ;
a aidé 90 internautes ce mois-ci