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

Shouldercannon

Well-known member
25.05.2010
128
0
#1
Сам отвечаю
Код:
//Удаляем данные
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;