Список: пользователь-id

[oleg_498]

Необходимо реализовать список людей таким образом, чтобы пользователь видел лишь их имя и фамилию, а id этих людей оставался скрытым для него. При этом в список можно свободно добавлять новых и удалять существующих людей, а так же сортировать их по алфавиту.
Т.е. по сути нужен компонент на подобии ListBox, имеющий для каждой строки свое скрытое описание.

P.S. Можно, конечно, создать отдельно массив для этого, но это создаст лишние проблемы...

[BDA]

Берете ListBox.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  s: string;
begin
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    s := ListBox1.items.strings[index];
    TextOut(Rect.Left, Rect.Top, copy(s, 1, pos('-', s) - 1));
  end;
end;

Свойство Style в lbOwnerDrawFixed.
В самом ListBox:

Иванов-123
Петров-4
Сидоров Иван-6

Будет выглядеть:

Иванов
Петров
Сидоров Иван

[oleg_498]

Хм... Хороший вариант, спасибо

[SNUPY]

Правильнее будет использовать метод AddItem и в объекте хранить необходимые данные.

[Serge_Bliznykov]

SNUPY, +1

это позволит не только упростить/ускорить код отрисовки,
но и ЗНАЧИТЕЛЬНО повысить надёжность программы.

BDA, согласитесь, что это хакерские штучки..
Например, подумайте, что произойдёт, если при вашем подходе ввести имя пользователя "Петров-Водкин"...

[BDA]

Serge_Bliznykov, конечно же соглашусь - способ "костыльный". Возьму на вооружение AddItem .