Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

НУ ОЧЕНЬ ИНТЕРЕСНЫЙ ВОПРОССС :)))) Encontrar ramas similares


Русский   (2001-12-18 17:03) (1)

// Имеется класс
TNetworkResource = class(TPersistent)
privada
FdwScope: TResourceScope;
FdwType: TResourceType;
FdwDisplayType: TResourceDisplayType;
FdwUsage: TResourceUsage;
FlpLocalName: string;
FlpRemoteName: string;
FlpComment: string;
FlpProvider: string;
publicado
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;
fin;

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


Digitman (2001-12-18 17:48) (1)

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


Русский   (2001-12-18 19:46) (1)

: - (((


Denso2001-12-18 20:36) (1)

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


False_Delirium (2001-12-19 00:27) (1)

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




Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.82 MB
Tiempo: 0.033 c
1-22179
ikar
2001-12-21 09:10
2002.01.08
Как перебрать корневые узлы в TTreeView ?


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid y todos sus descendientes ...


14-22346
Ivan Shikhalev
2001-11-06 20:30
2002.01.08
Haiku :))


14-22383
Vadim
2001-11-08 11:01
2002.01.08
Форумы программистов


6-22270
Ajax
2001-09-15 10:15
2002.01.08
Tuve una pregunta sobre el correo 3.





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español