在Delphi中字符串查找 函数

在Delphi中字符串查找函数

Delphi提供的字符串函数里有一个Pos函数，它的定义是：

它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。

使用pos函数来查找字符第一次出现的位置

var

str1:string;

i,j:integer;

begin

str1:='dsf4654f6ad' ;

j:=pos('<',str1);//在字符串str1中查找"<"

if j<>0 then //得到的j是字符串中出现的位置，是整型

showmessage('<'+'在第'+inttostr(j)+'个位置'); //第十个位置

end;

===============================================

首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas

功能返回指针字符串Str2在Str1中第一个出现的地址

说明没有找到则返回空指针;StrPos('12345', '3') = '345'

参考

例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));

===================================================

StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针;

StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针; StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针. //给你尝试一下，简单分隔一下吧。

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils, Classes;

function GetMainStrs(ATalks: string): TStrings;

Var

p1, p2, l2, l1: Integer;

str: string;

begin

Result := TStringList.Create();

l1 := Length('：'); //分隔符的长度

l2 := Length('；'); //分隔符的长度

while(ATalks <> '') do

begin

p1 := Pos('：', ATalks);

p2 := Pos('；', ATalks);

if (p1>0) and (p2>0) then

begin

if (p1

begin

str := Copy(ATalks, p1+l1, p2-p1-l1);

Result.Add(str);

ATalks := Copy(ATalks, p2+l2, Length(ATalks)-p2-l2);

end else //; 在:之前出现

begin

ATalks := Copy(ATalks, p2+l2, Length(ATalks)-p2-l2);

end;

end else

begin

ATalks := '';

end;

end;

end;

Var

mStrs: TStrings;

i: Integer;

begin

//取:与;之间的字符。

//; 与：之间的不取

mStrs := GetMainStrs('你好：嗯；你好：姓名；张三：不用谢；知道：不知道；好了；是');

for i:=0 to mStrs.Count-1 do

begin

Writeln(mStrs.Strings[i]);

end;

Readln

end.

procedure TForm1.Button1Click(Sender: TObject);

var

str_all, str_sub: string;

i: integer;

arrstr_sub: array [0..99] of string;

begin

Memo1.Lines.Clear;

str_all:= '你好:嗯;你好:姓名;张三:谢谢;知道:不知道;好了:是';

str_sub:= str_all;

for i:= 0 to 6 do

begin

if pos(';', str_sub) = 0 then

begin

arrstr_sub[i]:= str_sub;

Memo1.Lines.Add(arrstr_sub[i]); //最后一组字符串, 也要改成保存到数据库的代码

exit;

end;

arrstr_sub[i]:= copy(str_sub, 1, pos(';', str_sub));

Memo1.Lines.Add(arrstr_sub[i]); //这里改成保存到数据库的代码

str_sub:= copy(str_sub, pos(';', str_sub) + 1, length(str_sub) - pos(';', str_sub)); end;

end;