[Fantomas_RUS]

Не могу понять. Передаю объект форме(В форме создал новый конструктор) до перехода в 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;

В приложении коды. Посоветуйте пожалйста как решить проблему.

[NumLock]

Код:

TForm2.Create(Application,self);

constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject);

или TForm2 = class(TForm3); ?

[Fantomas_RUS]

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

Код:

TForm2.Create(Application,self);

constructor TForm3.Create(Aowner: Tcomponent;Tablic: TObject);

или TForm2 = class(TForm3); ?

Извеняюсь в попыхах не ту функцию вставил

Код:

procedure TTabl_Vozv.DeleteStroka;
var SS:TForm3;
begin
SS:=TForm3.Create(Application,self);
SS.caption:=('Удалить строку');
SS.ShowModal;
if Flag then
  Dec(K);
B.Free;
end;

Вообще смысл такой:
Создаеться объект. В одной из его процедур создаёться другое окно, в нём вводяться какие то данные, потом окно закрываеться и данные должны быть внесенны в объекте вызвавшем это окошко. При передаче сейчас как есть self'a данные не передаються в форму. Что делать???? Для проверки в моей программе нажать кнопку 2 для загрузки массива из фаила данными, а потом 1 кнопку.

[Fantomas_RUS]

Вообще смысл такой:
Создаеться объект. В одной из его процедур создаёться другое окно, в нём вводяться какие то данные, потом окно закрываеться и данные должны быть внесенны в объекте вызвавшем это окошко. При передаче сейчас как есть self'a данные не передаються в форму. Что делать???? Для проверки в моей программе нажать кнопку 2 для загрузки массива из фаила данными, а потом 1 кнопку.

Не кто не сталкивался с такой задачей?

[NumLock]

а так не годится:

Код:

unit Unit1;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2:=TForm2.Create(Application);
  Form2.ShowModal;
  ShowMessage(Form2.Edit1.Text+#13#10+Form2.Edit2.Text+#13#10+Form2.Edit3.Text);
  Form2.Free;
end;

Код:

unit Unit2;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;

?

[YVitaliy]

Как я понял, обьект TUchast есть потомок обьекта TTabl_Vozv, и у него перегружена проседура AddStroka(), тоесть при ее вызове вызывается TForm4, а не TForm2, как у класса родителя. Просто перепиши для TForm4 все что написал для TForm2 - у меня все работает, или я что-то не так понял.