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
|
u: array [0 .. 7] of TSwitch; //pour info declaré public
//pour info u est assigné dans FormCreate
u[0] := Switch1;
u[1] := Switch2;
u[2] := Switch3;
u[3] := Switch4;
u[4] := Switch5;
u[5] := Switch6;
u[6] := Switch7;
u[7] := Switch8;
Edit: PortState0: array [0 .. 7, 0 .. 7] of Boolean; //aussi declaré public
Function SetPortOn(value: Integer): string;
Var
I, X, Y: Integer;
OldState: TNotifyEvent;
begin
for X := 0 to 7 do
if frmMain.PortState0[value][X] then
begin
OldState := frmMain.u[X].OnClick;
frmMain.u[X].OnClick := nil;
frmMain.u[X].IsChecked := True;
frmMain.u[X].OnClick := OldState;
End
else if frmMain.PortState0[value][X] = False then
begin
OldState := frmMain.u[X].OnClick;
frmMain.u[X].OnClick := nil;
frmMain.u[X].IsChecked := False;
frmMain.u[X].OnClick := OldState;
End;
end; |
Partager