Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизНУ ОЧЕНЬ ИНТЕРЕСНЫЙ ВОПРОССС :)))) Найти похожие ветки
← →
Русский (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;
...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c