0

Сделала вот такой вод: Удаление всего текста, в строке - после символа "/".

  for i:=0 to St.Count-1 do begin // Цикл
          Delete(s, Pos('/', s), Length(s));
          end;

Подскажите: Как добавить условие - удаление всего после 3 символа "/".

К примеру, если в строке, текст такого плана: /111пример1/222пример2/333пример3

То результат: /111пример1/222пример2/

1 ответ 1

1
procedure DeleteAfterThirdSlash(var s: string);
var 
  iChar, slashCount: integer;
begin
  slashCount := 0;
  for iChar := 1 to Length(s) do 
  begin
    if s[iChar] = '/' then
      Inc(slashCount);
    if slashCount = 3 then
    begin
      Delete(s, iChar + 1, Length(s) - iChar);
      break;
    end;
  end;
end;
3
  • Igor, Как всегда, Вы - на высоте. Очень профессиональные решения! 15 июн 2018 в 18:24
  • Последний вопрос, по этой теме: А как удалить и сам символ "/". ? 15 июн 2018 в 18:36
  • 1
    @Татьяна Delete(s, iChar, Length(s) - iChar + 1);
    – user176262
    15 июн 2018 в 18:46

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.