USES ComObj; |
Вопросы и ответы |
Поиск
Айдархан Каимов | Репутация: 100 (Кандидат)
25 февраля 2009 в 20:49
Тема: Программирование
Soe Ye | Репутация: 100 (Кандидат)
27 января 2009 в 15:58
Тема: Базы данных
Alexnder Konash | Репутация: 101 (Кандидат)
10 декабря 2008 в 16:43
Тема: Базы данных
Максим Емельянов | Репутация: 103 (Кандидат)
26 ноября 2008 в 12:08
Тема: Программирование
Шуламит Короб | Репутация: 100 (Кандидат)
23 ноября 2008 в 11:35
Тема: Программирование
Александр Дишин | Репутация: 105 (Кандидат)
6 ноября 2008 в 08:29
Тема: Базы данных
Кирилл Чабан | Репутация: 103 (Кандидат)
14 октября 2008 в 19:38
Тема: Программирование
Юлия Лысенко | Репутация: 101 (Кандидат)
14 октября 2008 в 09:59
Тема: Базы данных
Екатерина Шпак | Репутация: 138 (Кандидат)
20 сентября 2008 в 15:02
Тема: Базы данных
Сергей Сциборций | Репутация: 106 (Кандидат)
7 августа 2008 в 18:42
Тема: Базы данных
Роман Белоус | Репутация: 140 (Кандидат)
28 июля 2008 в 11:47
Тема: Программирование
Владимир Олейник | Репутация: 105 (Кандидат)
4 июля 2008 в 11:32
Тема: Программирование
Ирина Баженова | Репутация: 116 (Кандидат)
23 июня 2008 в 14:12
Тема: Программирование
Тимофей Купцов | Репутация: 101 (Кандидат)
20 июня 2008 в 11:06
Тема: Базы данных
Артём Добрынин | Репутация: 98 (Без статуса)
19 июня 2008 в 11:04
Тема: Программирование
Константин Иванов | Репутация: 608 (Специалист)
13 июня 2008 в 18:40
Тема: Базы данных
Ирина Малахова | Репутация: 99 (Без статуса)
11 июня 2008 в 14:13
Тема: Программирование
Mikhail Borisov | Репутация: 102 (Кандидат)
10 июня 2008 в 08:22
Тема: Программирование
Александр Яценко | Репутация: 101 (Кандидат)
9 июня 2008 в 22:56
Тема: Базы данных
Александр Васильев | Репутация: 100 (Кандидат)
9 июня 2008 в 21:25
Тема: Базы данных
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...