Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
uncoe
0 / 0 / 0
Регистрация: 02.06.2014
Сообщений: 1
#1

Stringgrid цикл! - Delphi

06.06.2014, 09:00. Просмотров 388. Ответов 3
Метки нет (Все метки)

Помогите перевести в цикл данный код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
with StringGrid1 do
    cells[3,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[3,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[3, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[3, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[3, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[3, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[3, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[3, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[3, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[3, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[3, 10])
      );
      with StringGrid1 do
    cells[4,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[4,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[4, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[4, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[4, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[4, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[4, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[4, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[4, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[4, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[4, 10])
      );
      with StringGrid1 do
    cells[5,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[5,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[5, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[5, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[5, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[5, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[5, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[5, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[5, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[5, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[5, 10])
      );
      with StringGrid1 do
    cells[6,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[6,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[6, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[6, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[6, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[6, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[6, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[6, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[6, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[6, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[6, 10])
      );
      with StringGrid1 do
    cells[7,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[7,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[7, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[7, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[7, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[7, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[7, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[7, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[7, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[7, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[7, 10])
      );
      with StringGrid1 do
    cells[8,11] := FormatFloat(  '',
      (StrToFloat(cells[2,1]) * StrToFloat(cells[8,1]))
      +StrToFloat(cells[2, 2]) * StrToFloat(cells[8, 2])
      +StrToFloat(cells[2, 3]) * StrToFloat(cells[8, 3])
      +StrToFloat(cells[2, 4]) * StrToFloat(cells[8, 4])
      +StrToFloat(cells[2, 5]) * StrToFloat(cells[8, 5])
      +StrToFloat(cells[2, 6]) * StrToFloat(cells[8, 6])
      +StrToFloat(cells[2, 7]) * StrToFloat(cells[8, 7])
      +StrToFloat(cells[2, 8]) * StrToFloat(cells[8, 8])
      +StrToFloat(cells[2, 9]) * StrToFloat(cells[8, 9])
      +StrToFloat(cells[2, 10]) * StrToFloat(cells[8, 10])
      );
 
 
   end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2014, 09:00
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Stringgrid цикл! (Delphi):

Delphi 7 Stringgrid Нужно сделать цикл для заполнения Stringgrid данными из другого Stringgrid - Delphi
Нужно чтобы из Stringgrid1 данные переносились в Stringgrid2 Но ТОЛЬКО ПО УСЛОВИЮ Таблицы Stringgrid2 На рис всё показано. За работающий...

Цикл и StringGrid - Delphi
Здравствуйте, помогите реализовать такую штуку: В стринггрид вводятся данные, сам стринггрид с заголовками, если сумма 1-ой строки не...

Цикл в Stringgrid - Delphi
Ребята помогите пожалуйста. У меня есть вот такой цикл, где выскакивает ошибка по условию выхода из цикла. Что делать: for r:= 1 to...

Цикл на вычисления в StringGrid - Delphi
Вот код, в котором я вычисляю с помощбю данных из ячеек ОДНОЙ СТРОКИ sringgrid и результат вношу в другую ячейку ЭТОЙ ЖЕ СТРОКИ. ...

Цикл из множества StringGrid - Delphi
Есть код: //--------------------------------------------------------------------------- ...

Заполнение StringGrid через цикл - Delphi
Здравствуйте! Сделал программу которая делает заполнение таблицы StrinGrid1 по циклу: 1) Находит на WebBrowser: тег <span> и класс:...

3
long399
152 / 152 / 75
Регистрация: 16.10.2013
Сообщений: 725
Записей в блоге: 3
06.06.2014, 13:51 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject); 
var i:integer;
m:real;
begin
m:=0;
    
for i:=1 to 10 
m+(StrToFloat(Stringgrid1.cells[2,i]) * StrToFloat(Stringgrid1cells[3,i]);
Stringgrid1cells[3,11] := FormatFloat(  '', m);
 
// переделал для первого блока суммы произведений. Делал прям тут, мог где-то ошибиться. 
// Для остальных переделаете сами
   end;
0
Puporev
Модератор
52849 / 40660 / 13914
Регистрация: 18.05.2008
Сообщений: 94,386
06.06.2014, 13:57 #3
Строка 9 m:=m+....
1
long399
152 / 152 / 75
Регистрация: 16.10.2013
Сообщений: 725
Записей в блоге: 3
06.06.2014, 14:06 #4
Цитата Сообщение от Puporev Посмотреть сообщение
Строка 9 m:=m+....
Да точняк.
Delphi
1
m:=m+(StrToFloat(Stringgrid1.cells[2,i]) * StrToFloat(Stringgrid1cells[3,i]);
Еще после нахождения для каждого из этих блоков суммы произведений обнуляйте m.
Delphi
1
2
Stringgrid1cells[3,11] := FormatFloat(  '', m);
m:=0;
Далее все делается аналогично.
0
06.06.2014, 14:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2014, 14:06
Привет! Вот еще темы с ответами:

Необходимо сложить ячейки в столбце Stringgrid и вывести в другой Stringgrid - Delphi
Необходимо сложить ячейки в столбце Stringgrid и вывести в другой Stringgrid Количество столбцов и строк задается пользователем

Содержимое выделенной строки из первого StringGrid-а перенести во второй StringGrid - Delphi
Нужно написать программу которая выполняет следующие действия. Есть два StringGrid. По нажатия на кнопку, Содержимое выделенной строки из...

Значение одной ячейки первого StringGrid-а присвоить другой ячейке второго StringGrid-а - Delphi
скажите пожалуйста, вот нам даны две таблицы stringgrid, как значение одной ячейки,первой таблицы, присвоить другой ячейке второй таблице?

Перенос столбца(информации) из StringGrid в другой StringGrid - Delphi
Не могу разобраться с тем, как перенести значения(нажатием кнопки "записать") выданные программой в 1 таблице,из крайнего столбца, во 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.