Discussion :

[DOliv]

Bonjour à tous.tes,
Voilà ce que j'essaie de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Titi := Pos('toTo', chaîne) > 0;

Mais je voudrais qu'il me retourne True quand il trouve 'Toto' ou 'totO' ou 'toto'. Enfin, vous l'avez compris, qu'il ne fasse pas le distinguo entre les minuscules et les majuscules.
Tant pis si ce n'est pas possible, mais ça m'arrangerait bien

Merci beaucoup d'avance.

[Andnotor]

Par expression régulière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
uses System.RegularExpressions;
 
Titi := TRegEx.IsMatch(chaine, 'toto', [roIgnoreCase]);

Juste pour rire par ChatGTP (Bing) :

écrire une expression régulière en Delphi pour trouver un texte non case sensitive

Pour écrire une expression régulière en Delphi pour trouver un texte non case sensitive, vous pouvez utiliser l’unité System.RegularExpressions si vous possédez Delphi XE ou une version postérieure. Si vous possédez une version antérieure à Delphi XE, vous pouvez utiliser la classe TPerlRegEx de l’unité PerlRegEx.

donne un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
uses System.RegularExpressions;
 
function FindText(const Text, Pattern: string): Boolean;
var
  Regex: TRegEx;
begin
  Regex := TRegEx.Create(Pattern, [roIgnoreCase]);
  Result := Regex.IsMatch(Text);
end;

Bientôt la retraite

[tourlourou]

Bonjour,

Tu peux mettre en majuscules (ou minuscules d'ailleurs) le motif à chercher et la chaîne à tester : Titi := Pos( UpperCase('toTo'), UpperCase(chaine)) > 0;.

[EDIT] Grillé ! Mais j'ai utilisé un code de dinosaure, pas de retraité ;-)

[DOliv]

Rââhhh, merci Andnotor
Je me mets dessus avec optimisme.

Bientôt la retraite

Félicitation

[DOliv]

Tu peux mettre en majuscules (ou minuscules d'ailleurs) le motif à chercher et la chaîne à tester : Titi := Pos( UpperCase('toTo'), UpperCase(chaine)) > 0;.

Bonjour tourlourou,
En fait je ne peux pas modifier la chaîne dans laquelle je recherche. Donc si j'utilise Pos('TOTO'... et que dans la chaîne c'est toTO, je suis de la revue

[Lung]

System.StrUtils.ContainsText

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function ContainsText(const AText, ASubText: string): Boolean;

Effectue une recherche insensible à la casse de la sous-chaîne ASubText dans la chaîne AText. Renvoie true si une ou plusieurs instances de ASubText existent dans AText.
Pour une recherche sensible à la casse, utilisez la routine ContainsStr.

[DOliv]

Ah ben merci lung, encore mieux
Moi, je n'avais rien trouvé dans l'aide

[SergioMaster]

Bientôt la retraite

Bien que j'aie repoussé mon départ de 6 mois (mon décompte est repassé de 69 à 222 jours) , je peux écrire la même chose

[Paul TOTH]

Bien que j'aie repoussé mon départ de 6 mois (mon décompte est repassé de 69 à 222 jours) , je peux écrire la même chose

alors moi je n'ai aucune bonne expérience d'aide à la programmation avec chatgpt...il me donne toujours des codes foireux et quand je lui pose des questions sur un code qui me retourne une erreur il me répond des banalités ... mais bon, ma retraite est dans longtemps !

[Lung]

Moi, je n'avais rien trouvé dans l'aide

J'ai utilisé l'aide de XE7 pour trouver.

[pprem]

alors moi je n'ai aucune bonne expérience d'aide à la programmation avec chatgpt...il me donne toujours des codes foireux et quand je lui pose des questions sur un code qui me retourne une erreur il me répond des banalités ... mais bon, ma retraite est dans longtemps !

Idem, testé le week-end dernier m-pour me dépatouiller avec l'API Objective-C et le résultat était de l'Objective-C écrit en Pascal. Joli, logique, bien expliqué, mais totalement inutilisable. Dans un sens assez rassurant car ChatGPT sera un bon remplaçant ou complément de StackOverflow (qui veut probablement fournir un équivalent en répondeur automatique sur son site vues les questions du sondage annuel).