Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Как отсортировать список в ComboBox типа Integer, т.е. 10 после 9 а не наоборот 


SL   (2001-12-23 07:30) [0]

Как отсортировать список в ComboBox типа Integer, т.е. 10 после 9 а не наоборот. Вообще-то мне нужно чтобы пользователь набирал текст в окне редактирования и там автоматически подставлялись значения из списка (без сортировки не работает). Можно конечно обрабатывать событие OnChange, но возможно есть более простой способ



MBo   (2001-12-23 09:38) [1]

так как в Комбо нет Custom сортировки, то можно так
function SortByVal(L: TStringList;I1,I2: Integer): Integer;
begin
result:=0;
try
if strtoint(l[i1])>strtoint(l[i2]) then result:=1
else if strtoint(l[i2])>strtoint(l[i1]) then result:=-1;
except
if l[i1]>l[i2] then result:=1
else if l[i2]>l[i1] then result:=-1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:tstringlist;
begin
s:=tstringlist.create;
s.assign(cb1.items);
s.CustomSort(SortByVal);
cb1.items.assign(s);
s.free;
end;



SL   (2001-12-23 10:23) [2]

Это работает только если у cb1 свойство SORTED=FALSE (в этом случае при вводе значения с клавиатуры автоматически подставляется значение у которого первый символ соответствует нажатой клавише, т.е. если я нажимаю 1, потом 7, то появляется значение 7.., а мне нужно 17..)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.01 c
6-28516           SERGX                 2001-09-30 15:32  2002.01.10  
Я с помошью CientSocet & ServerSocet сделал чат НО..


1-28477           Kost                  2001-12-22 10:02  2002.01.10  
Как поворвчивать bitmap


3-28429           Beat                  2001-12-05 08:23  2002.01.10  
Как запретить перенос столбцов в DBGrid?


4-28563           Дремучий              2001-11-09 14:43  2002.01.10  
Все свободны. А Вас, Штирлиц, я попрошу задержаться.


14-28528          Васильев П.           2001-11-09 23:01  2002.01.10  
Прибалтийцы и живущие в дальнем зарубежье!