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

Вниз

Работа с динамическими массивами!   Найти похожие ветки 

 
grol ©   (2005-05-24 01:36) [0]

Еще раз здравствуйте мастера!!! Сегодня я уже второй раз пишу в форум!!! У меня такой вопрос: у меня есть два динамических массива, первый из них уже забит числами, если я преравняю второй массив к первому, то эти два массива приравняются. Если же я попытаю изменять числа во втором массиве, то числа будут изменяться и в первом массиве!!! Как это избежать? То есть мне надо приравнять два массива, которые динамически созданные, и чтоб при изменении чисел в одном массиве в другом они не изменялись. Я конечно же мог это сделать через цикл, но если элементов в массивах будут под 100000, то будет тормоза с компом. Мастера, асы в этом деле помогите ламаку!!!

var
    i:integer;
    KTIt,KTI:array of Integer;
begin
Setlength(KTI,10);
//заполняю масив числами
For i:=Low(KTI) To High(KTI) do
      KTI[i]:=i;
//хочу преравнять один масив к другому делаю так
KTIt:=KTI;
//После два этих массива будут одинаковы
...
KTI:=nil;
KTIt:=nil;
end;


 
Yanis ©   (2005-05-24 01:39) [1]

Да ты их не преравняешь, а просто адрес копируешь.


 
grol ©   (2005-05-24 01:42) [2]

А что виновать, что ты здесь и там? Я еще не ас и поэтому мне приходится выбирать где дадут более легкий код для моего понятия!!! Не, но если ты зашел на мою тему, то давай, давай отвечай на вопрос!!!:-)))


 
Alx2 ©   (2005-05-24 01:43) [3]

Поэлементно в цикле, либо библиотечными функциями (например, copy, move).
А операцией "KTIt:=KTI;" только приравниваешь ссылки.

см. Help на тему "Dynamic arrays"



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

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

Наверх





Память: 0.45 MB
Время: 0.013 c
3-1114680454
Barracuda
2005-04-28 13:27
2005.06.06
Создание таблици


1-1116600766
juice
2005-05-20 18:52
2005.06.06
Имя экземпляра класса


1-1116608902
френк
2005-05-20 21:08
2005.06.06
путь к сервису


4-1113262099
jobo
2005-04-12 03:28
2005.06.06
Запрет Minimize конкретной формы


14-1116436236
Yegorchic
2005-05-18 21:10
2005.06.06
Статья про Photoschp CS





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский