Как удалить из строки подстроку по маске ?

[- fenix -]

Подскажите пожалуйста, есть готовое решение для удаления из строки подстроку вида abcd="*" ?

звездочка- любой текст любой длины кроме "

[SERG1980]

procedure TForm2.Button1Click(Sender: TObject);
var s,s1:string;
begin
s:='Хочу удалить это слово';
s1:=StringReplace(s,'это','',[rfReplaceAll, rfIgnoreCase]);
edit1.Text:=s1;
end;

[Stilet]

SERG1980

И где ж тут удаление по маске?

Феникс смотри сюда:

uses masks,.......
.........
var s:string; e:TStringList;i:integer;
begin
s:='эти слова это хорошо';
e:=TStringList.Create;
e.DelimitedText:=s;
e.Delimiter:=' ';
//********* FOR ******************
i:=0;
while i<=e.count-1 do
begin
 if MatchesMask(e[i],'эт*') then e.Delete(i) else inc(i);
end;
//******* END FOR ****************{}
s:=e.DelimitedText;
caption:=s;
end;

[дмидми]

Сообщение от - fenix -

есть готовое решение

1) Что значит "готовое решение"?

подстроку вида abcd="*" ?
звездочка- любой текст любой длины кроме "

2) "любой длины" - в том числе и нулевой?
3) То есть единственный вариант подстроки, не подлежащей удалению, это
abcd="""
, где слева от подстроки что угодно (в том числе и ничего), а справа от третьей двойной кавычки, замыкающей подстроку, нет ничего или есть любая строка, которая не начинается с двойной кавычки?
Если не так, то?..

[- fenix -]

Спасибо всем кто помогает.

SERG1980, немного не то, подробнее ниже

Stilet, спасибо, посмотрю как работает

дмидми,
1.готовое решение имел ввиду стандартную функцию delphi по удалению по маске (вдруг есть такая)
2. нет, нулевой не надо. между ковычками обязательно текст есть
3. слева не что угодно а обязательно abcd="потом текст и заканчивается текст знаком "

и в строке удалить надо все подстроки такого вида. Справа от замыкающей обязательно идет текст который не начинается с двойной ковычки. В строке может быть несколько подстрок такого вида, обязательно разделенных текстом.