Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.12.2011, 19:34
Аватар для Fantomas_RUS
Fantomas_RUS Fantomas_RUS вне форума
Прохожий
 
Регистрация: 12.10.2010
Сообщения: 47
Репутация: 11
Злость Потеря объекта при передачи

Не могу понять. Передаю объект форме(В форме создал новый конструктор) до перехода в 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;
В приложении коды. Посоветуйте пожалйста как решить проблему.
Вложения
Тип файла: rar W.part1.rar (195.3 Кбайт, 2 просмотров)
Тип файла: rar W.part2.rar (60.9 Кбайт, 2 просмотров)
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025