Поиск и удаление из TStrings

[Shouldercannon]

Пытаюсь сделать приск и удаление записи находящейся в Edit, но не получается.

[Stilet]

if Copy(MBanIPs.Text[a], 1, length(Edit1.Text)) = Edit1.Text then

 if pos(Edit1.Text,MBanIPs.Text[a]) <>0 then Найдено

for i := 0 to MBanIPs.Count - 1 do
if MBanIPs.Text[i] = Edit1.Text then
begin
MBanIPs.Text := IntToStr(i);

Это ты зачем делаешь? Убери

[bitSoft]

zdesi ne pravilino na udalenie,

var
i: Integer;
begin
for i := 0 to MBanIPs.Count - 1 do
  if MBanIPs.Text[i] = Edit1.Text then
    begin
      MBanIPs.Text := IntToStr(i);
        MBanIPs.Delete(i);
          Memo1.Text := MBanIPs.Text;
            Break;
    end;
end;

//tipa tavo nado

var
i: Integer;
begin
for i := MBanIPs.Count - 1 downto 0 do
  if MBanIPs.Text[i] = Edit1.Text then
    begin
        MBanIPs.Delete(i);
          Memo1.Text := MBanIPs.Text;
            Break;
    end;
end;

[bitSoft]

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

 if pos(Edit1.Text,MBanIPs.Text[a]) <>0 then Найдено

Это ты зачем делаешь? Убери

ya toje udalil , pervii raz v jizniu viju takoi prikol, udaliti vsio i zapisati, nomer stroki

[JTG]

Заменить MBanIPs: TStrings; на MBanIPs: TStringList;

MBanIPs.Sorted := true;            //сортируем список
MBanIPs.Duplicates:= dupIgnore; //запрещаем добавление уже существующих строк

...

with MBanIPs do Delete(indexOf(Edit1.Text));

[Shouldercannon]

С удалением

with MBanIPs do
  Delete(indexOf(Edit1.Text));
    Memo1.Text := MBanIPs.Text;

всё хорошо, но если запись не надена, то ошибка List index out of bounds (-1)
Поиск вообще не работает, сразу же ошибка.

[JTG]

try
  with MBanIPs do Delete(indexOf(Edit1.Text));
except
  //строка не найдена
end;

[Shouldercannon]

А как быть с поиском в TStringList?

[Sibedir]

Точно так же. TStrings - абстрактный класс, с ним не нужно работать на прямую. А TStringList - его потомок, создан специально для работы со списком пар String, TObject. В вашем частном случае только для строк.

[Shouldercannon]

Аллилуйя. Встроенный Help помог

//Находим данные
procedure TForm1.BFindClick(Sender: TObject);
var
Index: Integer;
begin
if MBanIPs.Find(Edit1.Text, Index) then
  ShowMessage('Найдено')
    else
      ShowMessage('Не найдено');
end;