Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 151 стр.

  Шаг 2. Обработка события OnKeyPress компонента StringGrid.
  procedure TForm1.MassivKeyPress(Sender: TObject; var Key:
Char);
  begin
   case Key of
    #8,'0'..'9' : ; // можно ввести числа 0..9 и удалить
                     // предыдущий символ ( #8 – клавиша Backspace)
    #13:             // клавиша Enter
       if Massiv.Col < Massiv.ColCount-1
       then
          Massiv.Col := Massiv.Col + 1; // курсор устанавливается в
                                        // следующий столбец
       else
          key := Chr(0); // не обрабатывать нажатие других клавиш
   end;
  end;

  Шаг 3. Формирование массива из строк компонента StringGrid.
  Поместим этот код в обработчик события (например, OnClick –
щелчок по кнопке), который вызывается после заполнения ячеек
компонента StringGrid.
  for i:= 1 to N do
   if Length(Massiv.Cells[i-1, 0]) <>0
    then                                   // ячейка содержит
                                           // непустую строку
     a[i]:= StrToInt(Massiv.Cells[i-1,0]) // преобразуем строку
                                          // в число и
                                         // помещаем в массив
    else
     a[i] := 0; // пустая ячейка – значение элемента массива = 0
  Шаг 4. Выполнение приложения.
   После запуска приложения (вычисляет сумму значений элементов
массива, рисунок 9.15) щелкнем мышью в первой ячейке компонента


                                 150