Extraction sous chaine dans une variable [Résolu]
cs_franklin007
- Messages postés
- 3
- Date d'inscription
- jeudi 3 février 2005
- Dernière intervention
- 31 mars 2009
- Messages postés
- 3
- Date d'inscription
- jeudi 3 février 2005
- Dernière intervention
- 31 mars 2009
A voir également:
- Delphi extraire sous-chaine
- Sous chaine en pascal - Meilleures réponses
- Sous chaine pascal - Meilleures réponses
- Petit équivalent du ?: du c en delphi pour les chaines, longint & boolean - Codes sources - ASM (Delphi et asm)
- Extraire une chaine de caractères d'une cellule pour la copier - Codes sources - Visual Basic / VB.NET (VBA)
- Extraire une chaine de caractère en c# ✓ - Forum - C# / .NET
- Extraire une chaine ✓ - Forum - Javascript / DHTML
- Parcourir et extraire une chaine dans Items de ListBox ✓ - Forum - Visual Basic 6
2 réponses
Meilleure réponse
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
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 ="" />
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 ="" />
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
112 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3
- Date d'inscription
- jeudi 3 février 2005
- Dernière intervention
- 31 mars 2009
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.