Главная страница
    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.047 c
2-1156145493
redlord
2006-08-21 11:31
2006.09.10
hwnd окна из application


15-1155627234
Sergey_b
2006-08-15 11:33
2006.09.10
Вопрос


2-1156277463
DillerXX
2006-08-23 00:11
2006.09.10
CreateThread && Strings


15-1155840942
ArtemESC
2006-08-17 22:55
2006.09.10
Прерывание...


15-1155804379
memo
2006-08-17 12:46
2006.09.10
O... Задача.....





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