一个字符串的小问题

Question

假如有个未知字符串：http://download.zhongsou.com/simplesearch/mupdate.exe.dat HTTP/1.0我想知道这个串中是否有 download 这串字符，并且得出download在字符串中的位置

Answer 1

用pos函数：function Pos(Substr: string; S: string): Integer;返回的是子字串的位置。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  position:Integer;
begin
  s:=edit1.Text;
  position:=pos('download',s);
  showmessage(IntToStr(position));
end;