• Registered: 2015-06-10
  • Posts: 44

Topic: вывести количество в label1

как сделать чтобы в lable1 отображалось общее количество записей tablegrid1, только тех у которых пустой 3-й столбец.

2 Reply by Vitaly (edited by Vitaly 2016-05-08 14:01:17)

  • Registered: 2016-03-12
  • Posts: 73

Re: вывести количество в label1

Как-то так:

procedure Form1_OnShow (Sender: string; Action: string);
var
a: string;
begin
a := IntToStr (SQLExecute('SELECT count(id) FROM Table WHERE 3stolbec.Table IS NULL') );
Form1.Label1.Caption:= 'Общее количество записей: ' + a;
end;

Здесь:
id - идентификатор записи
Table - название таблицы (не путать с гридом)
3stolbec - название поля таблицы Table (которое является третьим столбцом в вашем гриде)
Вроде должно работать.

  • Registered: 2015-06-10
  • Posts: 44

Re: вывести количество в label1

работает но данные берутся из базы, а мне надо чтобы данные брались из грида.

  • Registered: 2015-06-10
  • Posts: 44

Re: вывести количество в label1

procedure Form1_Button24_OnClick (Sender: string; var Cancel: boolean);
var
   i,c,q: integer;
   s: string;
begin
      saverez.show;
     q := 0;
     c := Form1.tablegrid3.RowCount - 1;
     for i := 0 to c do
         if Form1.tablegrid3.Cells[3,i] = ''  then Inc(q);

     saverez.Label6.Caption := IntToStr(q);
end;

сделал так..вроде работает))