Discussion :

[illuzmax]

Salut à tous,

Après une longue recherche sur le site, et différentes visites sur des aides pour Delphi, je ne trouve pas la réponse à ma question.

J'aimerais en fait, via Delphi, compter combien de fois apparait un certain caractère dans une chaine.

Par exemple, ma chaine serait : " Bonjour, qu'il fait beau aujourd'hui ",
je choisirais de compter la lettre " u ", est le programme me donnerais : 6.

Voilà j'éspère que vous avez compris, et que vous puissiez m'aider.

Merci d'avance

[Tardiff Jean-François]

Bonjour,

Je ne pense pas qu'il exite une fonction pour cela. Je peux me tromper mais personelment je la coderais.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function NbChar( Value: string; CountChar: char): Integer;
var
  Index: Integer;
begin
  result := 0;
  for Index := 0 to Length(Value) do begin
    if length[Index] = Value then 
      result := Result + 1;
  end;
end;

[illuzmax]

Bonjour et merci de ton aide. J'ai essayé le code que tu m'a passé, mais impossible de compiler

Delphi a du mal avec cette ligne, au niveau de length[Index] :

Code :

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

if length[Index] = Value the

Il me dit '(' attendu(e) mais '[' trouvé(e).

Zut alors

[ATTIA]

Bonjour

Tu a essayé cela ?

Code :

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

if length(Index) = Value the

[illuzmax]

Bonjour, oui j'avais aussi essayé : Types incompatibles.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
  function NbChar( Value: string; CountChar: char): Integer; 
var 
  Index: Integer; 
begin 
  result := 0; 
  for Index := 1 to Length(Value) do  
    if Value[Index] = CountChar then 
      result := Result + 1; 
end;

[Tardiff Jean-François]

Désolé, je ne me suis pas relus

Code :

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

1
2
 
if Value[Index] = CountChar then

c'est a dire: si le caratètre [index] du string Value = le Char Countchar fair

Les strings en delphi sont de 2 types

le string 16 bit
255 caratères max
caractère [0] = nombre de caractères
les carateres [1]..[255] contient les caratères
Version unique du string en Delphi1 (c'est vieux) il reste encore implémenté

Les string 32 bit, maintenant en standard
Du caratère [0] au caratère[n] le caratère [n+1] contient 00 en hexa.
C'est donc un string a zero terminal commen en C. Existe depuis Delphi2, c'est le string par defaut.

REctification:
Non seulement je ne me relis pas, mais je suis lent, la réponse a été donner alors que je tapais mon texte.

[illuzmax]

Apparement ça à l'air de marcher

Merci à tous

Je reposte si je m'aperçoit d'un problème

EDIT : Petite question, j'ai besoin de récupérer le nombre de caractères d'un memo.

Comment puis-je procéder ?

Merci encore

[Lung]

EDIT : Petite question, j'ai besoin de récupérer le nombre de caractères d'un memo.

C'est pas : Length(Memo.Text) ?

[illuzmax]

Non,

Opérateur non applicable à ce type d'opérande

[MFDev]

Salut,
Si c'est bien:

Code :

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

Length(Memo1.Text)

Idem pour un DBMemo, et sans erreur...
@+
Fabrice

[illuzmax]

A voui excusez moi !

C'est impécable, merci à tous

[illuzmax]

J'ai parlé trop vite !

Il me faudrais maintenant savoir, comment supprimer tous les espaces de ma chaine ?

J'en demande beacoup je sais, désolé

[Graffito]

Bonjour,

Utilise la fonction toute faite StringReplace :

Code :

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

s:=StringReplace(s,' ','',rfReplaceall) ;

[Tardiff Jean-François]

Bonjour,

Si vous compter les caractères d'un string issues d'un memo et sue vous ne trouvez pas le nombre auquelle vous vous attendez, cela peut être normale.

Si vous faite:

Code :

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

1
2
3
4
 
Memo.Lines.Clear;
Memo.Lines.Add('AA');
Memo.Lines.Add('BB');

Memo.Lines.text (ou Memo.text) devrait contenire 'AA' + CRLF + 'BB'
CRLF = #13 + #10 = l'indicateur de saut de ligne.

Il se peut que vous contiez 6 caratères au lieux de 4 et que vous voyez des blans entre 'AA' et 'BB' si vous utilisez le text autre part.

[TicTacToe]

Pour les retours chariots, il faut juste compléter le code de Graffito:

Code :

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

1
2
3
4
5
6
var s: string;
 
s := StringReplace( MonMemo.Lines.Text,' ','', [ rfReplaceall] ) ;
s :=stringReplace( s, #13#10, '', [ rfReplaceAll ] );
 
Result := Length( s );

bon courage !

[illuzmax]

D'accord, là c'est bon, je vous remercie, grandement

Bonne journée