Табличне подання даних

  

Компонент StringGrid призначений для відображення та зберігання текстової інформації у вигляді таблиці. Розташований він на вкладці Additional Палітри компонентів:

 

Таблиця – двомірне подання даних, упорядковане по стовпчикам та рядкам. Таблиці, зазвичай, мають заголовки. У зв'язку з цим таблиці поділяються на дві частини: фіксовану та робочу . Робоча частина може містити довільну кількість рядків та стовпців. Якщо вона не міститься в межах компонента, то в нього автоматично вбудовуються смуги прокручування.

Табличне подання можна використовуватиме введення та виведення даних, тобто. вміст комірок можна редагувати.

У Delphi використовуються два компоненти для представлення даних у вигляді таблиці: TStringGrid та TDrawGrid.

Матеріал посилання 1

                посилання 2

приклад коду:

begin

     Label1.Caption:=IntToStr(ACol);

     Label2.Caption:=IntToStr(ARow);

     if ACol=4 Then

        begin

          StringGrid1.Options:=StringGrid1.Options-[goEditing];

          label3.Caption:='заборона  редагування'

        end

              Else

        begin

          StringGrid1.Options:=StringGrid1.Options+[goEditing]; //встановимо редагування

          label3.Caption:='редагування'

        end;

     // StringGrid1.Cells[4,Arow]:=intToStr(StrToInt(StringGrid1.Cells[1,Arow]));//+StrToInt(StringGrid1.Cells[2,Arow])) ;

end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

  var ACol,ARow:integer;

begin

   StringGrid1.MouseToCell(x,y,ACol,ARow); //отримуємо координати

   StringGrid1.Col:=ACol;

   StringGrid1.Row:=ARow;

   Label1.Caption:=IntToStr(Acol);  //для себе для орієнтування вибору колонки

   Label2.Caption:=IntToStr(ARow);  //для себе для орієнтування вибору рядка

    if StringGrid1.Col=4 Then

        begin

          StringGrid1.Options:=StringGrid1.Options-[goEditing];

          label3.Caption:='нет редактирования'

        end

              Else

        begin

          StringGrid1.Options:=StringGrid1.Options+[goEditing]; //встановимо редагування

          label3.Caption:='редактирования'

        end;

end;