Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Май

Универсальная функция для получения из строки определённого фрагмента

Posted by Chas under Delphi

Универсальная функция, применимая в 90% случаев, когда нужно из строки получить определённый фрагмент

XE5

function ParseURL(T_, ForS, _T: string): string;

var a, b: integer;

begin

Result := '';

if (T_ = '') or (ForS = '') or (_T = '') then Exit;

a := Pos(T_, ForS);

if a = 0 then Exit else a := a + Length(T_);

ForS := Copy(ForS, a, Length(ForS) - a + 1);

b := Pos(_T, ForS);

if b > 0 then Result := Copy(ForS, 1, b - 1);

end;

тема на форуме