Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.09.06;
Скачать: CL | DM;

Вниз

Классы форм   Найти похожие ветки 

 
rassl   (2009-07-07 15:09) [0]

Здравствуйте уважаемые программисты!
вопрос следующий (может подскажите).
у меня имеются 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.
и соответственно строки не появляются в первой форме.
"Что нужно добавить" во вторую форму (процедуру, класс и т.д.), чтобы эта операция была доступна для изменения таблицы в первой.
спасибо.


 
Anatoly Podgoretsky ©   (2009-07-07 15:55) [1]

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

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


 
Dennis I. Komarov ©   (2009-07-07 16:14) [2]

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


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

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


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


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

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


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


> rassl   (08.07.09 05:53) [4]

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2009.09.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-1213870475
du_hast
2008-06-19 14:14
2009.09.06
Проблема с закрытием Docking формы


15-1246739521
Юрий
2009-07-05 00:32
2009.09.06
С днем рождения ! 5 июля 2009 воскресенье


1-1213790875
master_root
2008-06-18 16:07
2009.09.06
переопределение операций(сложение, вычитание...)


15-1246616362
hinst
2009-07-03 14:19
2009.09.06
преобразование assembler в pascal


2-1246969997
Zheksonz
2009-07-07 16:33
2009.09.06
Отклик от COM порта