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

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

Классы форм [D7, WinXP]


rassl ©   (2009-07-07 15:09:00) 

Здравствуйте уважаемые программисты!
вопрос следующий (может подскажите).
у меня имеются 2 формы.
в первой форме размещена таблица StringGrid.
procedure TOpenForm.FormCreate(Sender: TObject);
begin
  FormStyle:=fsMDIChild;
  PathName := DefaultFileName;
  NumCMD:=StringGrid.RowCount;  // параметр количества строк
  Num_Find:=StringGrid.Row;     // присваиваем курсос к поиску с этой строки
  StringGridN;
end;
во второй форме кнопка, при нажатии на которую в таблице первой формы должно увеличиться необходимое количество строк.
procedure TCMDForm.CMDOK(Sender: TObject);
var   i, ii : integer;
begin
  ii:= NumCMD;   // счетчик количества уже имеющегося количества строк таблицы
  inc(NumCMD,NumberPortLen);  // увеличение числа строк на количество портов
//  OpenForm.StringGrid.RowCount:=NumCMD;    // добавление строк в таблицу
end;
Но, этого не происходит.появляется ошибка Access Violation at adress 0049459B. Read of adress 0000038C.
и соответственно строки не появляются в первой форме.
"Что нужно добавить" во вторую форму (процедуру, класс и т.д.), чтобы эта операция была доступна для изменения таблицы в первой.
спасибо.


Плохиш   (2009-07-08 10:57:00) [1]


> rassl   (08.07.09 05:53) [4]

> да сначало появляется OpenForm

Хм, опять викторина "расставь запятые"...

Встроенным в делфи отладчиком воспользоваться не пробовал?


rassl   (2009-07-08 05:53:00) [2]


> а OpenForm создана на момент OpenForm.StringGrid.RowCount?

да сначало появляется OpenForm
а потом CMDForm. т.е. в ней кнопка Button
ii:= NumCMD;   // счетчик количества уже имеющегося количества строк таблицы
 inc(NumCMD,NumberPortLen);  // увеличение числа строк на количество портов
 OpenForm.StringGrid.RowCount:=NumCMD;    // добавление строк в таблицу


clickmaker   (2009-07-07 16:46:00) [3]

а OpenForm создана на момент OpenForm.StringGrid.RowCount?


Dennis I. Komarov   (2009-07-07 16:14:00) [4]

Мда.. тут нужен мощный телепатор, или даже кластер :)


Anatoly Podgoretsky   (2009-07-07 15:55:00) [5]

> rassl  (07.07.2009 15:09:00)  [0]

Сплошные глобальные переменные с неизвестными значениями.


Наверх

Титульная страница Поиск, карта сайта Написать письмо