Сортировка в ListBox с сохранением старого ItemIndex

← →
lost3000 (2004-12-22 11:33) [0]

Господа, подскажите, пожалуйста, по проблеме...
Из файла закачиваю в ListBox строки. При включении Sorted меняется ItemIndex строк. Возможно ли его сохранить изначальным?

← →
Плохиш © (2004-12-22 11:44) [1]

ItemIndex - в переводе, "порядковый номер элемента в списке"
Следующий вопрос?

← →
lost3000 (2004-12-22 11:54) [2]

Некорректность вопроса понял.
Тогда следующий.
Каким образом можно после сортировки опознать строку, которая изначально была первая, а стала, к примеру, пятая?

← →
lost3000 (2004-12-22 11:55) [3]

← →
Плохиш © (2004-12-22 11:57) [4]

Запомнить содержимое этой строки до сортировки и найти её после

← →
Александр Иванов © (2004-12-22 12:06) [5]

Поиск, после сортировки.

← →
lost3000 (2004-12-22 12:09) [6]

Спасибо.

← →
lost3000 (2004-12-22 12:11) [7]

Александру : Поиск, опять же, по содержанию строки? Или есть ещё варианты?

← →
Александр Иванов © (2004-12-22 12:15) [8]

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

var buf:string;i:integer;
begin
buf:=ListBox1.Items[ListBox1.ItemIndex];
ListBox1.Sorted:=True;
i:=0;
while buf <> ListBox1.Items[i] do inc(i);
ListBox1.ItemIndex:=i;
end;

← →
lost3000 (2004-12-22 12:19) [9]

Понял. Спасибо, Александр!

← →
antonn © (2004-12-22 12:32) [10]

lost3000 (22.12.04 11:33)

вставляй объекты, а то попадуться 2 одинаковых строки...

lost3000 (22.12.04 11:33)

Быстрее будет при заполнении TListBox заполнить уникальными значениями ListBox.Items.Objects и после сортировки вести поиск по этому полю.

Перед сортировкой(или раньше):

for i := 0 to ListBox.Count-1 do ListBox.Items.Objects[i] := Pointer(i);

var p: Ponter; i: Integer; begin p := ListBox.Items.Objects[ListBox.ItemIndex]; ... //Сортировка

После сортировки:

for i := 0 to ListBox.Count-1 do begin if ListBox.Items.Objects[i]=p then begin ListBox.ItemIndex := i; break; end; end;

← →
lost3000 (2004-12-22 13:25) [14]

Спасибо всем!

Сортировка в ListBox с сохранением старого ItemIndex Найти похожие ветки