Не могу понять. Передаю объект форме(В форме создал новый конструктор) до перехода в Create данные в отладчике видны(переменная self), после перехода, данные (переменная Tablic) исчезают, значение в отладчике показываеться просто (). Если я не правильно что-то написал прошу обяснить тогда как мне передать в форму данные и получить из неё.
Код:
procedure TTabl_Vozv.AddStroka;
var SS:TForm2;
begin
B:=TStroka.Create(self.Stolbec);
SS:=TForm2.Create(Application,self);
SS.caption:=('Добавить строку');
SS.ShowModal;
if A then self.Add;
self.Masiv[Read_All_Strok].Stroka[1]:=B.Read_Cell(1);
self.Masiv[Read_All_Strok].Stroka[2]:=B.Read_Cell(2);
A:=true;
B.Free;
end;
переходит в
Код:
constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject);
Var y:Integer;
begin
Tabl:=TTabl_Vozv(Tablic);
inherited Create(Aowner);
end;
В приложении коды. Посоветуйте пожалйста как решить проблему.