probleme avec fonction extract

Version imprimable

bonjour bonjour !
je rencontre un petit probleme avec la fonction extract pour extraire un caractère d 'un chaine de caractères

Code:

1
2
3
4
5
6
7
8
9
10
 
 
 then begin nbch:=count(nb);
              i:=1;
              erreur:= false
              end;
              while  not erreur and while i <= nbch do
                     ch:= extract(nb,i,1);
                     if ch <> '0 'and if ch <>'1'
                       then erreur:= true ;

et là le compilateur me dit "trop de parametre originaux" :?
je comprend pas! i need help :help:

27/12/2006, 16h32
PadawanDuDelphi

Salut,

Personnellement j'utilise copy pour extraire des caractères d'une chaine.

@+.
27/12/2006, 16h37
Cl@udius

Salut

Extract permet de retirer un élément d'une liste (TList, TObjectList, ...).
J'ai du mal à saisir ce que fais ton code. Tes condition if et while sont bizarres !

Mais comme le précise Padawan, un simple Copy suffit pour extraire une chaine.

[edit]
Présice un peu plus ce que tu veux faire. Quel est le type de nb ? Quel résultat veux-tu obtenir ?
[/edit]

@+ Claudius
27/12/2006, 16h44
babou54

ok ok merci ! jessai ;)
27/12/2006, 16h49
babou54

en faite mon programme doit convertir des nombres d'une base à une autre
et dans mon code je gere les erreure de saisie pour un nombre en binaire :roll:

Salut

Alors dans ce cas je te propose ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 function IsStringInBase2(s: string): boolean; var i: integer; begin result := true; for i := 1 to Length(s) do begin if (Copy(s, i, 1) <> '0') or (Copy(s, i, 1) <> '1') then begin result := False; exit; end; end; end;
La fonction te renvoie False si la chaine s ne représente pas un nombre binaire.

[edit]
VOIR code de SJRD mieux adapté au contexte plus bas.
[/edit]

Voiloù !
@+ Claudius

27/12/2006, 17h03
babou54

ca c'est gentil :mouarf:
27/12/2006, 17h23
banban54

bonsoir

pour en revenir à l'erreur du compilateur je pense qu'il faut remplacer

while not erreur and while i <= nbch do

par: while (not erreur) and (i <= nbch) do

à plus 54!

Claudius, utiliser Copy pour comparer un caractère : pas bien :nono:
Et je rajouterais un const dans les paramètres aussi ;)
Code:

1 2 3 4 5 6 7 8 function IsStringInBase2(const Str : string) : boolean; var I : integer; begin Result := False; for I := 1 to Length(Str) do if not (Str[i] in ['0'..'1']) then exit; Result := True; end;
Il est pas beau le code beaucoup plus court, plus lisible et plus efficace ? :mrgreen:

27/12/2006, 22h58
jmjmjm

Au risque de passer pour un ....
que signifie le in dans

Code:

if not (Str[i] in ['0'..'1']) then exit;

je ne l'ai jamais utiliser et ca m'intrigue :?

salut

pour le in cela permet de savoir si le caractere ce trouve dans l'ensemble 0,1
ce qui aurait pu s'ecrire [0,1] ;)
le code serait donc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function IsStringInBase2(const Str : string) : boolean;
var I : integer;
begin
   Result := True
   i := 0;  
   while  I <= pred(Length(Str)) and result do
   begin
     inc(i); 
      if (Str[i] in ['0','1']) then 
         Result := False;
   end;
end;

@+ Phil

28/12/2006, 00h04
Cl@udius

Citation:

Envoyé par sjrd

Claudius, utiliser Copy pour comparer un caractère : pas bien :nono:

Exact, mea culpa :oops: J'ai toujours du mal à avoir ce réflexe du S[i] pour extraire des caractères.

Ton code est évidemment beaucoup plus élégant ! :ccool:

@+ Claudius
28/12/2006, 00h07
Cl@udius

Citation:

Envoyé par jmjmjm

Au risque de passer pour un ....
que signifie le in dans

Code:

if not (Str[i] in ['0'..'1']) then exit;

je ne l'ai jamais utiliser et ca m'intrigue :?

Oh c'est tout bête ! Cela peut ce traduire littéralement par:
Si le Ième caractère ne fait pas partie de l'ensemble ['0'..'1'] alors...

IN est l'opérateur d'appartenance à un ensemble.

[edit] Ah Anapurna avait déjà répondu à ta question :oops: [/edit]

@+
28/12/2006, 12h13
jmjmjm

merci a vous deux je sens que ce "petit in" va devenir tres utile dans mes programmes :P