РАБОТА С ТАБЛИЦАМИ
String. Grid вкладка Additional Основные свойства Col. Count, Row. Count типа Longint Scroll. Bars типа TScroll. Style ss. None – нет полос; ss. Horizontal – в таблицу вставляется горизонтальная полоса; ss. Vertical – вставляется вертикальная полоса; ss. Both – вставляются обе полосы.
Fixed. Cols, Fixed. Rows типа Integer Fixed. Color , Color типа TColor Cells[ACol, ARow: Integer] типа String
Произведение матриц
procedure TForm 1. Edit 1 Change(Sender: TObject); var i: integer; begin i: =Str. To. Int(Edit 1. text) ; a. Col. Count: =i; a. Row. Count: =i; b. Col. Count: =i; b. Row. Count: =i; c. Col. Count: =i; c. Row. Count: =i; for i: =1 to a. Col. Count do begin a. Cells[0, i]: =Int. To. Str(i); b. Cells[0, i]: =Int. To. Str(i); c. Cells[0, i]: =Int. To. Str(i); a. Cells[i, 0]: =Int. To. Str(i); b. Cells[i, 0]: =Int. To. Str(i); c. Cells[i, 0]: =Int. To. Str(i); end;
Options go. Editing = true для матриц А и В Options go. Editing = false для матрицы C Fixed. Cols =1 Fixed. Rows =1 Name=a Name=b Name=c
procedure TForm 1. Button 2 Click(Sender: TObject); var i, j, k, n, s: integer; begin n: = a. Col. Count-1; for i: =1 to n do for j: =1 to n do begin s: =0; for k: =1 to n do s: =s+Str. To. Int(a. Cells[k, i])* Str. To. Int(b. Cells[j, k]); c. Cells[j, i]: =Int. To. Str(s); end;
Скачать презентацию РАБОТА С ТАБЛИЦАМИ String Grid вкладка Additional
таблицы.pptx