if imbriqué impossible /!\ string et boolean

Version imprimable

bonjour, mon if ne passe pas et je ne sais pas comment régler ce pb :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
if ( Memo1.Lines.Strings[0] < IntToStr(256)) and (Memo1.Lines.Strings[0] > IntToStr(0))
and (Memo1.Lines.Strings[1] < IntToStr(256) and (Memo1.Lines.Strings[1] >= IntToStr(0))
and (Memo1.Lines.Strings[2] < IntToStr(256) and (Memo1.Lines.Strings[2] >= IntToStr(0))
and (Memo1.Lines.Strings[3] < IntToStr(256) and (Memo1.Lines.Strings[3] > IntToStr(0)) then
begin
 (Sender as TEdit).Color := clWhite;
 BitBtn1.Enabled := true;
end
else
begin
 (Sender as TEdit).Color := clRed;
 BitBtn1.Enabled := false;
end;

et je reçois ces erreurs :

Code:

1
2
3
[Erreur] Unit2.pas(662): Types incompatibles : 'String' et 'Boolean'
[Erreur] Unit2.pas(663): Types incompatibles : 'String' et 'Boolean'
[Erreur] Unit2.pas(663): Types incompatibles : 'String' et 'Boolean'

why??? 8O 8O

Bonjour,

A prioris il manque des parenthèse fermante (voire les ???)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
if 
( Memo1.Lines.Strings[0] < IntToStr(256)) // OK
and 
(Memo1.Lines.Strings[0] > IntToStr(0))  // OK
and 
(Memo1.Lines.Strings[1] < IntToStr(256) //  ???
and 
(Memo1.Lines.Strings[1] >= IntToStr(0)) // OK
and 
(Memo1.Lines.Strings[2] < IntToStr(256) // ???
and 
(Memo1.Lines.Strings[2] >= IntToStr(0)) // OK
and 
(Memo1.Lines.Strings[3] < IntToStr(256) // ???
and 
(Memo1.Lines.Strings[3] > IntToStr(0)) // OK

04/05/2006, 15h46
Harry

T'as pas oublié des parenthèses à partir de la deuxième ligne ? :aie:

Edit : (Zut grillé par TJF)

Tu oublies des parentheses fermantes. Essaie ceci

Code:

1
2
3
4
5
6
 
 
if ( Memo1.Lines.Strings[0] < IntToStr(256)) and (Memo1.Lines.Strings[0] > IntToStr(0))
and (Memo1.Lines.Strings[1] < IntToStr(256)) and (Memo1.Lines.Strings[1] >= IntToStr(0))
and (Memo1.Lines.Strings[2] < IntToStr(256)) and (Memo1.Lines.Strings[2] >= IntToStr(0))
and (Memo1.Lines.Strings[3] < IntToStr(256)) and (Memo1.Lines.Strings[3] > IntToStr(0)) then

Edit: Grrr grille deux fois ;)

niquel mais mon if a parfois des problème, si par exemple je met 250.5.5.5 il est faux :s

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
      if ( (Memo1.Lines.Strings[0] > IntToStr(0)) and (Memo1.Lines.Strings[0] < IntToStr(256)) ) then
         if ( (Memo1.Lines.Strings[1] >= IntToStr(0)) and (Memo1.Lines.Strings[1] < IntToStr(256)) ) then
            if ( (Memo1.Lines.Strings[2] >= IntToStr(0)) and (Memo1.Lines.Strings[2] < IntToStr(256)) ) then
              if ( (Memo1.Lines.Strings[3] >= IntToStr(0)) and (Memo1.Lines.Strings[3] < IntToStr(256)) ) then
      begin
        (Sender as TEdit).Color := clWhite;
        BitBtn1.Enabled := true;
      end
      else
      begin
        (Sender as TEdit).Color := clRed;
        BitBtn1.Enabled := false;
      end;
     end;

de même avec

Code:

1
2
3
4
if ( Memo1.Lines.Strings[0] < IntToStr(256)) and (Memo1.Lines.Strings[0] > IntToStr(0))
and (Memo1.Lines.Strings[1] < IntToStr(256)) and (Memo1.Lines.Strings[1] >= IntToStr(0))
and (Memo1.Lines.Strings[2] < IntToStr(256)) and (Memo1.Lines.Strings[2] >= IntToStr(0))
and (Memo1.Lines.Strings[3] < IntToStr(256)) and (Memo1.Lines.Strings[3] > IntToStr(0)) then

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 with Memo1 do if ( StrToInt(Lines[0]) in [1..255] ) and ( StrToInt(Lines[1]) in [0..255] ) and ( StrToInt(Lines[2]) in [0..255] ) and ( StrToInt(Lines[3]) in [0..255] ) then begin (Sender as TEdit).Color := clWhite; BitBtn1.Enabled := true; end else begin (Sender as TEdit).Color := clRed; BitBtn1.Enabled := false; end;
pour faire moins de conversions (si on n'est pas sûr d'avoir des entiers, utiliser StrToIntDef ou TryStrToIntDef avec -1 comme valeur par défaut, pour ne pas vérifier la condition)