Discussion :

[sofpower]

Bonjour !

Je suis bloquée dans un exercice dans lequel il m'est demandé d'écrire une fonction qui permet d'extraire un entier d'une chaine de caractère :

par exemple, j'ai cette chaine : $158$

et je voudrais avoir 158 !

alors moi j'ai fait quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function convertChaineVersEntier(ch:string):integer;
var p,entier:integer;
begin
     pos:=pos('$',ch);
 
     while p>0 do
                 begin
                      delete(ch,p,1);
                      p:=pos('$',ch);
                 end;
 
entier:=ch;
 
end;

mais je sais très bien que je ne peux pas passer une chaine de type string en integer... ce serait trop beau !

si vous pouviez m'éclairer !

merci !

[darrylsite]

Salut,
Si tu ne nous dis pas ce qui te bloque, comment veux qu'on t'aide?

[richard]

La fonction prédéfinie VAL() permet de transformer une string en Integer (LongInt), Real ou Byte.

Voir ici : http://www.freepascal.org/docs-html/rtl/system/val.html

Je pense que ça va t'aider.