Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
Stydent2
1 / 1 / 0
Регистрация: 12.11.2016
Сообщений: 20
#1

Перенести 5 последних элементов одного ListBox-а в другой - Lazarus

25.12.2016, 13:21. Просмотров 179. Ответов 5
Метки нет (Все метки)

Как,удалите последние пять элементов p и вывести во второй листобох?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const n=10
var
F:text;
i,p:integer;
begin
  ListBox1.Items.Clear;
  Randomize;
  {$I-}
  AssignFile(F, 'f1.dat.txt');
  ReWrite(F);
  for i:= 1 to n do
  begin
  p := Random(9);
  Write(F,IntToStr(p));
  ListBox1.Items.Add (IntToStr(p))
  End;
  CloseFile(F);
  {$I+}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2016, 13:21     Перенести 5 последних элементов одного ListBox-а в другой
Посмотрите здесь:

Lazarus Перенести Дельфи-программу на Линукс
TPageControl, как перенести компонент с формы на вкладку? Lazarus
Lazarus Перенести курсор в указанные координаты
Выделение элементов в ListBox Lazarus
Исключить повторения в ListBox Lazarus
Копирование значений полей из одного объекта в другой Lazarus
Заполнить массив из n элементов и перенести первые k элементов в конец Lazarus
Lazarus Перенести проект в Lazarus с win7 на win8
Lazarus Найти первые пять положительных элементов массива и 2 последних и вывести в edit
Как перенести процедуру? Lazarus
Lazarus Сортировка StringGrid обменами по возрастанию последних элементов строк
Lazarus Переписать символы из одного файла в другой, выбрасывая символы, расположенные между скобками

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
volvo
Супер-модератор
Эксперт Pascal
 Аватар для volvo
22346 / 14523 / 4119
Регистрация: 22.10.2011
Сообщений: 25,725
Записей в блоге: 3
25.12.2016, 13:56     Перенести 5 последних элементов одного ListBox-а в другой #2
Так?
Pascal
1
2
3
4
5
  for i := 1 to 5 do
  begin
    ListBox2.Items.Insert(0, ListBox1.Items[ListBox1.Count - 1]);
    ListBox1.Items.Delete(ListBox1.Count - 1);
  end;
Hretgir
173 / 70 / 2
Регистрация: 25.01.2012
Сообщений: 2,614
Записей в блоге: 17
25.12.2016, 14:07     Перенести 5 последних элементов одного ListBox-а в другой #3
Цитата Сообщение от volvo Посмотреть сообщение
Так?
логично что так - и удалять не надо,
вспоминаю где-то услышанное:

Не по теме:

и не за такую работу брались - и то ничего не делали

.
Stydent2
1 / 1 / 0
Регистрация: 12.11.2016
Сообщений: 20
25.12.2016, 15:37  [ТС]     Перенести 5 последних элементов одного ListBox-а в другой #4
volvo, Благодарю)

Добавлено через 1 час 20 минут
volvo, Не работает, как через Button2 вывести только первые 5 элементов Listbox1 в Listbox2 и сохранить в этот же файл?
volvo
Супер-модератор
Эксперт Pascal
 Аватар для volvo
22346 / 14523 / 4119
Регистрация: 22.10.2011
Сообщений: 25,725
Записей в блоге: 3
25.12.2016, 16:34     Перенести 5 последних элементов одного ListBox-а в другой #5
Цитата Сообщение от Stydent2 Посмотреть сообщение
Не работает
Работает. Приведенный код делает абсолютно то, что заявлено в изначальном задании. Меняешь задачи, да еще и обвиняешь в публикации неработоспособного кода - делай сам. Удачи.
Stydent2
1 / 1 / 0
Регистрация: 12.11.2016
Сообщений: 20
25.12.2016, 19:56  [ТС]     Перенести 5 последних элементов одного ListBox-а в другой #6
volvo, Извини, пожалуйста! Просто не так выразился изначально...
Yandex
Объявления
25.12.2016, 19:56     Перенести 5 последних элементов одного ListBox-а в другой
Ответ Создать тему
Опции темы

Текущее время: 11:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru