Topic: PROBLEM previous action keept
Hello, I have a problem can you help me.
when i click the field from the table grid
The problem that i create a query to check if the boolean result is true button enabled else button disabled
VALIDATOR.Edit27.Value := strtoint(d1) ;
VALIDATOR.Edit28.Value := strtoint(s1) ;
if strtoint(d1)= strtoint(s1) then
begin
validator.Button2.Enabled := false;
end;
VALIDATOR.Edit29.Value := strtoint(d2) ;
VALIDATOR.Edit30.Value := strtoint(s2) ;
if strtoint(d2)= strtoint(s2) then
begin
validator.Button3.Enabled := false;
end;
VALIDATOR.Edit31.Value := strtoint(d3) ;
VALIDATOR.Edit32.Value := strtoint(s3) ;
if strtoint(d3)= strtoint(s3) then
begin
validator.Button4.Enabled := false;
end;
VALIDATOR.Edit33.Value := strtoint(d4) ;
VALIDATOR.Edit34.Value := strtoint(s4) ;
if strtoint(d4)= strtoint(s4) then
begin
validator.Button5.Enabled := false;
end;
VALIDATOR.Edit35.Value := strtoint(d5) ;
VALIDATOR.Edit36.Value := strtoint(s5) ;
if strtoint(d5)= strtoint(s5) then
begin
validator.Button6.Enabled := false;
end;
VALIDATOR.Edit37.Value := strtoint(d6) ;
VALIDATOR.Edit38.Value := strtoint(s6) ;
if strtoint(d6)= strtoint(s6) then
begin
validator.Button7.Enabled := false;
end;
VALIDATOR.Edit39.Value := strtoint(d7) ;
VALIDATOR.Edit40.Value := strtoint(s7) ;
if strtoint(d7)= strtoint(s7) then
begin
validator.Button8.Enabled := false;
end;
VALIDATOR.Edit41.Value := strtoint(d8) ;
VALIDATOR.Edit42.Value := strtoint(s8) ;
if strtoint(d8)= strtoint(s8) then
begin
validator.Button9.Enabled := false;
end;
VALIDATOR.Edit43.Value := strtoint(d9) ;
VALIDATOR.Edit44.Value := strtoint(s9) ;
if strtoint(d9)= strtoint(s9) then
begin
validator.Button10.Enabled := false;
end;
VALIDATOR.Edit45.Value := strtoint(d10) ;
VALIDATOR.Edit46.Value := strtoint(s10) ;
if strtoint(d10)= strtoint(s10) then
begin
validator.Button11.Enabled := false;
end;