Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Копирование свойств объекта   Найти похожие ветки 

 
Frozzen   (2004-11-28 14:56) [0]

Господа подскажите
Ситуация такая: имеется TList - там лежит списсок некоторых объектов
Необходимо создать есче один объект, который будет являтся копией допустем первого из листа. Если не ошибаюсь это делается Assign.

TCoordPoint = class(TObject)
           x, y        :integer;
           lat, long   :real;
           r           :real;
           constructor Create(xx, yy, rr : real);
           destructor Destroy;
          end;

В процедуре работы с листом

p := TCoordPoint.Create(0,0,0);
p := Assign(Items[0]); //???????????????
Insert(0, p);


 
Суслик ©   (2004-11-28 14:57) [1]

ничего само делаться не будет.

Ты должен сам написать Assign, где будешь копировать нужные свойства.


 
Frozzen   (2004-11-28 15:04) [2]

Подскажите как правельно


 
Frozzen   (2004-11-28 15:05) [3]

просто в ассигн переприсваевание полей написать


 
Frozzen   (2004-11-28 15:05) [4]

просто в ассигн переприсваевание полей написать


 
Суслик ©   (2004-11-28 15:06) [5]


> просто в ассигн переприсваевание полей написать

да
все делаешь ручками сам.



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

Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.052 c
14-1100831566
ИМХО
2004-11-19 05:32
2004.12.12
Роман с камнем, мелодия


14-1100858389
BorisUK
2004-11-19 12:59
2004.12.12
Задача


4-1098990394
peppperok
2004-10-28 23:06
2004.12.12
Кнопка Видовс !!!!!!!


1-1101469896
барбос
2004-11-26 14:51
2004.12.12
TabOrder


1-1101878751
Vladik
2004-12-01 08:25
2004.12.12
MDI формы, анимация





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский