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

Тема в разделе "Delphi - Компоненты", создана пользователем Shouldercannon, 27 май 2010.

  1. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    0
    Сам отвечаю
    Код (Text):
    //Удаляем данные
    procedure TForm1.BDeleteClick(Sender: TObject);
    begin
    try
    with MBanIPs do
    Delete(indexOf(Edit1.Text));
    Memo1.Text := MBanIPs.Text;
    except
    ShowMessage('Не найдено');
    end;
    end;

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

    SNike Гость

    Молодец :)
     
Загрузка...

Поделиться этой страницей