Discussion :

[avogadro]

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

Code :

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

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 :

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

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???

[Tardiff Jean-François]

Bonjour,


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

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

[Harry]

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

Edit : (Zut grillé par TJF)

[Ben_Le_Cool]

Tu oublies des parentheses fermantes. Essaie ceci

Code :

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

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

[avogadro]

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

Code :

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

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 :

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

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

[tourlourou]

Code :

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

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)