Tout à fait d'accord avec toi Whismeril !
maintenant le petit gars il peut toujours chercher avec la fonction copy (il fait du delphi donc il doit connaître la touche F1)
ouh ouh ouh ! Wishmeril, moi ça m'aurait pas plu... :D
Plus sérieusement, pour répondre à ta question clem68, si tu as la JCL installée, dans l'unité jclStrings, tu as trois fonctions StrBefore, StrAfter et StrBetween qui pourraient bien t'aider...
c'est une solution en vrac, sans vérification du contenu du Tedit qu'il ai bien 2 espaces sinon plantage, il faut donc faire une vérification puis traite en fonction du contenu
---
Beau temps belle mer
Jorgio
- Messages postés
-
675
- Date d'inscription
- jeudi 17 avril 2008
- Statut
- Membre
- Dernière intervention
- 19 février 2019
13 > Whismerilmaintenant le petit gars il peut toujours chercher avec la fonction copy (il fait du delphi donc il doit connaître la touche F1)
- Messages postés
-
1284
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
13Plus sérieusement, pour répondre à ta question clem68, si tu as la JCL installée, dans l'unité jclStrings, tu as trois fonctions StrBefore, StrAfter et StrBetween qui pourraient bien t'aider...
Bon si tu n'as plus de touche F1 tu peux toujors commencer par ca
procedure TForm1.SpeedButton1Click(Sender: TObject); var List: TStrings; begin List := TStringList.Create; try ExtractStrings([' '], [], PChar(Edit1.text), List); Label1.Caption := List[0]; Label2.Caption := List[1]; Label3.Caption := List[2]; finally List.Free; end; end;Beau temps belle mer
Jorgio
EDIT: Ajout de la coloration syntaxique.
- Messages postés
-
1284
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
13 > cs_eli42---
Beau temps belle mer
Jorgio