cs_franklin007
Messages postés3Date d'inscriptionjeudi 3 février 2005StatutMembreDernière intervention31 mars 2009
-
31 mars 2009 à 09:06
cs_franklin007
Messages postés3Date d'inscriptionjeudi 3 février 2005StatutMembreDernière intervention31 mars 2009
-
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.
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 31 mars 2009 à 09:36
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 ;