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

Вниз

Добавить записи из одного TList в другой   Найти похожие ветки 

 
DelphiLexx ©   (2006-08-17 09:42) [0]

Есть lst1, lst2: TList;
lst1 - содержит определенные записи
как добавить в конец lst1 записи из lst2 - т.е. подобно функции Append.


 
MBo ©   (2006-08-17 09:44) [1]

А что, своих идей никаких нет?


 
DelphiLexx ©   (2006-08-17 09:45) [2]


> А что, своих идей никаких нет?

Есть можно через цикл можно воспользоваться готовым методом TList"a только вот каким?


 
Мефисто   (2006-08-17 09:59) [3]

TList.Add()
TList.Insert();

Хочешь большего - пиши наследника от TList с нужным тебе фунционалом.


 
Сергей М. ©   (2006-08-17 10:06) [4]


> DelphiLexx ©   (17.08.06 09:42)


см. TList.Assign()


 
Пусик ©   (2006-08-17 10:07) [5]

 TMyList=class(TList)
 public
   procedure AddItems(SrcList: TList);
 end;

procedure TMyList.AddItems(SrcList: TList);
var
 i: Integer;
begin
 for i := 0 to SrcList.Count - 1 do Add(SrcList.Items[i]);
end;


 
DelphiLexx ©   (2006-08-17 10:10) [6]


> см. TList.Assign()

Assign заменит содержимое lst1 на lst2, а мне нужно добавить содержимое lst2 к концу содержимого lst1.


 
StriderMan ©   (2006-08-17 10:12) [7]

for i := 0 to lst2.Count - 1 do
 lst1.AddObject(lst2.Objects[i]);


ЗЫ: насчет имен свойств ежели че не пинать :)


 
Сергей М. ©   (2006-08-17 10:34) [8]


> DelphiLexx ©   (17.08.06 10:10) [6]
>
>
> > см. TList.Assign()
>
> Assign заменит содержимое lst1 на lst2, а мне нужно добавить
> содержимое lst2 к концу содержимого lst1.


Ты хоть бы справку удосужился почитать, прежде чем делать утверждение)



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

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

Наверх





Память: 0.46 MB
Время: 0.042 c
2-1155879537
Начинающий_1
2006-08-18 09:38
2006.09.10
Универсальное объявление типа переменной.


2-1155864068
Wood
2006-08-18 05:21
2006.09.10
Сохранить в INI стиль шрифта.


2-1156190271
Id
2006-08-21 23:57
2006.09.10
Запуск Delphi


15-1155117731
Аноним
2006-08-09 14:02
2006.09.10
Есть ли в Windows возможность использовать несколько мышей?


2-1155842084
Denisich
2006-08-17 23:14
2006.09.10
Ошибка в rtl60.bpl





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