Функция выбирает нужное значение просто из всего остального
Цитата:
function Pars(str:String;str_begin:String;str_end:String;co unt:integer):String;
begin
Delete(str,1,pos(str_begin,str)+length(str_begin)) ;
Delete(str,pos(str_end,str)-count,length(str));
Pars:=str;
end;
|