Да проще на теги опираться
Код:
function prs(ds,vs,ts: string):string;
begin
delete(vs, 1, (pos(ds,vs)+length(ds))-1);
Result:= Copy(vs,1,Pos(ts,vs)-1);
end;
begin
a:= '<input type="hidden" id="referredby" name="referredby" value="';
z:= '" />';
str.Add('referredby=' + prs(a,site,z));
end;
результат в мемо
Цитата:
referredby=http://220-400-volt.96.lt/wp-admin/edit.php?post_type=product
|