при обращении с одной формы на другую вылетатет ошибка

[cowboy]

Спасибо за помощь..Проблему свою решил упростить..С формы 1 через мэнменю создается форма8.На ней есть компонент ЕДИТ1 и там забита цифирка .Форма обьявляется как глобальная

 public
  form8:tform8;

Затем на форме 2 я записывают юнит 8 в uses и потом в кнопке делаю

 var form:tform8;
begin
  showmessage(form.Edit1.Text);

И тут вываливает НАРУШЕНИЕ ДОСТУПА..В чем может быть беда? Код нормально компилируется.

[evg_m]

 var form:tform8;
begin
  form:=TForm8.Create(self);
  showmessage(form.Edit1.Text);

[cowboy]

Спасибо..!

А как мне обратится уже к стринггриду на этой форме? Почему то form.stringgrid1.colcount возвращает постоянно 0 хотя там таблица большая

Вот продолжение проблемы...Я создал на форме 8 ЕДИТ с текстом по умолчанию PRIVET и во время выполнения программы Я пишу туда данные...С другой формы 2 я обращаюсь к этому едиту и вывожу мессадж с его значением..И все равно когда в ЭДИТ поступают данные он мне выдает ТОЖЕ САМОЕ ! Хоят я даже визуально вижу данные!

[Stilet]

все равно когда в ЭДИТ поступают данные он мне выдает ТОЖЕ САМОЕ ! Хоят я даже визуально вижу данные!

Кот в студию.

[cowboy]

Вод код...Нам интересен юнит 1 и 8..В восьмой поступают данные по DDE через стороннее приложение....Потом в нем по таймеру данные в другой стринг грид и в эдит1...Потом с юнита 1 шлется мессадж с едитом 1..И почему то он показывает пустоту когда, на самом деле он уже давно заполнен..

[Stilet]

Так а у тебя СтрингГрид не наполняется то.
Оффтоп:
Запустил. При создании таблицы мне вывалилась надпись "LOH". Это чо за издевательство?

[cowboy]

сорри..это я так замучился и уже не знаю что делать что для себя написал ..
срингриды заполняются..но я почемуто не могу получить к ним доступ с юнита 1

то есть доступ могу..Но почемуто у меня показывает что все ячейки пустые

[Stilet]

срингриды заполняются

У меня не заполнился когда я пример запустил.

[SuperVisor]

procedure TForm8.Timer1Timer(Sender: TObject);
var
i,buy_count,sell_count,price_count,center,j:integer;
begin
      edit1.Text:=stringgrid2.cells[1,1];

Плюсом - не нашел, где гриды вообще заполнять.... Может, с неохотой искал - не знаю.. ))))

[cowboy]

Сообщение от SuperVisor

procedure TForm8.Timer1Timer(Sender: TObject);
var
i,buy_count,sell_count,price_count,center,j:integer;
begin
      edit1.Text:=stringgrid2.cells[1,1];

Плюсом - не нашел, где гриды вообще заполнять.... Может, с неохотой искал - не знаю.. ))))

вот процедура заполнения второго грида

procedure TForm8.Timer1Timer(Sender: TObject);
var
i,buy_count,sell_count,price_count,center,j:integer;

begin



      edit1.Text:=stringgrid2.cells[1,1];
   //   showmessage(edit1.Text);

if length(stringgrid1.cells[2,1])>1 then begin
j:=1;

 for i:=0 to stringgrid1.colcount-1 do  begin
   if   stringgrid1.cells[i,0]='Ïîêóïêà' then   buy_count:=i;
   if   stringgrid1.cells[i,0]='Ïðîäàæà' then   sell_count:=i;
   if   stringgrid1.cells[i,0]='Öåíà' then   price_count:=i;
 end;

  i:=1;
   while  strtofloat(stringgrid1.cells[sell_count,i])=0 do    i:=i+1;
    center:=i;



 for i:=center-19 to center+20 do begin

    if i<center then begin
    StringGrid2.Cells[2,j]:=stringgrid1.cells[buy_count,i];
    StringGrid2.Cells[1,j]:=stringgrid1.cells[price_count,i];
    j:=j+1;
    end;

    if i>center-1 then begin
    StringGrid2.Cells[0,j]:=stringgrid1.cells[sell_count,i];
    StringGrid2.Cells[1,j]:=stringgrid1.cells[price_count,i];
    j:=j+1;
    end;



 end;



end;

ВТорой заполняется из первого..
а первый заполняется по DDE из источника п данных-моего приложения основного..Его нет смысла выкладывать..Слишком долгая настройка..