Discussion :

[Coussati]

salut

j'ai une chaine de caractere : xxxxxx56xxxxx54xxxxxx

j'aimerais extraire tous les chiffres de cette chaines

ma question est comment vérifier si un caractere est un chiffre

la 1ère question c'était par curiosité que je voulais savoir

mais ce que je cherche c'est extraire un nombre de la chaine sachant qu'il est tjrs composé de 2 chiffres

merci à celui qui pourra répondre aux 2 questions

[Cl@udius]

Salut

Comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
const
  S = 'xxxxxx56xxxxx54xxxxxx';
var
  I: Integer;
  sNum: string;
begin
  sNum := '';
  for I := 1 to Length(S) do
    if S[I] in ['0'..'9'] then
      sNum := sNum + S[I];
 
  ShowMessage(sNum);
end;

Il ne reste plus qu'à découper sNum en 2 pour en extraire les valeurs.

@+ Claudius

[Coussati]

je viens d'apprendre une nouvelle chose :

if S[i] in ['0'..'9'] then

thx

[evarisnea]

penser à marquer

[CapJack]

Sinon, autre possibilité, plus complexe à assimiler mais plus puissante sur le long terme pour ce genre de job : les expressions régulières.
Il existe une excellente unité pour Delphi : TRegExpr.