Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

НУ ОЧЕНЬ ИНТЕРЕСНЫЙ ВОПРОССС :))))   Найти похожие ветки 

 
Русский   (2001-12-18 17:03) [0]

// Имеется класс
TNetworkResource = class(TPersistent)
private
FdwScope: TResourceScope;
FdwType: TResourceType;
FdwDisplayType: TResourceDisplayType;
FdwUsage: TResourceUsage;
FlpLocalName: string;
FlpRemoteName: string;
FlpComment: string;
FlpProvider: string;
published
property dwScope: TResourceScope read FdwScope write FdwScope;
property dwType: TResourceType read FdwType write FdwType;
property dwDisplayType: TResourceDisplayType read FdwDisplayType write FdwDisplayType;
property dwUsage: TResourceUsage read FdwUsage write FdwUsage;
property lpLocalName: string read FlpLocalName write FlpLocalName;
property lpRemoteName: string read FlpRemoteName write FlpRemoteName;
property lpComment: string read FlpComment write FlpComment;
property lpProvider: string read FlpProvider write FlpProvider;
end;

var
// Имеем переменную типа TNetWorkResource
NetworkResource: TNetworkResource;
// Имеем переменную типа TNetResource
NetResource: TNetResource;
Вопрос:
Как сотворить что - то подобное NetResource := NetworkResource ?
Очень не хочется переводить каждое поле, т. е.:
NetworkResource.dwScope := NetResource.dwScope;
...


 
Digitman ©   (2001-12-18 17:48) [1]

Никак. Только прямым присвоением значений отдельных полей.
TNetResource - простая API-структура, а TNetworkResource - твой собственный класс.


 
Русский   (2001-12-18 19:46) [2]

:-(((


 
Дремучий ©   (2001-12-18 20:36) [3]

пропиши для своего класса метод Assign, где и будешь делать
нужные присвоения, а програме делай уже не присвоение, а вызывай
Assign - стандартная процедура....
;)


 
False_Delirium ©   (2001-12-19 00:27) [4]

"Operators" посмотри в справке "The @ operator" ...
В С++ перегрузка операторов равенства...



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-22072
Гарик
2001-12-19 11:08
2002.01.08
Как создать экземпляр потомка TFrame динамически


1-22020
Leo^Sun
2001-12-18 07:08
2002.01.08
TMemo


3-21906
Юрий Жуков
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.db


4-22503
Yura
2001-11-05 20:11
2002.01.08
Ввод строки в окно


1-22107
Alexander
2001-12-19 01:45
2002.01.08
Как при запуске программы сразу показать поверх главной формы другую?