Зеленый человек
Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев
Репутация: 2
Всего: 8
|
| Цитата(programmer123 @ 9.6.2008, 22:41) | | Код |
1. procedure TForm1.Button2Click(Sender: TObject);
2. var obprod,chak,oborakzap,crob,sebpr,srzap,debzad,prodkr,kredzad,zakkr,chp,valpr,densumm,vnakzap,pokkr :integer;
3. begin
4. randomize;
5. trackbar1.position := 1;
6.
7. chp := random(50000)+1;
8. chak := random(50000)+1;
9. crob := random(50000)+1;
10. obprod := random(50000)+1;
11. vnakzap := random(50000)+1;
12. oborakzap := random(50000)+1;
13. sebpr := random(50000)+1;
14. srzap := random(50000)+1;
15. debzad := random(50000)+1;
16. kredzad := random(50000)+1;
17. prodkr := random(50000)+1;
18. zakkr := random(50000)+1;
19. valpr := random(50000)+1;
20. densumm := random(50000)+1;
21.
22. pagecontrol1.ActivePageIndex := 1;
23.
24. stringgrid1.Cells[trackbar1.Position,1] := ''+floattostr(obprod / chak);
25. de[trackbar1.Position,1] := obprod div chak;
26.
27. stringgrid1.Cells[trackbar1.Position,2] := ''+floattostr(oborakzap / crob);
28. de[trackbar1.Position,2] := oborakzap div crob;
29.
30. stringgrid1.Cells[trackbar1.Position,3] := ''+floattostr(sebpr / srzap);
31. de[trackbar1.Position,3] := sebpr div srzap;
32.
33. stringgrid1.Cells[trackbar1.Position,4] := ''+floattostr(debzad / prodkr * 365);
34. de[trackbar1.Position,4] := debzad div prodkr * 365;
35.
36. stringgrid1.Cells[trackbar1.Position,5] := ''+floattostr(kredzad / zakkr);
37. de[trackbar1.Position,5] := kredzad div zakkr;
38.
39. stringgrid1.Cells[trackbar1.Position,6] := ''+floattostr(chp / obprod * 100);
40. de[trackbar1.Position,6] := chp div obprod * 100;
41.
42. stringgrid1.Cells[trackbar1.Position,7] := ''+floattostr(valpr / obprod * 100);
43. de[trackbar1.Position,7] := valpr div obprod * 100;
44.
45. stringgrid1.Cells[trackbar1.Position,8] := ''+floattostr(valpr / sebpr * 100);
46. de[trackbar1.Position,8] := valpr div sebpr * 100;
47.
48. stringgrid1.Cells[trackbar1.Position,9] := ''+floattostr(densumm / obprod * 100);
49. de[trackbar1.Position,9] := densumm div obprod * 100;
50.
51. stringgrid1.Cells[trackbar1.Position,10] := ''+floattostr((chak / chp) * 100);
52. de[trackbar1.Position,10] := (chp div chak) * 100;
53.
54. trackbar1.Position := trackbar1.Position + 1;
|
вот есть несколько значений, они заполняются рандомом. Затем в стрингрид высчитываются сразу значения. Но как видно, они высчитываются только для первого столбца таблицы. Есть трэкбар, на нем 6 делений, то бишь 6 столбцов в таблице. По нажатию кнопку, столбцы должно разом заполняться, а так получается что заполнять приходится, нажимая 6 раз подряд кнопку.
Как записать это дело в цикл ? Али еще как можно ? |
а сделай так: | Код |
1. procedure TForm1.Button2Click(Sender: TObject);
2. var obprod,chak,oborakzap,crob,sebpr,srzap,debzad,prodkr,kredzad,zakkr,chp,valpr,densumm,vnakzap,pokkr :integer;
i: Integer;
3. begin
for i := 1 to 6 do
begin
4. randomize;
5. trackbar1.position := i;
6.
7. chp := random(50000)+1;
8. chak := random(50000)+1;
9. crob := random(50000)+1;
10. obprod := random(50000)+1;
11. vnakzap := random(50000)+1;
12. oborakzap := random(50000)+1;
13. sebpr := random(50000)+1;
14. srzap := random(50000)+1;
15. debzad := random(50000)+1;
16. kredzad := random(50000)+1;
17. prodkr := random(50000)+1;
18. zakkr := random(50000)+1;
19. valpr := random(50000)+1;
20. densumm := random(50000)+1;
21.
22. pagecontrol1.ActivePageIndex := 1;
23.
24. stringgrid1.Cells[trackbar1.Position,1] := ''+floattostr(obprod / chak);
25. de[trackbar1.Position,1] := obprod div chak;
26.
27. stringgrid1.Cells[trackbar1.Position,2] := ''+floattostr(oborakzap / crob);
28. de[trackbar1.Position,2] := oborakzap div crob;
29.
30. stringgrid1.Cells[trackbar1.Position,3] := ''+floattostr(sebpr / srzap);
31. de[trackbar1.Position,3] := sebpr div srzap;
32.
33. stringgrid1.Cells[trackbar1.Position,4] := ''+floattostr(debzad / prodkr * 365);
34. de[trackbar1.Position,4] := debzad div prodkr * 365;
35.
36. stringgrid1.Cells[trackbar1.Position,5] := ''+floattostr(kredzad / zakkr);
37. de[trackbar1.Position,5] := kredzad div zakkr;
38.
39. stringgrid1.Cells[trackbar1.Position,6] := ''+floattostr(chp / obprod * 100);
40. de[trackbar1.Position,6] := chp div obprod * 100;
41.
42. stringgrid1.Cells[trackbar1.Position,7] := ''+floattostr(valpr / obprod * 100);
43. de[trackbar1.Position,7] := valpr div obprod * 100;
44.
45. stringgrid1.Cells[trackbar1.Position,8] := ''+floattostr(valpr / sebpr * 100);
46. de[trackbar1.Position,8] := valpr div sebpr * 100;
47.
48. stringgrid1.Cells[trackbar1.Position,9] := ''+floattostr(densumm / obprod * 100);
49. de[trackbar1.Position,9] := densumm div obprod * 100;
50.
51. stringgrid1.Cells[trackbar1.Position,10] := ''+floattostr((chak / chp) * 100);
52. de[trackbar1.Position,10] := (chp div chak) * 100;
53.
end;
end;
|
если я правильно понял - то так  Это сообщение отредактировал(а) morpheyushka - 11.6.2008, 10:07 |
Помогите записать в цикл 
Загрузка ...
Дата 11.6.2008, 10:06 (
