USES ComObj; |
Вопросы и ответы |
Поиск
Айдархан Каимов | Репутация: 100 (Кандидат)
25 февраля 2009 в 20:49
Тема: Программирование
User User | Репутация: 123 (Кандидат)
28 января 2009 в 00:25
Тема: Интернет-технологии
Виктор Ряников | Репутация: 104 (Кандидат)
25 января 2009 в 16:44
Тема: Интернет-технологии
Екатерина Гладкова | Репутация: 104 (Кандидат)
23 декабря 2008 в 16:11
Максим Емельянов | Репутация: 103 (Кандидат)
26 ноября 2008 в 12:08
Тема: Программирование
Шуламит Короб | Репутация: 100 (Кандидат)
23 ноября 2008 в 11:35
Тема: Программирование
User User | Репутация: 123 (Кандидат)
21 ноября 2008 в 09:57
Тема: Интернет-технологии
Константин Иванов | Репутация: 608 (Специалист)
16 ноября 2008 в 08:37
Тема: Интернет-технологии
Алексей Макеев | Репутация: 102 (Кандидат)
6 ноября 2008 в 13:52
Валентина Багаева | Репутация: 104 (Кандидат)
31 октября 2008 в 01:14
Виктория Бармина | Репутация: 99 (Без статуса)
25 октября 2008 в 22:38
Кирилл Чабан | Репутация: 103 (Кандидат)
14 октября 2008 в 19:38
Тема: Программирование
Елена Дашевская | Репутация: 107 (Кандидат)
4 октября 2008 в 14:09
Valerijus Stachovskis | Репутация: 133 (Кандидат)
23 августа 2008 в 13:10
Тема: Интернет-технологии
Роман Белоус | Репутация: 140 (Кандидат)
28 июля 2008 в 11:47
Тема: Программирование
Олег Тузов | Репутация: 122 (Кандидат)
8 июля 2008 в 01:45
Тема: Интернет-технологии
Владимир Олейник | Репутация: 105 (Кандидат)
4 июля 2008 в 11:32
Тема: Программирование
Ирина Баженова | Репутация: 116 (Кандидат)
23 июня 2008 в 14:12
Тема: Программирование
Денис Ефремов | Репутация: 100 (Кандидат)
22 июня 2008 в 15:50
Тема: Интернет-технологии
Артём Добрынин | Репутация: 98 (Без статуса)
19 июня 2008 в 11:04
Тема: Программирование
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...