08.12.2016, 06:33
|
|
Начинающий
|
|
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
|
|
2 lmikle
Вот, только без проверки вылета из диапазона len
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
s: string;
begin
s:= Edit5.Text; // := StringReplace(Edit5.Text,'abcd','',[rfReplaceAll]);
for i:= Length(s) downto 1 do
if s[i-3] + s[i-2] + s[i-1] + s[i] = 'abcd' then Delete(s, i-3, 4);
Edit5.Text:= s;
end;
__________________
Помогаю платно.
Помогаю иногда бесплатно.
|