Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TValueListEditor

Автор: -=::BlackCat::=- 3.5.2004, 00:09

как в этом компоненте зделать поиск по ключу, так что бы результатом получить RowIndex в виде Integer

Автор: p0s0l 3.5.2004, 19:55

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  RowIndex : integer;
begin
  if ValueListEditor1.FindRow('ZzZ', RowIndex) then
    Caption := IntToStr(RowIndex)
  else
    Caption := 'Not found';
end;

Только учти, что FindRow не учитывает регистр, т.е. если есть ключ "zzz", то найдет его...

Автор: -=::BlackCat::=- 4.5.2004, 00:07

p0s0l

это мне как раз наруку

Добавлено @ 00:13
p0s0l

а как зная значение (Value) узнать ключ(Key)?

Pegas

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

Автор: -=::BlackCat::=- 5.5.2004, 22:19

Ну так что?

Автор: Medved 5.5.2004, 22:58

Цитата

Pegas

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

Интересно -=::BlackCat::=-, где же Вы увидели, что я на Вас "наезжаю"?
В дальнейшем прошу Вас не кидаться подобными "упреками". Заранее Вам благодарен.

Автор: -=::BlackCat::=- 5.5.2004, 23:06

Извеняюсь господин Pegas если вас оскорбил, просто очень уж часто натыкался на упрёки с вашей стороны на подобные ходы

Добавлено @ 23:06
Был бы очень рад если бы вы смогли мне помоч

Автор: p0s0l 6.5.2004, 16:18

Видимо вручную надо перебирать все значения, тем более, что и FindRow работает через обычный перебор всех значений...

Код

procedure TfrmMain.Button15Click(Sender: TObject);
var
  i : integer;
begin
  with ValueListEditor1 do
    for i := 0 to RowCount-2 do
      if Cells[1, i+1] = 'aAa' then Break;
  if i = ValueListEditor1.RowCount-1 then Exit; // не нашли
  Caption := IntToStr(i);
end;

Автор: -=::BlackCat::=- 6.5.2004, 17:27

сенкс