难道没有人知道么？在线求助

Question

想在一个长传中查找是否有索要查找的串，谁有好方法？
比如：想在串‘asdfekimlwsgwervtbyjh’中查找'wsg'这个串
谁能有简单的函数呢？

Answer 1

这很简单的啊
就 pos(substr,s);
样例showmessage(inttostr(pos('wsg','asdfekimlwsgwervtbyjh')));

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  str1,str2:string;
begin
  str1:='asdfekimlwsgwervtbyjh';
  str2:='wsg';  if pos(str2,str1) = 0 then
    showmessage('不包含:'+str2)
  else
    showmessage(str2+'所在位置为:'+inttostr(pos(str2,str1)));
end;

Answer 3

伴水的总结：应该有帮助。要给分就给伴水吧！哈哈...
----------------------------------------------
首部  function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas
功能  返回字符串AText是否包含子串ASubText
说明  不区分大小写
参考  function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
例子  CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas
功能  返回字符串AText是否以子串ASubText开头
说明  不区分大小写
参考  function Windows.CompareString
例子  CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas
功能  返回字符串AText是否以子串ASubText结尾
说明  不区分大小写
参考  function Windows.CompareString
例子  CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
begin
  i:=Pos('wsg','asdfekimlwsgwervtbyjh');
  Caption:=IntToStr(i);
end;//Caption=10