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

Lazarus

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

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

25.12.2016, 13:21. Просмотров 214. Ответов 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+}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2016, 13:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перенести 5 последних элементов одного ListBox-а в другой (Lazarus):

Заполнить массив из n элементов и перенести первые k элементов в конец - Lazarus
1.Заполнить массив из n элементов случайными целыми числами из промежутка 2.Перенести первые k элементов в конец то есть : a, a,...

запись из одного dbGrid1'a в другой DBGrid2 - Delphi
Помощь нужна срочно (касается дипломного проекта) вот на рисунке там 1 файл в формате.mdb в нем 2 таблицы. 1 таблица для Базы...

Перемещение вкладок с одного PageControl на другой - Delphi
На форме имеются два компонента PageControl. Хочу сделать перемещение вкладок между ним, но вопрос не про Drag-n-Drop. Каким образом...

Копировать график из одного чарта в другой - Delphi
Доброго времени суток! Подскажите пожалуйста, как можно скопировать график например из Chart1 в Chart2? Есть какая то команда??? Или...

Копирование значений полей из одного объекта в другой - Lazarus
Здравствуйте. Прошу помочь с копированием значений полей между объектами, относящимися к одному классу. Например, вот описание класса: ...

Сортировка StringGrid обменами по возрастанию последних элементов строк - Lazarus
дана матрица m*n. нужно взять матрицу из стринггрид, отсортировать по возрастанию последних элементов строк и вывести во второй стринггрид....

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
23839 / 15831 / 4777
Регистрация: 22.10.2011
Сообщений: 27,999
Записей в блоге: 5
25.12.2016, 13:56 #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;
1
Hretgir
201 / 75 / 2
Регистрация: 25.01.2012
Сообщений: 2,770
Записей в блоге: 20
25.12.2016, 14:07 #3
Цитата Сообщение от volvo Посмотреть сообщение
Так?
логично что так - и удалять не надо,
вспоминаю где-то услышанное:

Не по теме:

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

.
0
Stydent2
1 / 1 / 0
Регистрация: 12.11.2016
Сообщений: 28
25.12.2016, 15:37  [ТС] #4
volvo, Благодарю)

Добавлено через 1 час 20 минут
volvo, Не работает, как через Button2 вывести только первые 5 элементов Listbox1 в Listbox2 и сохранить в этот же файл?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
23839 / 15831 / 4777
Регистрация: 22.10.2011
Сообщений: 27,999
Записей в блоге: 5
25.12.2016, 16:34 #5
Цитата Сообщение от Stydent2 Посмотреть сообщение
Не работает
Работает. Приведенный код делает абсолютно то, что заявлено в изначальном задании. Меняешь задачи, да еще и обвиняешь в публикации неработоспособного кода - делай сам. Удачи.
1
Stydent2
1 / 1 / 0
Регистрация: 12.11.2016
Сообщений: 28
25.12.2016, 19:56  [ТС] #6
volvo, Извини, пожалуйста! Просто не так выразился изначально...
0
25.12.2016, 19:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2016, 19:56
Привет! Вот еще темы с ответами:

Получить все ссылки с одного memo и записать в другой (парсинг) - Delphi
Мне надо получить все ссылки с одного memo и перекинуть в другой вот как я делаю procedure TForm1.Button12Click(Sender: TObject); var...

Найти первые пять положительных элементов массива и 2 последних и вывести в edit - Lazarus
Помогите пожалуйста!!Как найти первые пять положительных элементов и выписать их в Edit затем еще выписать два последних элемента массива,...

Перенос элементов из одного Listbox в другой - Visual Basic .NET
Здравствуйте, не подскажите как по выделению нескольких элементов в 1 ListBox'е переместить их во 2ой

Как перенести значение из одного текстбокса в другой, находящийся в другой форме - MS Access
есть текстбокс в форме, в нем считается значение это значение нужно перенести в другую форму в другой текстбокс в контрол сурс написал...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

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