咳！超级新手来提问！字符串问题

Question

我的文件里有
这样的字符串"ProgramID=11686"
11686为一个任意的5位数
我怎么取得完整的"ProgramID=11686"的字符串
文件的其他字符很复杂，但我就要取得这个部分

Answer 1

function getstring(instring:string):string;
var
 ii : integer;
begin
  ii :=  pos('ProgramID=',instring);
  result := copy(instring,ii,15);
end;

Answer 2

pos,见过面，不会用，学习,感觉是position,

Answer 3

  i :=  pos('ProgramID=11686',allstr);
  copy(allstr,i,length('ProgramID=11686'));