| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вопрос по циклу,условию

Страницы:   < 1 2 >

Петрович07 ©   (2007-11-05 14:04:00) 

всем привет,у меня вопрос:
на form6 и на form10 есть stringgrid1. мне в зависимости от некоторого условия надо ставить менять в цикле
то подставлять form6 то from10 как это сделать?
 for i := 1 to form10.StringGrid1.RowCount - 1 do
 begin
   for j := 0 to Form7.table_mnog.RowCount - 1 do
   begin
     if (Form7.table_mnog.Cols[0].Strings[j] = '#') and (Form7.table_mnog.Cols[1].Strings[j] > IntToStr(i)) then
     begin

       if (Form7.table_mnog.Rows[1].Strings[0] <> '') and (Form7.table_mnog.Rows[1].Strings[1] = '') and (Form7.table_mnog.Rows[2].Strings[0] = '#') then
       begin
         h := 0;
         Form5.table_2.Cols[i].Strings[h] := Form7.table_mnog.Rows[j - 1].Strings[0];
       end else
       begin
         for h := Form7.table_mnog.ColCount - 1 downto 0 do
         begin
           form5.table_2.Cols[i].Strings[h] := Form7.table_mnog.Rows[j - 1].Strings[Form7.table_mnog.ColCount - 1 - h];
         end;
       end;
       Break;
     end;
   end;
 end;

---

Anatoly Podgoretsky   (2007-11-05 15:57:00) [21]

> CheckBox1.Checked = true

Ты геде программировать учился?

---

Петрович07   (2007-11-05 14:36:00) [22]

хм..
 Form_gg:TForm;

if CheckBox1.Checked = true then
Form_gg := Form1
else
Form_gg := form2;

чет не то)))
Form_gg.edit1.text := 'fsdf';

спасибо за ответ

---

ProgRAMmer Dimonych   (2007-11-05 14:09:00) [23]

Поменяй имена компонентов, иначе программу никогда не закончишь писать.

По поводу собственно решения проблемы - не уверен, что это правильно, но...

Я бы объявил локально экземпляр TForm, а потом

if <Условие> then MyLocalForm:=Form6 else MyLocalForm:=Form10;
for i:=1 to MyLocalorm.StringGrid15846541.RowCount-1 do

Если бы чего-нибудь не пошло, ловил бы ошибку :)

А вообще - что-то с логикой программы не то, надо чего-то глобально менять.

---

Страницы:   < 1 2 >

Наверх