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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.12.2012, 07:01
Аватар для morebeauty
morebeauty morebeauty вне форума
Начинающий
 
Регистрация: 21.06.2012
Сообщения: 106
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Вопрос по указателям

Есть код

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
type
TRec = record
a:string;
b:string;
end;
TClass1 = class;
 
TClass2 = class
private
FClass1: TClass1;
function GetC:string;
public
property C:string read GetC;
end;
 
TClass1 = class
private
FRec:TRec;
FClass2:TClass2;
public
constructor Create;
property Rec:TRec read FRec write FRec;
end;
 
***
constructor TClass1.Create;
begin
inherited;
FClass2 := TClass2.Create;
FClass2.FClass1 := self;
end;
 
***
procedure proc1;
var
Class1:TClass1;
begin
Class1 := TClass1.Create;
with Class1.Rec do
begin
a := 'A';
b := 'B';
end;
end;
 
***
function TClass2.GetC:string;
begin
result := FClass1.Rec.a + FClass1.Rec.b;
end;
В последней функции result := FClass1.Rec.a + FClass1.Rec.b; хотелось бы упростить. Так как классов на самом деле очень много, обращаться приходится порой так FClass5.FClass4.FClass3.Fclass2.FClass1.Rec...
чтобы этого избежать, нужно в каждом подклассе делать ссылку на TClass1.Rec
Подскажите плиз как?
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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