[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 - у меня все работает, или я что-то не так понял.

[Fantomas_RUS]

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

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

Не, форма у меня тоже открываеться, всё нормально. Просто я передаю в форму массив, который храниться в объекте, вызвавший эту форму(Ну что бы благадаря форме занести данные в массив). Так вот этот массив обнуляеться если его передавать как TObject. А как сделать по другому я не знаю. Наверняка я не прав....

[YVitaliy]

Все дело в ShowModal - после вызова окна из текущей проседуры уже не можешь изменить поля. Изменяй поля перед вызовом формы или используй метод Show, хотя не рекомендую.
вот проверь

Код:

B:=TStroka.Create(self.Stolbec);
SS:=TForm4.Create(Application,self);
SS.caption:=('Äîáàâèòü ó÷àñòîê');
ss.Memo1.Lines.Add('aa');
SS.ShowModal;
ss.Memo1.Lines.Add('bb');
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;

Строка 'bb' не добавится, а 'aa'-добавилась

[Fantomas_RUS]

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

Все дело в ShowModal - после вызова окна из текущей проседуры уже не можешь изменить поля. Изменяй поля перед вызовом формы или используй метод Show, хотя не рекомендую.

Не понял поясни. Вызываю в ShowModal намеренно, чтоб не была однавременно доступна основная и вызванная форма. А в Show можно передать объект - тот же самый, в котором и написанна функция вызова нового окна?

[YVitaliy]

Дело в том, что при ShowModal программа как-бы "останавливается" и ждет закрытия формы, тоесть ты добавляешь данные как-бы после ее закрытия уже

[Fantomas_RUS]

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

Дело в том, что при ShowModal программа как-бы "останавливается" и ждет закрытия формы, тоесть ты добавляешь данные как-бы после ее закрытия уже

Это ты про Caption:='uuuug' что ли пишешь?

[YVitaliy]

Там выше пример. Я говорю о том, что данные на форме изменяй после конструктора, но перед вызовом. Обращение к свойствам обьекта типа TUchast(tabl).B действует нормально.

И еще. Если хочешь переписать метод предка, обьяви его виртуальным, а метод потомка override:
type TTabl_Vozv = class
...........
procedure AddStroka();virtual;
...........
end;


type TUchast = class(TTabl_Vozv)
..........

procedure AddStroka();override;
..........
end;

[Fantomas_RUS]

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

Там выше пример. Я говорю о том, что данные на форме изменяй после конструктора, но перед вызовом.

Если не сложно черкни пару строк, я совсем что то запутался.....

[YVitaliy]

Так вот. Сегодня на свежую голову наконец-то понял в чем суть. Ты пристальнее посмотри на проседуру Sortirovka, именно в ней твои строки "обнуляются", попробуй при вызове формы не изпользовать ету проседуру - увидишь что строки непустые. Или напиши, что именно ета "сортировка" должна делать, попробую исправить.

[Fantomas_RUS]

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

Все дело в ShowModal - после вызова окна из текущей проседуры уже не можешь изменить поля. Изменяй поля перед вызовом формы или используй метод Show, хотя не рекомендую.
вот проверь

Код:

B:=TStroka.Create(self.Stolbec);
SS:=TForm4.Create(Application,self);
SS.caption:=('Äîáàâèòü ó÷àñòîê');
ss.Memo1.Lines.Add('aa');
SS.ShowModal;
ss.Memo1.Lines.Add('bb');
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;

Строка 'bb' не добавится, а 'aa'-добавилась

Это я понял. Но как пользователь может внести данные в поля формы до её отображения. Ведь форма и нужна для ввода данных от пользователя в массив или я опять не до понял??????