Bonjour,

J'ai un problème avec un array of boolean.
Si je lis cet array sous windows, ca fonctionne sans soucis. Il me met tous les switches sur on, lesquelles son True dans l´array.
Par contre, si je le compile pour android, ca ne foncionne pas (il me met rien sur on) et je n´ai pas de message d´erreur

voici mon code:
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
procedure TfrmMain.SetPortOn;
Var
     i:integer;
begin
 
  //Switch1.Enabled := False;
 {  Switch1.OnClick := nil;
   Switch2.OnClick := nil;
   Switch3.OnClick := nil;
   Switch4.OnClick := nil;
   Switch5.OnClick := nil;
   Switch6.OnClick := nil;
   Switch7.OnClick := nil;
   Switch8.OnClick := nil;
  }
 
   for i := 0 to 7 do
           case i of
 
              0: Begin
                 if Portstate[i] then
                    Switch1.IsChecked :=True;
                 End;
 
              1: Begin
                 if Portstate[i] then
                    Switch2.IsChecked :=True;
                 End;
 
              2: Begin
                 if Portstate[i] then
                    Switch3.IsChecked :=True;
                 End;
              3: Begin
                 if Portstate[i] then
                    Switch4.IsChecked :=True;
                 End;
 
              4: Begin
                 if Portstate[i] then
                    Switch5.IsChecked :=True;
                 End;
 
              5: Begin
                 if Portstate[i] then
                     Switch6.IsChecked :=True;
                 End;
 
              6: Begin
                 if Portstate[i] then
                    Switch7.IsChecked :=True;
                 End;
 
              7: Begin
                 if Portstate[i] then
                    Switch8.IsChecked :=True;
                 End;
 
           end;
          //Memo1.Lines.Add('Port:'+IntToStr(i));
  end;