Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2017, 20:16   #1
pas2
Пользователь
 
Регистрация: 02.01.2016
Сообщений: 42
По умолчанию [РЕШЕНО]: ListBox: как добавить из TStringList текст через 1 строку, чтобы в listBox данные располагались на чётных/нечётных позициях?

Подскажите,как добавить из TStringList текст через 1 строку (начиная с 0 - дальше 2,4,6 и т.д.)в ListBox1 а в ListBox2 (начиная с 1 - дальше 3,5,7 и т.д.)
Код:
plList :=TStringList.Create;
plList.LoadFromFile(ExtractFilePath(ParamStr(0)) +'1.txt');
for k:=0 to plList.Count-1 do
ListBox1.Items.Add(plList.Strings[к]);
как содержимое файла загрузить ясно, логически ясно как добавить через одну строку, а реализовать не получается...

Решение в следующем сообщении

Последний раз редактировалось Вадим Мошев; 12.05.2018 в 13:27.
pas2 вне форума Ответить с цитированием
Старый 21.03.2017, 20:40   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

if odd(k) then ... else ...
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 21.03.2017, 20:54   #3
pas2
Пользователь
 
Регистрация: 02.01.2016
Сообщений: 42
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
if odd(k) then ... else ...
Спасибо, все получилось...
pas2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Listbox добавить строку Кольша Общие вопросы Delphi 1 12.01.2012 18:57
как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play) blackstersl Общие вопросы Delphi 11 09.06.2010 13:23
КАК в Listbox выровнять строку отдельнию Linore Общие вопросы .NET 3 10.03.2010 15:33
Как при нажатии на строку в Listbox передавать нажатую строку в переменную Михаил Юрьевич Общие вопросы Delphi 5 16.03.2009 12:59
элементы массива заносились в ListBox при этом располагались в столбик?! Ensoph Компоненты Delphi 3 14.09.2007 11:49