USES ComObj; |
Вопросы и ответы |
Поиск
Айдархан Каимов | Репутация: 100 (Кандидат)
25 февраля 2009 в 20:49
Тема: Программирование
Дмитрий Ковальчук | Репутация: 99 (Без статуса)
30 января 2009 в 11:28
Тема: Офисные технологии
Дмитрий Ковальчук | Репутация: 99 (Без статуса)
29 января 2009 в 18:11
Тема: Офисные технологии
Виктор Ряников | Репутация: 104 (Кандидат)
24 января 2009 в 22:40
Тема: Офисные технологии
Саша Фокин | Репутация: 95 (Без статуса)
22 января 2009 в 18:00
Тема: Офисные технологии
Александр Дишин | Репутация: 105 (Кандидат)
8 января 2009 в 14:07
Тема: Офисные технологии
Вадим Куликов | Репутация: 99 (Без статуса)
11 декабря 2008 в 08:30
Тема: Офисные технологии
Максим Емельянов | Репутация: 103 (Кандидат)
26 ноября 2008 в 12:08
Тема: Программирование
Татьяна Чубатая | Репутация: 100 (Кандидат)
24 ноября 2008 в 14:32
Тема: Офисные технологии
Шуламит Короб | Репутация: 100 (Кандидат)
23 ноября 2008 в 11:35
Тема: Программирование
Виолетта Ковальчук | Репутация: 101 (Кандидат)
20 ноября 2008 в 11:06
Тема: Офисные технологии
Светлана Гладкова | Репутация: 101 (Кандидат)
1 ноября 2008 в 01:58
Тема: Офисные технологии
Ирина Увяткина | Репутация: 93 (Без статуса)
28 октября 2008 в 15:26
Тема: Офисные технологии
Кирилл Чабан | Репутация: 103 (Кандидат)
14 октября 2008 в 19:38
Тема: Программирование
Елена Ерёмина | Репутация: 99 (Без статуса)
9 сентября 2008 в 16:53
Тема: Офисные технологии
Роман Белоус | Репутация: 140 (Кандидат)
28 июля 2008 в 11:47
Тема: Программирование
Владимир Олейник | Репутация: 105 (Кандидат)
4 июля 2008 в 11:32
Тема: Программирование
Ирина Баженова | Репутация: 116 (Кандидат)
23 июня 2008 в 14:12
Тема: Программирование
Артём Добрынин | Репутация: 98 (Без статуса)
19 июня 2008 в 11:04
Тема: Программирование
Ираида Демидова | Репутация: 99 (Без статуса)
16 июня 2008 в 16:26
Тема: Офисные технологии
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...