StringGrid на другой форме

[cowboy]

все равно вылазиет ошибка нЕОБЬЯВЛЕННАЯ ПРЕРЕМЕННАЯ СТРИНГГРИД..Помогите плиз

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
path:string;
form2:tform;
 StringGrid1:tstringgrid;
begin
form2:=TForm2.Create(Self);
StringGrid1:=tstringgrid.Create(Self);
Form2.Show;
{Form2.StringGrid1.Cells[1,1]:='Rabotaet';    }
path:='D:\log.txt';
AssignFile(f,path);
ReWrite(f);
write(f,Form2.StringGrid1.Cells[1, 1]);
CloseFile(f);
end;

В принципе задачу можно упсротить.. Есть на ФОРМЕ2 стринггрид1. На форме 1 я тоже создал стринггрид 1.. Как данные с стринггрид1 форма 2 перекинуть в форма1 стригнггрид1?.. я пытаюсь делать так

procedure TForm2.Button1Click(Sender: TObject);
var

form1:tform;
stringgrid1:tstringgrid;
begin

stringgrid1.Create(self);
form1.stringgrid1.Cells[2, 2]:=form2.stringgrid1.Cells[2, 2]

end;

end.

Но все равно пишет мол СТРИНГГРИД 1 НЕ ОПРЕДЕЛЕН!

[ArtInt]

Может через Assign.
Например:Form1.StringGrid1.Assign(F orm2.StringGrid1)

[artemavd]

На держи пример. У меня на этот пример ушло пару минут .

Ерунду пишете в коде. Лишнего много. Там нужна то одна строчка. Ваш код:

procedure TForm2.Button1Click(Sender: TObject);
var

form1:tform;
stringgrid1:tstringgrid;
begin

stringgrid1.Create(self);
form1.stringgrid1.Cells[2, 2]:=form2.stringgrid1.Cells[2, 2]

end;

end.

а надо всего лишь

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.stringgrid1.Cells[2, 2]:=form1.stringgrid1.Cells[2, 2]
end;
end.

И кстати, в этом месте

Cells[2, 2]

пробел между цифрами ставить нельзя. В вашем исходнике я это много раз встречал.

[Neeter]

Ерунду пишете в коде.

Ну, может быть форма со StringGrid'ом динамически должна создаваться?
Только там код примерно таким тогда должен был быть:

procedure TForm2.Button1Click(Sender: TObject);
var
 form1:tform;
 stringgrid1:tstringgrid;
begin
 form1 := TForm1.Create(Application);
 stringgrid1.Create(form1);
 stringgrid1.Parent := form1;
 form1.stringgrid1.Cells[2, 2] := form2.stringgrid1.Cells[2, 2];
 form1.Show;
end;

Просто, смотря на тот код, я не пойму для чего нужна данная кнопка.

пробел между цифрами ставить нельзя.

Между цифрами в квадратных скобках? Хоть по десять пробелов до и после запятой...

[artemavd]

Между цифрами в квадратных скобках? Хоть по десять пробелов до и после запятой...

Да? Не знал...Думал, что это будет считаться ошибкой...

[cowboy]

Добрый день..Все равно у меня вылетает ошибка, хоть я эту кнопку на первой, хоть на второй форме..Пишет UDECLAREABLE IDETIFIRE STRING GRID1

procedure TForm2.Button1Click(Sender: TObject);
var
form1:tform;
form2:tform;
StringGrid1:tstringgrid;
begin
form1 := TForm1.Create(Application);
stringgrid1.Create(form1);
stringgrid1.Parent := form1;
form1.StringGrid1.cells[0,0]:= form2.StringGrid1.cells[0,0]
end;

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

Добрый день..Все равно у меня вылетает ошибка, хоть я эту кнопку на первой, хоть на второй форме..Пишет UDECLAREABLE IDETIFIRE STRING GRID1

Посмотрите пожалуста код..МОжет там какая нить особенность имеется?

Вообще данная программа работает следующим образом..В нее информация попадает через DDE -сервер.При этом создается форма 2 и на нее уже идут данные.. Я же хочу обрабатывать эту форму 2 и забирать с нее данные только те , которые мне нужны... Для этого я и создаю кнопки , что бы обратится к ней.. Но все время выходит ошибка UNDECLARETED IDENTIFIRER STRUNGGRID1!!! Помогите кто нитЬ!

[cowboy]

УРА!! ПОЛУЧИЛОСЬ РЕАЛИЗОВАТЬ!! все спасибо..И еще одна проблема появилась..При выполнении такой операции ДЕЛЬФЯ ВЫДАЕТ ОШИБКУ
lastprice:=strtoint(StringGrid1.Cel ls[last, rts])
Хотя числа в стринг грид все идут целые..число транслируетсяв районе 85000 .. Вчем проблема?

[Stilet]

ДЕЛЬФЯ ВЫДАЕТ ОШИБКУ

На староарабском?

lastprice:=strtoint(StringGrid1.Cel ls[last, rts])

Рекомендую так:

lastprice:=strtointDEF(StringGrid1.Cel ls[last, rts],0);

Тогда ошибка не вылезет, но если число неверное вернет 0

[cowboy]

опять проблема... Но уже со стринггридом.. Но форме1 есть кнопка-на нее тыкаю-появлеется PagesDlg..НА PagesDlg имеется Stringgrid..Я пытаюсь из другой формы 2 через таймер регулярно прописывать в нее значения..Пишу в коде через таймер на форме 2 простую весчь
pagesdlg.StringGrid2.Cells[0, 0]:= StringGrid1.Cells[bas, rts];
.,.Компилится, но тем не менее не пишет в этот стринг ни черта..Хотя я уже через этот же таймер писал значения в стринг грид наформе 1

[artemavd]

А у Timer-a свойство Enabled поставили в True?)