Удалить из Listbox delphi

[Nice42ru]

Всем здравствуйте, подскажите пожалуйста как программно удалить определенное слово из Listbox?

[ArtGrek]

както так

listBox1.Item[x] := delete(listBox1.Item[x], post('slovo', listBox1.Item[x]), post('slovo', listBox1.Item[x]) + length('slovo'));

[Nice42ru]

procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
begin
listBox1.Items[x] := delete(listBox1.Items[x], pos('slovo', listBox1.Items[x]), pos('slovo', listBox1.Items[x]) + length('slovo'));
end;



[Error] Constant object cannot be passed as var parameter

Не работает

[phomm]

попробуй

n := listbox.items.indexof('slovo');
if n <> -1
  then listbox.items.delete(n);

и вообще справка рулит, намек - F1

а вот приведенный код даже по логике ерунда... итему за номером х присвоить РЕЗУЛЬТАТ ПРОЦЕДУРЫ удаления подстроки в строке

УПД
аа вон оно что, если только конкретное слово из строки, то обращайся к свойсту listbox.items.text, тут уже нормально подойдёт процедура описанная, но только не надо её никуда присваивать

[ArtGrek]

а вот приведенный код даже по логике ерунда... итему за номером х присвоить РЕЗУЛЬТАТ ПРОЦЕДУРЫ удаления подстроки в строке

полностью согласен, чет я сглупил

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str := listBox1.Items[listBox1.ItemIndex];
delete(str, pos('slovo', str), pos('slovo', str) + length('slovo'));
listBox1.Items[listBox1.ItemIndex] := str;
end;

PS. автор, а на счет ItemIndex вместо X можно было и самому додумаца

[Nice42ru]

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

полностью согласен, чет я сглупил

procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str := listBox1.Items[listBox1.ItemIndex];
delete(str, pos('slovo', str), pos('slovo', str) + length('slovo'));
listBox1.Items[listBox1.ItemIndex] := str;
end;

PS. автор, а на счет ItemIndex вместо X можно было и самому додумаца

опять же, в этой строке

str := ListBox1.Items[ListBox1.ItemIndex];

возникает ошибка list index out of bounds (-1)

[ArtGrek]

list index out of bounds (-1)

ета ошибка означает то что ты вышел за пределы массива, в данном случае масива строк лист бокса
вот проконтролируи ето
добавлено
ты выдели сперва нужную строку, а потом кнопку нажимаи

[Stilet]

возникает ошибка

With listbox1 do if ItemIndex<>-1 then begin
 str := Items[ItemIndex];
 delete(str, pos('slovo', str), pos('slovo', str) + length('slovo'));
 Items[ItemIndex] := str;
end;

Идея понятна?

[Nice42ru]

Спасибо, но чтобы работал код мне нужно выделять строку самому, а я же указал что мне нужно программно удалять строку, тоесть клиент отсылает серверу код (serversocket1.socket.sendtext('del eteMyId' + id)) и сервер должен из Listbox'a удалить тот id который он прислал

if pos('deleteMyId', m) <> 0 then
  begin
m:= Socket.Recivetext;
Delete(m, 1, 10);
With UserList do if ItemIndex<>-1 then begin
 str := Items[ItemIndex];
 delete(str, pos(m, str), pos(m, str) + length(m));
 Items[ItemIndex] := str;
end;
    end;

Ваш код работает только в том случае, если я мышкой выделяю Id клиента в ListBoxe, заранее спасибо

[ArtGrek]

если ето происходит сразу после занесения, то логично предположить что надо обрашаца к последнеи строке,
ListBox.Items.Count - 1