Topic: как правельно?
как правельно записать условие?
procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
i, cR : integer;
begin
cR := Form1.TableGrid1.RowCount-1;
for i := 0 to cR do
begin
If (SQLExecute('SELECT online FROM users WHERE id='+Form1.TableGrid1.Cell[1,i])='1') then Form1.TableGrid1.Cell[1,i].Color:=clMaroon else Form1.TableGrid1.Cell[1,i].Color:=clGreen;
end;
end;