• Registered: 2015-12-25
  • Posts: 211

Topic: Selecting a range from a value

Hey, i have this code:

procedure mainteste (Sender: string; Shift, Alt, Ctrl: boolean; X, Y: Integer);
var
existing_estado1_count : string;
existing_estado2_count : string;
existing_estado3_count : string;
existing_estado4_count : string;
existing_estado5_count : string;



begin
  existing_estado1_count := SQLExecute('SELECT COUNT(ID_estado) FROM assistencia WHERE upper(ID_ESTADO)=upper("1")');
  main.bxest1.Text := existing_estado1_count;
  existing_estado2_count := SQLExecute('SELECT COUNT(ID_estado) FROM assistencia WHERE upper(ID_ESTADO)=upper("2")');
  main.bxest2.Text := existing_estado2_count;
  existing_estado3_count := SQLExecute('SELECT COUNT(ID_estado) FROM assistencia WHERE upper(ID_ESTADO)=upper("3")');
  main.bxest3.Text := existing_estado3_count;
  existing_estado4_count := SQLExecute('SELECT COUNT(ID_estado) FROM assistencia WHERE upper(ID_ESTADO)=upper("4")');
  main.bxest4.Text := existing_estado4_count;
  existing_estado5_count := SQLExecute('SELECT COUNT(ID_estado) FROM assistencia WHERE upper(ID_ESTADO)=upper("5")');
  main.bxest5.Text := existing_estado5_count;
 if main.bxest1.value >3 then main.bxest1.Color := clred else main.bxest1.color := clwhite;
  if main.bxest2.value > 30 then main.bxest2.Color := clred else  main.bxest2.Color := clwhite;
   if main.bxest3.value > 30 then main.bxest3.Color := clred else  main.bxest3.Color := clwhite;
    if main.bxest4.value > 30 then main.bxest4.Color := clred else  main.bxest4.Color := clwhite;
     if main.bxest5.value > 30 then main.bxest5.Color := clred else  main.bxest5.Color := clwhite;

 end;

it's working fine, when i get a value above 3 or 30 the box changes color red, but i want to make this a range, for example from 0-3 white, from 3-6 yellow, >6 red
what would the best aproach be?
many thanks

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Selecting a range from a value

Example:

 if (main.bxest1.value >= 0) and (main.bxest1.value <= 3) then main.bxest1.Color := clWhite;
 if (main.bxest1.value >= 4) and (main.bxest1.value <= 6) then main.bxest1.Color := clYellow;
 if (main.bxest1.value > 6) then main.bxest1.Color := clRed;
Dmitry.
  • Registered: 2015-12-25
  • Posts: 211

Re: Selecting a range from a value

makes sence! thanks once again! big_smile