Сортировка фамилий по алфавиту

@Great Post · Регистрация: 22.02.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Итак, задача довольно проста: после ввода рядка фамилий и указания рядом возраста, отсортировать нажатием кнопки фамилии по алфавиту. Ввёл вот этот код на TButton:

Delphi

procedure TForm6.Button1Click(Sender: TObject);
 var
   i, x: Integer;
 begin
   for i := 0 to (ListBox1.Items.Count - 1) do
     for x := 0 to (ListBox1.Items.Count - 1) do
       if (ListBox1.Items[x] < ListBox1.Items[i]) and (x > i) then
       begin
         ListBox1.Items.Insert(i, ListBox1.Items[x]);
         ListBox1.Items.Delete(x + 1);
       end;
 end;

Запустил, работает, но добавить ничего на ЛистБокс не могу.
Можете разъяснить чайнику, в чём проблема?
Заранее спасибо.

@bv7 · 01.06.2015, 22:17

Сообщение от Great Post

Запустил, работает, но добавить ничего на ЛистБокс не могу.

Этот код добавляет запись в ListBox, на форме должны быть: Кнопка(Button), сам листбокс, и поле для ввода(Edit1)

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;

~~Verevkin~~ · 01.06.2015, 22:43

пипл, вы чего?..

@Great Post · 02.06.2015, 17:30 **[ТС]**

Чёткого ответа так пока и не увидел

~~Verevkin~~ · 02.06.2015, 20:13

Сообщение от Great Post

Чёткого ответа так пока и не увидел

а тебе тут никто ничего не должен. какой ответ является чёктим?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
  ListBox1.Sorted:= true;
end

@Great Post · 02.06.2015, 20:35 **[ТС]**

Не работает. Ввожу в эдит, нажимаю на кнопку - но на листбокс ничего не добавляется

@bv7 · 02.06.2015, 20:57

Я не Станиславский, но ... "Не верю!"

Проект D7 во вложении. Все работает и все сортируется по алфавиту.

Можно еще так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  //добавляем текст в ListBox
  ListBox1.Items.Add(Edit1.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //Включаем сортировку ListBox
  ListBox1.Sorted:= true;
end;

~~Verevkin~~ · 02.06.2015, 20:59

Сообщение от Great Post

на листбокс ничего не добавляется

Одна из возможных причин - не назначен обработчик событию OnClick твоей кнопки. Проверь.

@Great Post · 02.06.2015, 21:07 **[ТС]**

bv7, большое спасибо, ответ отметил

Verevkin, вам тоже спасибо, что откликнулись

@bv7 · 02.06.2015, 21:08

Почему не работало то? Разобрался? Может ";" не поставил где?

~~Verevkin~~ · 02.06.2015, 21:17

Почему не работало-то? Где косяк?

@bv7 · 02.06.2015, 21:46

Сообщение от Verevkin

Почему не работало-то? Где косяк?

2 Verevkin
Студент ... , задачку за него решили и убежал.

@Great Post · 02.06.2015, 22:19 **[ТС]**

bv7, я тут

Verevkin, это всё моя собственная чайниковость

~~Verevkin~~ · 02.06.2015, 23:09

Сообщение от Great Post

это всё моя собственная чайниковость

Почему не работало-то? Где косяк?

@Great Post · 03.06.2015, 17:00 **[ТС]**

Verevkin, не знаю, почему, но когда я компилировал ваш код, буквы фамилий на листбоксе не отображались, но скролл появлялся.

~~Verevkin~~ · 03.06.2015, 17:15

ну давай проект, буду посмотреть.

@bv7 21 / 9 / 3 Регистрация: 24.05.2014 Сообщений: 60
	02.06.2015, 21:08	10
	Почему не работало то? Разобрался? Может ";" не поставил где? 0

~~Verevkin~~ Заблокирован
	02.06.2015, 21:17	11
	Почему не работало-то? Где косяк? 0

@bv7 21 / 9 / 3 Регистрация: 24.05.2014 Сообщений: 60
	02.06.2015, 21:46	12
	Сообщение от Verevkin Почему не работало-то? Где косяк? 2 Verevkin Студент ... , задачку за него решили и убежал. 0

~~Verevkin~~ Заблокирован
	02.06.2015, 23:09	14
	Сообщение от Great Post это всё моя собственная чайниковость Почему не работало-то? Где косяк? 0

~~Verevkin~~ Заблокирован
	03.06.2015, 17:15	16
	ну давай проект, буду посмотреть. 0

~~Verevkin~~ Заблокирован
	01.06.2015, 22:43	3
	пипл, вы чего?.. Миниатюры 0

@Great Post 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 38
	02.06.2015, 17:30 [ТС]	4
	Чёткого ответа так пока и не увидел 0

@Great Post 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 38
	02.06.2015, 20:35 [ТС]	6
	Не работает. Ввожу в эдит, нажимаю на кнопку - но на листбокс ничего не добавляется 0

~~Verevkin~~ Заблокирован
	02.06.2015, 20:59	8
	Сообщение от Great Post на листбокс ничего не добавляется Одна из возможных причин - не назначен обработчик событию OnClick твоей кнопки. Проверь. Миниатюры 1

@Great Post 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 38
	02.06.2015, 21:07 [ТС]	9
	bv7, большое спасибо, ответ отметил Verevkin, вам тоже спасибо, что откликнулись 0

@Great Post 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 38
	02.06.2015, 22:19 [ТС]	13
	bv7, я тут Verevkin, это всё моя собственная чайниковость 0

@Great Post 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 38
	03.06.2015, 17:00 [ТС]	15
	Verevkin, не знаю, почему, но когда я компилировал ваш код, буквы фамилий на листбоксе не отображались, но скролл появлялся. 0

Опции темы

Сортировка фамилий по алфавиту

Решение