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
| procedure TForm1.Timer1Timer(Sender: TObject);
var j:integer;
begin
if i<Length(txt1)+5 then
begin
LEDNumber1.Caption:=copy(txt1,1,i);
j:=i;
end
else if i<2*Length(txt1)-5 then
begin
LEDNumber1.Caption:=copy(txt2,3,j);
txt2:=LEDNumber1.Caption;
end
else
begin
i:=0;
if txt1='3 PRODUITS EN PROCHE PEREMPTION' then
begin
txt1:='6 DISTRIBUTEURS NON SOLDES';
LEDNumber1.OnColor:=ClLime ;
end
else if txt1='6 DISTRIBUTEURS NON SOLDES' then
begin
txt1:='8 FACTURES NON REGLES';
LEDNumber1.OnColor:=ClRed ;
end
else if txt1='8 FACTURES NON REGLES' then
begin
txt1:='3 PRODUITS EN PROCHE PEREMPTION';
LEDNumber1.OnColor:=ClYellow ;
end;
txt2:=txt1;
end;
i:=i+1;
end; |
Partager