[Johny]

Подскажите как определить выделена ли строка в ListBoxe?

[Aristarh Dark]

Код:

1 2 3 4 5

//в myIndex - индекс строки для которой ты хочешь узнать выделена она или нет if ListBox.Selected[myIndex] then   ShowMessage('Строка '+IntToStr(myIndex)+' выделена') else   ShowMessage('Строка '+IntToStr(myIndex)+' не выделена');

[4kusNick]

А если хочешь узнать, какая именно выделена, то делай так:
...

Код:

1 2 3 4 5 6 7 8 9 10 11

var  iIndex,  iCount: Integer; begin  iCount :=  ListBox.Items.Count - 1;  for iIndex := 0 to iCount do  begin   if ListBox.Selected[iIndex] then    ShowMessage('Строка '+IntToStr(iIndex)+' выделена')  end end;

[Johny]

Вот такой код:
var
l: Word;
--
if text <> '' then
begin
with ListBox1 do
begin
l:= ListBox1.Perform(LB_SELECTSTRING, ItemIndex, LongInt(text));
end;
if ListBox1.Selected[l] then
begin
Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]);
end
else
MessageDlg('Ничего не найдено!', mtInformation, [mbOk], 0)
end
else
Exit;
end;

выдаёт ошибку: List index out of bounds

[Johny]

Я всё исправил! Прошу не беспокоится.