• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

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;
  • Registered: 2018-03-04
  • Posts: 377

Re: как правельно?

У меня работает так

if frmNote.Memo1.Text = '' then
    begin
        frmNote.Button9.Enabled := True;
        frmNote.Button10.Enabled := False
    end else
    if frmNote.Memo1.Text <> '' then
    begin
        frmNote.Button9.Enabled := False;
        frmNote.Button10.Enabled := True
    end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: как правельно?

лучше сделать так

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='+IntToStr(Form1.TableGrid1.dbIndexToID(i)))='1') then Form1.TableGrid1.Cell[1,i].Color:=clMaroon else Form1.TableGrid1.Cell[1,i].Color:=clGreen;

  end;
end;
Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: как правельно?

Спасибо