Автор Player задал вопрос в разделе Другие языки и технологии
Массив (Delphi)Найти указанную подстроку в строке если она есть,то извлечь ее, если ее нет, то вставить в конец строки и получил лучший ответ
Ответ от Gennady[гуру]
Доброго времени суток.
Вот и я подумал, при чем здесь массив?
if Pos(SubStr, S) > 0 then System.Delete(S, Pos(SubStr, S), Length(SubStr))
else S := S + SubStr;
функция Pos возвращает позицию первого вхожденияч подстроки в строку. Delete удаляет подстроку, если под извлечь подразумевается удалить ее из строки. Прочитать подстроку в переменную можно так
NewS := Copy(S, Pos(SubStr, S), Length(SubStr));
Только какой в этом смысл, ума не приложу.. .
Удачи!
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Массив (Delphi)Найти указанную подстроку в строке если она есть,то извлечь ее, если ее нет, то вставить в конец строки