FMX Android - Array of boolean
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 :calim2:
voici mon code:
Code:
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; |