Классы форм

← →
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; // добавление строк в таблицу

> rassl (08.07.09 05:53) [4]

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

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

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

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