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.
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 ;