[AleD]

Сообщение от Law_Of_Evi1

Подскажите как можно скапировать текст находящийся между двумя известными словами.. Например текст "qwerty???????фыва".. Мне нужно чтобы был скопирован текст находящийся между словами qwerty и фыва..

Код:

function CopyBetween(const AStr, AStart, AEnd: String): String;
begin
  Result := AStr;

  if(Pos(AStart,Result)<>0)then
    Result := Copy(AStr,Pos(AStart,Result)+Length(AStart),Length(Result));

  if(Pos(AEnd,Result)<>0)then
    Result := Copy(Result,1,Pos(AEnd,Result)-1);
end;

первый параметр - сама строка из которой надо "выдрать" слово,
второй параметр - начальная строка, после которой начнётся копирование
третий параметр - строка до которой производится копирование
если начальной строки нет в строке, копироваться будет от начала, если не будет конечной строки копироваться будет до конца строки

всегда рад помочь