комбобокс и присвоение числа

[grafgrial]

Подскажите как мне сделать так.
например выбираю в комбобокс строчку и в едит показывается например число присвоеное этому слову
строчек может быть до 20000 -30000
присвоить по номеру строчки не получается т.к. по комбобокс идет сортировка

[K.I.S.S.]

забить данные в файл или БД и вытаскивать либо запросом(БД) либо парсером(Файл)

[chertovich]

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

Подскажите как мне сделать так.
например выбираю в комбобокс строчку и в едит показывается например число присвоеное этому слову
строчек может быть до 20000 -30000
присвоить по номеру строчки не получается т.к. по комбобокс идет сортировка

Какая там сортировка? Класс TStrings не сортирует строки по знач

[grafgrial]

Какая там сортировка?

combobox1.Items.LoadFromFile('bd.tx t');
combobox1.Items.Sorted:=true;
а в общем у меня строчки в файле такого вида:

Барнаул, Алтайский край, Россия  -  13
Бийск, Алтайский край, Россия  -  14

нут вот как сделать чтобы при выборе Бийска в едите вылезло '14'
ну или подскажите как мне сделать так чтобы последние 4 цифры строчки вылезали в едит.

[Stilet]

Ну вообще комбик при стандартных настройках вроде не позволяет такого сделать, но можно изголится собственной отрисовкой:

...
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var i:integer; s:string;
begin
  with ComboBox1.Canvas do begin
   FillRect(rect);
   if rect.Top=3 then begin
     s:='';
     for i:=length(ComboBox1.Items[Index]) downto 1 do begin
      if ComboBox1.Items[Index][i]=' ' then break;
      s:=ComboBox1.Items[Index][i]+s;
     end;
    TextOut(Rect.Left,Rect.Top,s)
   end   else
    TextOut(Rect.Left,Rect.Top,ComboBox1.Items[index]);

  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Style:=csOwnerDrawFixed;
end;
...

И не забыть что это только на экране вид такой будет

[Sparkman]

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

Подскажите как мне сделать так.
например выбираю в комбобокс строчку и в едит показывается например число присвоеное этому слову
строчек может быть до 20000 -30000
присвоить по номеру строчки не получается т.к. по комбобокс идет сортировка

А не дешевле будет сделать сортировку заранее?

[igh0st]

Можно воспользоваться ComboBoxEx, там у каждого Item есть реквизит Data, на который можешь повешать что угодно - хоть цело число, хоть указатель.

[Sanprof]

еще есть вариант создать компонент наследник от TComboBox и добавить ему всего одно поле, в котором и будет храниться индекс.

[grafgrial]

Stilet в общем код хороший- оставлю до необходимости, но не подходит
Sparkman Смысле заранее в файле? А толку по сортировка идет по названию города, а число то опред. когда сортировку сделаешь числа в файле будут в перемешку
igh0st Поискал в поиске, но так и не понял как с ним работать
Sanprof это как?

[igh0st]

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

Поискал в поиске, но так и не понял как с ним работать

Примерно также как с TListView