USES ComObj; |
Вопросы и ответы |
Поиск
Айдархан Каимов | Репутация: 100 (Кандидат)
25 февраля 2009 в 20:49
Тема: Программирование
Марина Иванченко | Репутация: 100 (Кандидат)
25 февраля 2009 в 19:58
Тема: Сетевые технологии
Андрей Сиденко | Репутация: 101 (Кандидат)
25 февраля 2009 в 11:55
Тема: Аппаратное обеспечение
Владимир Месерман | Репутация: 103 (Кандидат)
14 февраля 2009 в 23:00
Олег Забайдуллин | Репутация: 99 (Без статуса)
12 февраля 2009 в 22:18
Тема: Операционные системы
Олег Серебряков | Репутация: 103 (Кандидат)
12 февраля 2009 в 17:52
Вячеслав Ш | Репутация: 101 (Кандидат)
11 февраля 2009 в 11:59
Тема: Образование
Олег Серебряков | Репутация: 103 (Кандидат)
10 февраля 2009 в 17:19
Тема: Программирование
Александр Лобач | Репутация: 101 (Кандидат)
5 февраля 2009 в 13:55
Юрий Воронин | Репутация: 100 (Кандидат)
4 февраля 2009 в 22:13
Тема: Операционные системы
Николай Калачев | Репутация: 103 (Кандидат)
4 февраля 2009 в 14:31
Саша Фокин | Репутация: 95 (Без статуса)
1 февраля 2009 в 18:44
Тема: Безопасность
Дмитрий Ковальчук | Репутация: 99 (Без статуса)
30 января 2009 в 11:28
Тема: Офисные технологии
Дмитрий Ковальчук | Репутация: 99 (Без статуса)
29 января 2009 в 18:11
Тема: Офисные технологии
Сергей Дахновский | Репутация: 92 (Без статуса)
29 января 2009 в 11:08
User User | Репутация: 123 (Кандидат)
28 января 2009 в 00:25
Тема: Интернет-технологии
Макс Фрай | Репутация: 99 (Без статуса)
28 января 2009 в 00:25
Soe Ye | Репутация: 100 (Кандидат)
27 января 2009 в 15:58
Тема: Базы данных
Марат Хафизов | Репутация: 103 (Кандидат)
25 января 2009 в 22:15
Тема: Безопасность
Виктор Ряников | Репутация: 104 (Кандидат)
25 января 2009 в 16:44
Тема: Интернет-технологии
USES ... , OLEAuto;...PROCEDURE TForm1.Button1Click(Sender: TObject);var MSExcel:Variant;j,Sum:integer;BEGINStringGrid1.FixedCols:=0;StringGrid1.FixedRows:=StringGrid1.FixedCols;StringGrid1.ColCount:=1;StringGrid1.RowCount:=StringGrid1.ColCount*6;MSExcel:=GetActiveOleObject('Excel.Application');Sum:=0;for j:=1 to 5 do beginStringGrid1.Cells[0,j-1]:=MSExcel.Application.ActiveSheet.Cells[j, 1].Text;Sum:=Sum+strtoint(MSExcel.Application.ActiveSheet.Cells[j, 1].Text);end;StringGrid1.Cells[0,j-1]:=inttostr(Sum);MSExcel.Application.ActiveSheet.Cells[j, 1]:=StringGrid1.Cells[0,j-1];END;... Подсчитывает и выводит сумму пяти чисел по столбцу.PS На форме: TStringGrid и TButton...