Topic: Подскажите пример суммы

Требуется дернуть значения из таблицы (определенного столбца), по кнопке, и сумму поместить в текстовое поле.

Re: Подскажите пример суммы

FORMx.buttonX.Caption := FORMx.tablegridX.Cells[column,row];
On a clear disk you can seek forever

3 (edited by vit007 2020-10-26 18:59:39)

Re: Подскажите пример суммы

procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
    i,cR : integer;   
begin
    cR := Form1.TableGrid1.RowCount - 1;
   
    for i := 0 to cR do
    begin
        Form1.Edit1.Text := Form1.TableGrid1.Cell[0,i];
    end;   
end;

Так работать не хочет sad

Re: Подскажите пример суммы

Hi Vit007,
В приложении приведены примеры того, как брать значения из таблицы и помещать их в поля редактирования.
Может это поможет.
Derek.
.
In the attachment, there are examples of how to take values from the tablegrid and place them into edit fields.

Post's attachments

Attachment icon vit007.zip 337.94 kb, 250 downloads since 2020-10-26 

Re: Подскажите пример суммы

Отличный пример, сп. derek.

6 (edited by CDB 2020-10-27 07:26:43)

Re: Подскажите пример суммы

vit007


You used Form1.TableGrid1.CELL[0,i], the example code used Form1.TableGrid1.CELLS[0,i] - important difference.


Вы использовали Form1.TableGrid1.CELL[0, i], в примере кода использовалась Form1.TableGrid1. CELLS[0, i] - важное отличие.

On a clear disk you can seek forever

Re: Подскажите пример суммы

Угу, сп.