casa

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù

НУ ОЧЕНЬ ИНТЕРЕСНЫЙ ВОПРОССС :)))) Trova rami simili


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

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

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



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

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



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

: - (((



Denso (2001-12-18 20:36) [3]

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



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

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





Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.77 MB
Ora: 0.027 c
6-22299
Leviathan
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Обработка ошибок TClientSocket


4-22509
Karan
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
GetkeyboardState- Что делает?


14-22362
MIFI
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
как найти человека


1-22000
Attaccante
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Перенос данных в ячейку листа Excel


14-22393
Felix
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Cosa fare?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo