Discussion :

[babou54]

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

Code :

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

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

[PadawanDuDelphi]

Salut,

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

@+.

[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

[babou54]

ok ok merci ! jessai

[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

[Cl@udius]

Salut

Alors dans ce cas je te propose 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
 
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

[babou54]

ca c'est gentil

[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!

[sjrd]

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

Code :

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

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 ?