Detection de caractère.Résolu

Question

Salut a tous,



Je voudrais savoir le proc&#233;d&#233; pour que mon aplication detecte des
caract&#232;res plac&#233;s dans un TEdit ou plus generale dans les zones de
texte. Et savoir si ce proc&#233;d&#233; et adaptable a chaque demande de
caract&#232;re a trouver. Je souhaite savoir si il y a presence de certains
caractere dans les certains que taperas les utilisateurs.

Si qqun connait la reponse a ma question, pourait-il expliquer les
diferentes etapes car j'ai trouver sur google des codes pour faire de
la recherche de caractere mais sans explication et je n'y comprend rien
et mon but et de comprendre avant tout.

Merci d'avance.

sisi231 · Accepted Answer

euh...
zcuse
pas pos(mon_texte) mais pos('p',mon_texte) biens&#251;r!
SISI231

sisi231 · Answer

lu

Pour r&#233;cup&#233;rer le texte de Tedit1 :

mon_texte := edit1.text;

Pour r&#233;cup&#233;rer le caract&#232;re n&#176; 3 de mon_texte :

mon_caractere := mon_texte[3];

pour que &#231;a marche il faut que tu d&#233;clare mon_texte et mon_caractere, pour-ce ajoute juste avant le mot begin :
mon_texte :string;
mon_caractere : char;

Bonne prog !
SISI231

sisi231 · Answer

Excuse j'ai lu trop vite : tu veux faire de la recherche d'un certain caract&#232;re ?


 


exemple :


mon_texte :string;
i : integer;


i :=   pos (mon_texte);

if i =0 then
showmessage ('ya pas de p dans mon_texte !')
else
showmessage('ya au moins un p dans mon texte et le premier " p " est le caract&#232;re n&#176;'+inttostr(i)+' de mon_texte');

SISI231

tux22 · Answer

Merci &#224; toi de rep si vite.

Et aussi:

Je dis que je veux absolument 4 caract&#232;re (4fois le meme), comment puis-je faire pour quil regarde si il y a bien les 4x ?

Cirec · Answer

Salut,
si c'est 4 fois le m&#234;me caract&#232;re &#224; la suite tu peux faire ceci :
pos('pppp', mon_texte)

si non tu peux essayer &#231;a :
Function NombredeFois(aChar : Char; aStr : String): Integer;
Var I : Integer;
Begin
  Result :=  0;
    For  I : = 1 To Length(aStr) Do
     If aStr[I] =  aChar  Then  Inc(Result)
End;


et tu peux faire par exemple comme ceci : 
If NombredeFois('p', Edit1.Text)  = 4 Then ....

@+
Cirec

Cirec · Answer

petite pr&#233;cision, dans NombredeFois(aChar : Char; aStr : String): Integer; 
aChar est CaseSensitive c'est a dire que 'p' n'est pas &#233;gale &#224; 'P'

si tu ne veux pas faire la diff&#233;rence entre majuscule et minuscule il faut modifier le code comme suit :

Function NombredeFois(aChar : Char; aStr : String): Integer;
Var I : Integer;
Begin
  Result :=  0;
    For  I : = 1 To Length(aStr) Do
     If UpCase(aStr[I]) = UpCase(aChar) Then Inc(Result)
End;



@+
Cirec

tux22 · Answer

Merci pour vos reponses.

tux22 · Answer

J'ai encore une question:

Je veux dire que: si le caractere n&#176;3 de mon_texte est un . (par exemple) alors on continu la procedure sinon end.

J'ai utiliser ce code mais j'ai une erreure et je comprend pas trop:

mon_texte : String; mon_caractere : Char;



if (mon_caractere := mon_texte[3]='.') then

            ....suite de la procedure....



Else

Memo1.Lines.Add(' erreur')



Ce code ne marche pas, pourquoi ? 

Merci d'avance.

sisi231 · Answer

if (mon_caractere := mon_texte[3]='.') then

>> met un simple = (symbole d'&#233;galit&#233;) et non le symbole d'affectation :=

Deuxio : tu devrais prendre l'habitude d'utiliser la m&#233;thode append plut&#244;t que add car contrairement &#224; cette derni&#232;re elle n'a pas de valeur de retour.

SISI231

tux22 · Answer

Hum, marche pas:



if (mon_caractere = mon_texte='.') then...



erreur: Types incompatibles



Merci pour la methode append

sisi231 · Answer

ah oui : y'avait une deuxi&#232;me erreur que je n'avais pas vu :


il ne faut pas mettre 2 &#233;gal dans une m&#234;me expression en Delphi (contrairement au C), &#233;crit donc :

mon_caractere := mon_texte[3];
if (mon_caractere='.') then

SISI231

tux22 · Answer

Merci bcp.

Detection de caractère.

12 réponses

Votre réponse

Discussions similaires