; var Key: Char); ((not (key in [0 ". '9 '])) And (key <> # 8)) then key: = # 0; (StringGRid1. Col = StringGrid1. ColCount-1) and (StringGRid1. Row = StringGrid1. RowCount-1) then: = # 0;; TForm1. StringGrid1GetEditText (Sender: TObject; ACol,: Integer; var Value: String);
var: HWND;// покажчик на дескриптор вікна// handle це індефікатор об'єкту 'покажчик'
h: = GetTopWindow ((Sender as TStringGrid). Handle);// h присвоюємо handle компонента stringgridh <> 0 then (h). Perform (EM_SETLIMITTEXT, 5, 0);// знаходимо handle і встановлюємо max кількість символів 5
end; TForm1. SpinEdit1Change (Sender: TObject);, j, rc, cc: integer;: = StringGrid1. RowCount;// рядки: = StringGrid1. ColCount;// столбциi: = 1 to cc doj: = 1 to rc do. Cells [i, j]: ='';// очищаємо таблицю
StringGrid1. ColCount: = SpinEdit1. Value +2;// збільшуємо кількість стовпців
StringGrid1. Cells [StringGrid1. ColCount-2, 0]: = 'A' + IntToStr (StringGrid1. ColCount-2);// призначаємо ім'я колонки. Cells [StringGrid1. ColCount-1, 0]: = 'Виробники';// призначаємо ім'я останнього стовпця. Cells [StringGrid1. ColCount-1, StringGrid1. RowCount-1]: = 'A';// призначаємо ім'я таблиці
end;
procedure TForm1. SpinEdit2Change (Sender: TObject);, j, rc, cc: integer;: = StringGrid1. RowCount;// рядки: = StringGrid1. ColCount;// столбциi: = 1 to cc-1 doj: = 1 to rc do. Cells [i, j]: ='';// очищаємо таблицю
StringGrid1. RowCount: = SpinEdit2. Value +2;// збільшуємо кількість рядків
StringGrid1. Cells [0, StringGrid1. RowCount-2]: = 'B' + IntToStr (StringGrid1. RowCount-2);// призначаємо ім'я рядка. Cells [0, StringGrid1. RowCount-1]: = 'Споживачі';// призначаємо ім'я останнього рядка. Cells [StringGrid1. ColCount-1, StringGrid1. RowCount-1]: = 'A';// призначаємо ім'я таблиці
end;
procedure TForm1. SpinEdit1KeyPress (Sender: TObject; var Key: Char);: = # 0;; TForm1. SpinEdit2KeyPress (Sender: TObject; var Key: Char);: = # 0;; TForm1. Button2Click (Sender: TObject); ('Автором цієї програми являеться студент групи ПЗ-305' + # 13 # 10 + 'УГК імені І.І. Ползунова - - Іщенко Євген');
end;.
